/[emacs]/emacs/lisp/filecache.el
ViewVC logotype

Diff of /emacs/lisp/filecache.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by miles, Fri Dec 1 03:33:28 2000 UTC revision 1.13 by pj, Mon Nov 26 16:21:06 2001 UTC
# Line 3  Line 3 
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    
# Line 516  the name is considered already unique; o Line 516  the name is considered already unique; o
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))
# Line 532  the name is considered already unique; o Line 532  the name is considered already unique; o
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)
# Line 544  the name is considered already unique; o Line 544  the name is considered already unique; o
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
# Line 561  the name is considered already unique; o Line 561  the name is considered already unique; o
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)))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26