Mercurial > emacs
diff lisp/filecache.el @ 41568:1aef79dfa6fe
(file-cache-minibuffer-complete): Use insert instead of insert-string.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Mon, 26 Nov 2001 16:21:06 +0000 |
| parents | 24c9291f8fa8 |
| children | dc980af6073b |
line wrap: on
line diff
--- a/lisp/filecache.el Mon Nov 26 16:20:18 2001 +0000 +++ b/lisp/filecache.el Mon Nov 26 16:21:06 2001 +0000 @@ -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 @@ (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 @@ (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 @@ (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 @@ (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)))