[Emacs-diffs] Changes to emacs/lisp/dabbrev.el

[Richard M. Stallman]

Index: emacs/lisp/dabbrev.el
diff -c emacs/lisp/dabbrev.el:1.67 emacs/lisp/dabbrev.el:1.68
*** emacs/lisp/dabbrev.el:1.67  Tue Feb  4 06:09:53 2003
--- emacs/lisp/dabbrev.el       Tue Jun  3 07:07:23 2003
***************
*** 613,628 ****
  (defun dabbrev--goto-start-of-abbrev ()
    ;; Move backwards over abbrev chars
    (save-match-data
!     (if (not (bobp))
!       (progn
!         (forward-char -1)
!         (while (and (looking-at dabbrev--abbrev-char-regexp)
!                     (not (bobp))
!                     (not (= (point) (field-beginning (point) nil
!                                                      (1- (point))))))
!           (forward-char -1))
!         (or (looking-at dabbrev--abbrev-char-regexp)
!             (forward-char 1))))
      (and dabbrev-abbrev-skip-leading-regexp
         (while (looking-at dabbrev-abbrev-skip-leading-regexp)
           (forward-char 1)))))
--- 613,627 ----
  (defun dabbrev--goto-start-of-abbrev ()
    ;; Move backwards over abbrev chars
    (save-match-data
!     (when (> (point) (minibuffer-prompt-end))
!       (forward-char -1)
!       (while (and (looking-at dabbrev--abbrev-char-regexp)
!                 (> (point) (minibuffer-prompt-end))
!                 (not (= (point) (field-beginning (point) nil
!                                                  (1- (point))))))
!       (forward-char -1))
!       (or (looking-at dabbrev--abbrev-char-regexp)
!         (forward-char 1)))
      (and dabbrev-abbrev-skip-leading-regexp
         (while (looking-at dabbrev-abbrev-skip-leading-regexp)
           (forward-char 1)))))