# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1044915706 0
# Node ID 3738a81ff66f9a767f03e616a5f9742a62f67dae
# Parent  ae8bfbc6d9efd75654275904533ec845366774dd
(ffap-complete-as-file-p): Use minibuffer-completing-file-name.

diff -r ae8bfbc6d9ef -r 3738a81ff66f lisp/ffap.el
--- a/lisp/ffap.el	Mon Feb 10 22:20:47 2003 +0000
+++ b/lisp/ffap.el	Mon Feb 10 22:21:46 2003 +0000
@@ -1240,9 +1240,7 @@
   ;; Note: t and non-nil mean somewhat different reasons.
   (if (eq minibuffer-completion-table 'ffap-read-file-or-url-internal)
       (not (ffap-url-p (buffer-string))) ; t
-    (memq minibuffer-completion-table
-	  '(read-file-name-internal read-directory-name-internal)) ; list
-    ))
+    (and minibuffer-completing-file-name '(t)))) ;list
 
 (and
  (featurep 'complete)