Mercurial > emacs
comparison lisp/simple.el @ 48628:113fc3ea0bfb
(completion-setup-function): Fix last change to use
minibuffer-completing-file-name instead.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 02 Dec 2002 22:24:34 +0000 |
| parents | 37b9b1f18615 |
| children | 13c2502ecdc8 |
comparison
equal
deleted
inserted
replaced
| 48627:c91408365d35 | 48628:113fc3ea0bfb |
|---|---|
| 3920 (let ((mainbuf (current-buffer))) | 3920 (let ((mainbuf (current-buffer))) |
| 3921 (set-buffer standard-output) | 3921 (set-buffer standard-output) |
| 3922 (completion-list-mode) | 3922 (completion-list-mode) |
| 3923 (make-local-variable 'completion-reference-buffer) | 3923 (make-local-variable 'completion-reference-buffer) |
| 3924 (setq completion-reference-buffer mainbuf) | 3924 (setq completion-reference-buffer mainbuf) |
| 3925 (if (memq minibuffer-completion-table | 3925 (if minibuffer-completing-file-name |
| 3926 '(ffap-read-file-or-url-internal read-file-name-internal)) | |
| 3927 ;; For file name completion, | 3926 ;; For file name completion, |
| 3928 ;; use the number of chars before the start of the | 3927 ;; use the number of chars before the start of the |
| 3929 ;; last file name component. | 3928 ;; last file name component. |
| 3930 (setq completion-base-size | 3929 (setq completion-base-size |
| 3931 (save-excursion | 3930 (save-excursion |