andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(file-cache-minibuffer-complete): Use insert instead of insert-string.

Browse source
This commit is contained in:
Pavel Janík 2001-11-26 16:21:06 +00:00
parent cc94298a24
commit add91c7b94
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/filecache.el
View file

@ -3,7 +3,7 @@
;; Author: Peter Breton <pbreton@cs.umb.edu>
;; Created: Sun Nov 10 1996
;; Keywords: convenience
;; Time-stamp: <2000-08-31 19:44:13 pbreton>
;; Time-stamp: <2001-11-26 12:03:18 pavel>
;;
;; Copyright (C) 1996, 2000 Free Software Foundation, Inc.
@ -516,7 +516,7 @@ the name is considered already unique; only the second substitution
(if (string= file-cache-string (minibuffer-contents))
(file-cache-temp-minibuffer-message file-cache-sole-match-message)
(delete-minibuffer-contents)
(insert-string file-cache-string)
(insert file-cache-string)
(if file-cache-multiple-directory-message
(file-cache-temp-minibuffer-message
file-cache-multiple-directory-message))
@ -532,7 +532,7 @@ the name is considered already unique; only the second substitution
(string= file-cache-last-completion completion-string))
(progn
(delete-minibuffer-contents)
(insert-string (file-cache-file-name completion-string))
(insert (file-cache-file-name completion-string))
(setq file-cache-last-completion nil)
)
(file-cache-temp-minibuffer-message file-cache-non-unique-message)
@ -544,7 +544,7 @@ the name is considered already unique; only the second substitution
(if (> len 1)
(progn
(goto-char (point-max))
(insert-string
(insert
(substring completion-string (length string)))
;; Add our own setup function to the Completions Buffer
(let ((completion-setup-hook
@ -561,7 +561,7 @@ the name is considered already unique; only the second substitution
(file-cache-temp-minibuffer-message
file-cache-sole-match-message)
(delete-minibuffer-contents)
(insert-string file-cache-string)
(insert file-cache-string)
(if file-cache-multiple-directory-message
(file-cache-temp-minibuffer-message
file-cache-multiple-directory-message)))