From: Miles Bader <miles@gnu.org>
Date: Fri, 1 Dec 2000 02:59:07 +0000 (+0000)
Subject: From Milan Zamazal <Milan.Zamazal@qbizm.com>:
X-Git-Tag: emacs-pretest-21.0.93~325
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5b1993e019e5d59af44803f82649ebd9d2b795d;p=emacs.git

From Milan Zamazal <Milan.Zamazal@qbizm.com>:
(file-cache-minibuffer-complete): Don't try to delete the minibuffer prompt.
---

diff --git a/lisp/filecache.el b/lisp/filecache.el
index c21b93ba711..73baa8487ef 100644
--- a/lisp/filecache.el
+++ b/lisp/filecache.el
@@ -515,7 +515,7 @@ the name is considered already unique; only the second substitution
       (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 @@ the name is considered already unique; only the second substitution
 	  (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 @@ the name is considered already unique; only the second substitution
 	  (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