Mercurial > emacs

changeset 51422:509508a92422

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dabbrev--goto-start-of-abbrev): Use minibuffer-prompt-end.
author Richard M. Stallman <rms@gnu.org>
date Tue, 03 Jun 2003 11:07:23 +0000
parents 79dc5a8eacfe
children 4b0652a2bde5
files lisp/dabbrev.el
diffstat 1 files changed, 9 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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)))))