diff options
| author | Stefan Monnier | 2002-12-02 22:24:34 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-12-02 22:24:34 +0000 |
| commit | 2d64b6f696fc229566219da2b16295e7a5f7a30e (patch) | |
| tree | 018f5a3fe09bcef219e944779b998bb13074cb13 | |
| parent | 45adde3246593cb0710ca6976ac536ce3d798c6e (diff) | |
| download | emacs-2d64b6f696fc229566219da2b16295e7a5f7a30e.tar.gz emacs-2d64b6f696fc229566219da2b16295e7a5f7a30e.zip | |
(completion-setup-function): Fix last change to use
minibuffer-completing-file-name instead.
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 62578bdfa6e..67f0edb2628 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -3922,8 +3922,7 @@ The completion list buffer is available as the value of `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. |