# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1038867874 0
# Node ID 113fc3ea0bfbc9dacf0f99bfcc47cbf264484f8a
# Parent  c91408365d359534132f7b5bb580c56499304206
(completion-setup-function): Fix last change to use
minibuffer-completing-file-name instead.

diff -r c91408365d35 -r 113fc3ea0bfb lisp/simple.el
--- a/lisp/simple.el	Mon Dec 02 20:57:42 2002 +0000
+++ b/lisp/simple.el	Mon Dec 02 22:24:34 2002 +0000
@@ -3922,8 +3922,7 @@
       (completion-list-mode)
       (make-local-variable 'completion-reference-buffer)
       (setq completion-reference-buffer mainbuf)
-      (if (memq minibuffer-completion-table
-		'(ffap-read-file-or-url-internal read-file-name-internal))
+      (if minibuffer-completing-file-name
 	  ;; For file name completion,
 	  ;; use the number of chars before the start of the
 	  ;; last file name component.