diff options
| author | Miles Bader <miles@gnu.org> | 2000-12-01 02:59:07 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2000-12-01 02:59:07 +0000 |
| commit | d5b1993e019e5d59af44803f82649ebd9d2b795d (patch) | |
| tree | 1dd210cc02bd06c6498a606131a8693d97b764c6 /lisp/filecache.el | |
| parent | 31b6671b0f630bb35cc964eaa49bc0404b6651e3 (diff) | |
| download | emacs-d5b1993e019e5d59af44803f82649ebd9d2b795d.tar.gz | |
From Milan Zamazal <Milan.Zamazal@qbizm.com>:
(file-cache-minibuffer-complete): Don't try to delete the minibuffer prompt.
Diffstat (limited to 'lisp/filecache.el')
| -rw-r--r-- | lisp/filecache.el | 6 |
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 |