# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1038845913 0
# Node ID 37b9b1f186158298023da27904abab49f1279aee
# Parent  cdcae124043454930893e6940822967e95f9b6e0
(completion-setup-function): Handle ffap-read-file-or-url-internal
specially like read-file-name-internal.

diff -r cdcae1240434 -r 37b9b1f18615 lisp/simple.el
--- a/lisp/simple.el	Mon Dec 02 16:17:29 2002 +0000
+++ b/lisp/simple.el	Mon Dec 02 16:18:33 2002 +0000
@@ -3922,7 +3922,8 @@
       (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.