diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-02-10 22:21:46 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-02-10 22:21:46 +0000 |
| commit | 9925c4191b6deb8efd24dceed27ff2aa62b6fa05 (patch) | |
| tree | 658c75a7be2aba83985c8b003a69f341a4458965 /lisp/ffap.el | |
| parent | 4c86cca05a3fe3321f168ffde71871eb3102d464 (diff) | |
| download | emacs-9925c4191b6deb8efd24dceed27ff2aa62b6fa05.tar.gz | |
(ffap-complete-as-file-p): Use minibuffer-completing-file-name.
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 4 |
1 files changed, 1 insertions, 3 deletions
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) |