aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPavel Janík2001-11-26 16:21:06 +0000
committerPavel Janík2001-11-26 16:21:06 +0000
commitadd91c7b9459a2c10da71960130f5cf78f234290 (patch)
tree21474422ea8bcaae2124427e98810bae239f4fdb
parentcc94298a241fd5b83e7c1e92ebb72cdfe5f4a8ec (diff)
downloademacs-add91c7b9459a2c10da71960130f5cf78f234290.tar.gz
emacs-add91c7b9459a2c10da71960130f5cf78f234290.zip
(file-cache-minibuffer-complete): Use insert instead of insert-string.
-rw-r--r--lisp/filecache.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/filecache.el b/lisp/filecache.el
index e421e5dd8f0..b27aceae1ea 100644
--- a/lisp/filecache.el
+++ b/lisp/filecache.el
@@ -3,7 +3,7 @@
3;; Author: Peter Breton <pbreton@cs.umb.edu> 3;; Author: Peter Breton <pbreton@cs.umb.edu>
4;; Created: Sun Nov 10 1996 4;; Created: Sun Nov 10 1996
5;; Keywords: convenience 5;; Keywords: convenience
6;; Time-stamp: <2000-08-31 19:44:13 pbreton> 6;; Time-stamp: <2001-11-26 12:03:18 pavel>
7;; 7;;
8;; Copyright (C) 1996, 2000 Free Software Foundation, Inc. 8;; Copyright (C) 1996, 2000 Free Software Foundation, Inc.
9 9
@@ -516,7 +516,7 @@ the name is considered already unique; only the second substitution
516 (if (string= file-cache-string (minibuffer-contents)) 516 (if (string= file-cache-string (minibuffer-contents))
517 (file-cache-temp-minibuffer-message file-cache-sole-match-message) 517 (file-cache-temp-minibuffer-message file-cache-sole-match-message)
518 (delete-minibuffer-contents) 518 (delete-minibuffer-contents)
519 (insert-string file-cache-string) 519 (insert file-cache-string)
520 (if file-cache-multiple-directory-message 520 (if file-cache-multiple-directory-message
521 (file-cache-temp-minibuffer-message 521 (file-cache-temp-minibuffer-message
522 file-cache-multiple-directory-message)) 522 file-cache-multiple-directory-message))
@@ -532,7 +532,7 @@ the name is considered already unique; only the second substitution
532 (string= file-cache-last-completion completion-string)) 532 (string= file-cache-last-completion completion-string))
533 (progn 533 (progn
534 (delete-minibuffer-contents) 534 (delete-minibuffer-contents)
535 (insert-string (file-cache-file-name completion-string)) 535 (insert (file-cache-file-name completion-string))
536 (setq file-cache-last-completion nil) 536 (setq file-cache-last-completion nil)
537 ) 537 )
538 (file-cache-temp-minibuffer-message file-cache-non-unique-message) 538 (file-cache-temp-minibuffer-message file-cache-non-unique-message)
@@ -544,7 +544,7 @@ the name is considered already unique; only the second substitution
544 (if (> len 1) 544 (if (> len 1)
545 (progn 545 (progn
546 (goto-char (point-max)) 546 (goto-char (point-max))
547 (insert-string 547 (insert
548 (substring completion-string (length string))) 548 (substring completion-string (length string)))
549 ;; Add our own setup function to the Completions Buffer 549 ;; Add our own setup function to the Completions Buffer
550 (let ((completion-setup-hook 550 (let ((completion-setup-hook
@@ -561,7 +561,7 @@ the name is considered already unique; only the second substitution
561 (file-cache-temp-minibuffer-message 561 (file-cache-temp-minibuffer-message
562 file-cache-sole-match-message) 562 file-cache-sole-match-message)
563 (delete-minibuffer-contents) 563 (delete-minibuffer-contents)
564 (insert-string file-cache-string) 564 (insert file-cache-string)
565 (if file-cache-multiple-directory-message 565 (if file-cache-multiple-directory-message
566 (file-cache-temp-minibuffer-message 566 (file-cache-temp-minibuffer-message
567 file-cache-multiple-directory-message))) 567 file-cache-multiple-directory-message)))