*** empty log message ***

[gnu-emacs] / lisp / dabbrev.el

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index b085856570345616c3daf586e10889f031b07993..55b080ee0b15697916f9aec19a25ee5c6b798835 100644 (file)
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -599,7 +599,9 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
        (progn
          (forward-char -1)
          (while (and (looking-at dabbrev--abbrev-char-regexp)
-                     (not (bobp)))
+                     (not (bobp))
+                     (not (= (point) (field-beginning (point) nil
+                                                      (1- (point))))))
            (forward-char -1))
          (or (looking-at dabbrev--abbrev-char-regexp)
              (forward-char 1))))