From Milan Zamazal <Milan.Zamazal@qbizm.com>:

(file-cache-minibuffer-complete): Don't try to delete the minibuffer prompt.

1 files changed, 3 insertions, 3 deletions

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