# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1016425497 0
# Node ID 1b2a6ccacf7b2283e282f1f476de00589ad4af2f
# Parent  f631e828090d68280ba96e0cabb6a9778f7dc8d7
(dabbrev--goto-start-of-abbrev): Put a limit on field-beginning search.

diff -r f631e828090d -r 1b2a6ccacf7b lisp/dabbrev.el
--- a/lisp/dabbrev.el	Mon Mar 18 04:24:09 2002 +0000
+++ b/lisp/dabbrev.el	Mon Mar 18 04:24:57 2002 +0000
@@ -599,7 +599,9 @@
 	(progn
 	  (forward-char -1)
 	  (while (and (looking-at dabbrev--abbrev-char-regexp)
-		      (not (= (point) (field-beginning (point)))))
+		      (not (bobp))
+		      (not (= (point) (field-beginning (point) nil
+						       (1- (point))))))
 	    (forward-char -1))
 	  (or (looking-at dabbrev--abbrev-char-regexp)
 	      (forward-char 1))))