Mercurial > emacs

changeset 34070:03fa22658c6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
From Milan Zamazal <Milan.Zamazal@qbizm.com>: (file-cache-minibuffer-complete): Don't try to delete the minibuffer prompt.
author Miles Bader <miles@gnu.org>
date Fri, 01 Dec 2000 02:59:07 +0000
parents 4edb25c6c86a
children e54fa77a9d6e
files lisp/filecache.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/filecache.el	Thu Nov 30 21:57:27 2000 +0000
+++ b/lisp/filecache.el	Fri Dec 01 02:59:07 2000 +0000
@@ -515,7 +515,7 @@
       (setq file-cache-string (file-cache-file-name string))
       (if (string= file-cache-string (buffer-string))
 	  (file-cache-temp-minibuffer-message file-cache-sole-match-message)
-	(erase-buffer)
+	(delete-region (minibuffer-prompt-end) (point-max))
 	(insert-string file-cache-string)
 	(if file-cache-multiple-directory-message
 	    (file-cache-temp-minibuffer-message
@@ -531,7 +531,7 @@
 	  (if (and (eq last-command this-command)
 		   (string= file-cache-last-completion completion-string))
 	      (progn
-		(erase-buffer)
+		(delete-region (minibuffer-prompt-end) (point-max))
 		(insert-string (file-cache-file-name completion-string))
 		(setq file-cache-last-completion nil)
 		)
@@ -560,7 +560,7 @@
 	  (if (string= file-cache-string (buffer-string))
 	      (file-cache-temp-minibuffer-message
 	       file-cache-sole-match-message)
-	    (erase-buffer)
+	    (delete-region (minibuffer-prompt-end) (point-max))
 	    (insert-string file-cache-string)
 	    (if file-cache-multiple-directory-message
 		(file-cache-temp-minibuffer-message