# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1054638443 0
# Node ID 509508a9242216d19760e96ec840394c8deb5b89
# Parent  79dc5a8eacfed79222fcd7be0e6ee78be9e7682d
(dabbrev--goto-start-of-abbrev): Use minibuffer-prompt-end.

diff -r 79dc5a8eacfe -r 509508a92422 lisp/dabbrev.el
--- a/lisp/dabbrev.el	Tue Jun 03 11:06:42 2003 +0000
+++ b/lisp/dabbrev.el	Tue Jun 03 11:07:23 2003 +0000
@@ -613,16 +613,15 @@
 (defun dabbrev--goto-start-of-abbrev ()
   ;; Move backwards over abbrev chars
   (save-match-data
-    (if (not (bobp))
-	(progn
-	  (forward-char -1)
-	  (while (and (looking-at dabbrev--abbrev-char-regexp)
-		      (not (bobp))
-		      (not (= (point) (field-beginning (point) nil
-						       (1- (point))))))
-	    (forward-char -1))
-	  (or (looking-at dabbrev--abbrev-char-regexp)
-	      (forward-char 1))))
+    (when (> (point) (minibuffer-prompt-end))
+      (forward-char -1)
+      (while (and (looking-at dabbrev--abbrev-char-regexp)
+		  (> (point) (minibuffer-prompt-end))
+		  (not (= (point) (field-beginning (point) nil
+						   (1- (point))))))
+	(forward-char -1))
+      (or (looking-at dabbrev--abbrev-char-regexp)
+	  (forward-char 1)))
     (and dabbrev-abbrev-skip-leading-regexp
 	 (while (looking-at dabbrev-abbrev-skip-leading-regexp)
 	   (forward-char 1)))))