3 |
;; Author: Peter Breton <pbreton@cs.umb.edu> |
;; Author: Peter Breton <pbreton@cs.umb.edu> |
4 |
;; Created: Sun Nov 10 1996 |
;; Created: Sun Nov 10 1996 |
5 |
;; Keywords: convenience |
;; Keywords: convenience |
6 |
;; Time-stamp: <2000-08-31 19:44:13 pbreton> |
;; Time-stamp: <2001-11-26 12:03:18 pavel> |
7 |
;; |
;; |
8 |
;; Copyright (C) 1996, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1996, 2000 Free Software Foundation, Inc. |
9 |
|
|
516 |
(if (string= file-cache-string (minibuffer-contents)) |
(if (string= file-cache-string (minibuffer-contents)) |
517 |
(file-cache-temp-minibuffer-message file-cache-sole-match-message) |
(file-cache-temp-minibuffer-message file-cache-sole-match-message) |
518 |
(delete-minibuffer-contents) |
(delete-minibuffer-contents) |
519 |
(insert-string file-cache-string) |
(insert file-cache-string) |
520 |
(if file-cache-multiple-directory-message |
(if file-cache-multiple-directory-message |
521 |
(file-cache-temp-minibuffer-message |
(file-cache-temp-minibuffer-message |
522 |
file-cache-multiple-directory-message)) |
file-cache-multiple-directory-message)) |
532 |
(string= file-cache-last-completion completion-string)) |
(string= file-cache-last-completion completion-string)) |
533 |
(progn |
(progn |
534 |
(delete-minibuffer-contents) |
(delete-minibuffer-contents) |
535 |
(insert-string (file-cache-file-name completion-string)) |
(insert (file-cache-file-name completion-string)) |
536 |
(setq file-cache-last-completion nil) |
(setq file-cache-last-completion nil) |
537 |
) |
) |
538 |
(file-cache-temp-minibuffer-message file-cache-non-unique-message) |
(file-cache-temp-minibuffer-message file-cache-non-unique-message) |
544 |
(if (> len 1) |
(if (> len 1) |
545 |
(progn |
(progn |
546 |
(goto-char (point-max)) |
(goto-char (point-max)) |
547 |
(insert-string |
(insert |
548 |
(substring completion-string (length string))) |
(substring completion-string (length string))) |
549 |
;; Add our own setup function to the Completions Buffer |
;; Add our own setup function to the Completions Buffer |
550 |
(let ((completion-setup-hook |
(let ((completion-setup-hook |
561 |
(file-cache-temp-minibuffer-message |
(file-cache-temp-minibuffer-message |
562 |
file-cache-sole-match-message) |
file-cache-sole-match-message) |
563 |
(delete-minibuffer-contents) |
(delete-minibuffer-contents) |
564 |
(insert-string file-cache-string) |
(insert file-cache-string) |
565 |
(if file-cache-multiple-directory-message |
(if file-cache-multiple-directory-message |
566 |
(file-cache-temp-minibuffer-message |
(file-cache-temp-minibuffer-message |
567 |
file-cache-multiple-directory-message))) |
file-cache-multiple-directory-message))) |