diff options
| author | Pavel Janík | 2001-11-26 16:21:06 +0000 |
|---|---|---|
| committer | Pavel Janík | 2001-11-26 16:21:06 +0000 |
| commit | add91c7b9459a2c10da71960130f5cf78f234290 (patch) | |
| tree | 21474422ea8bcaae2124427e98810bae239f4fdb | |
| parent | cc94298a241fd5b83e7c1e92ebb72cdfe5f4a8ec (diff) | |
| download | emacs-add91c7b9459a2c10da71960130f5cf78f234290.tar.gz emacs-add91c7b9459a2c10da71960130f5cf78f234290.zip | |
(file-cache-minibuffer-complete): Use insert instead of insert-string.
| -rw-r--r-- | lisp/filecache.el | 10 |
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))) |