From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 10 Feb 2003 22:21:46 +0000 (+0000)
Subject: (ffap-complete-as-file-p): Use minibuffer-completing-file-name.
X-Git-Tag: ttn-vms-21-2-B4~11268
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9925c4191b6deb8efd24dceed27ff2aa62b6fa05;p=emacs.git

(ffap-complete-as-file-p): Use minibuffer-completing-file-name.
---

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 56294cf6d81..2d481a5e46f 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1240,9 +1240,7 @@ which may actually result in an url rather than a filename."
   ;; 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)