From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 2 Dec 2002 16:18:33 +0000 (+0000)
Subject: (completion-setup-function): Handle ffap-read-file-or-url-internal
X-Git-Tag: ttn-vms-21-2-B4~12204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15c064363c828cbf12172ad19905f1c29bd2cfb7;p=emacs.git

(completion-setup-function): Handle ffap-read-file-or-url-internal
specially like read-file-name-internal.
---

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'.")
       (completion-list-mode)
       (make-local-variable 'completion-reference-buffer)
       (setq completion-reference-buffer mainbuf)
-      (if (eq minibuffer-completion-table 'read-file-name-internal)
+      (if (memq minibuffer-completion-table
+		'(ffap-read-file-or-url-internal read-file-name-internal))
 	  ;; For file name completion,
 	  ;; use the number of chars before the start of the
 	  ;; last file name component.