# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1012732009 0
# Node ID 875f7fc9838ecea97b5e96b64078d0274f9df8e5
# Parent  e14b8be37d7d69569807875a3b0bd77c05713dc1
(dabbrev--goto-start-of-abbrev):
Exit loop on beginning of field rather than bobp.

diff -r e14b8be37d7d -r 875f7fc9838e lisp/dabbrev.el
--- a/lisp/dabbrev.el	Sun Feb 03 05:18:23 2002 +0000
+++ b/lisp/dabbrev.el	Sun Feb 03 10:26:49 2002 +0000
@@ -599,7 +599,7 @@
 	(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))))