diff options
| author | Richard M. Stallman | 2002-12-02 16:18:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-12-02 16:18:33 +0000 |
| commit | 15c064363c828cbf12172ad19905f1c29bd2cfb7 (patch) | |
| tree | 77013caca9c7f5aad7384b767dda26b7a601623b | |
| parent | 0179b8465125662fca4b329791bc9b29aff39c45 (diff) | |
| download | emacs-15c064363c828cbf12172ad19905f1c29bd2cfb7.tar.gz emacs-15c064363c828cbf12172ad19905f1c29bd2cfb7.zip | |
(completion-setup-function): Handle ffap-read-file-or-url-internal
specially like read-file-name-internal.
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 0b3c14d72ac..62578bdfa6e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -3922,7 +3922,8 @@ 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 (eq minibuffer-completion-table 'read-file-name-internal) | 3925 | (if (memq minibuffer-completion-table |
| 3926 | '(ffap-read-file-or-url-internal read-file-name-internal)) | ||
| 3926 | ;; For file name completion, | 3927 | ;; For file name completion, |
| 3927 | ;; use the number of chars before the start of the | 3928 | ;; use the number of chars before the start of the |
| 3928 | ;; last file name component. | 3929 | ;; last file name component. |