mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

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

Browse Source 
(file-cache-minibuffer-complete): Don't try to delete the minibuffer prompt.
This commit is contained in:
Miles Bader 2000-12-01 02:59:07 +00:00
parent 31b6671b0f
commit d5b1993e01
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/filecache.el
View File

@ -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