From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 Feb 2002 10:26:49 +0000 (+0000)
Subject: (dabbrev--goto-start-of-abbrev):
X-Git-Tag: ttn-vms-21-2-B4~16873
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f5075727e735bc6cee9434ef9fb1a7b37b8ea66;p=emacs.git

(dabbrev--goto-start-of-abbrev):
Exit loop on beginning of field rather than bobp.
---

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