changeset 43981:1b2a6ccacf7b

(dabbrev--goto-start-of-abbrev): Put a limit on field-beginning search.
author Richard M. Stallman <rms@gnu.org>
date Mon, 18 Mar 2002 04:24:57 +0000
parents f631e828090d
children a40fcee55faa
files lisp/dabbrev.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))))