613 |
(defun dabbrev--goto-start-of-abbrev () |
(defun dabbrev--goto-start-of-abbrev () |
614 |
;; Move backwards over abbrev chars |
;; Move backwards over abbrev chars |
615 |
(save-match-data |
(save-match-data |
616 |
(if (not (bobp)) |
(when (> (point) (minibuffer-prompt-end)) |
617 |
(progn |
(forward-char -1) |
618 |
(forward-char -1) |
(while (and (looking-at dabbrev--abbrev-char-regexp) |
619 |
(while (and (looking-at dabbrev--abbrev-char-regexp) |
(> (point) (minibuffer-prompt-end)) |
620 |
(not (bobp)) |
(not (= (point) (field-beginning (point) nil |
621 |
(not (= (point) (field-beginning (point) nil |
(1- (point)))))) |
622 |
(1- (point)))))) |
(forward-char -1)) |
623 |
(forward-char -1)) |
(or (looking-at dabbrev--abbrev-char-regexp) |
624 |
(or (looking-at dabbrev--abbrev-char-regexp) |
(forward-char 1))) |
|
(forward-char 1)))) |
|
625 |
(and dabbrev-abbrev-skip-leading-regexp |
(and dabbrev-abbrev-skip-leading-regexp |
626 |
(while (looking-at dabbrev-abbrev-skip-leading-regexp) |
(while (looking-at dabbrev-abbrev-skip-leading-regexp) |
627 |
(forward-char 1))))) |
(forward-char 1))))) |