From d5b1993e019e5d59af44803f82649ebd9d2b795d Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 1 Dec 2000 02:59:07 +0000 Subject: [PATCH] From Milan Zamazal : (file-cache-minibuffer-complete): Don't try to delete the minibuffer prompt. --- lisp/filecache.el | 6 +++--- 1 file 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 -- 2.39.5