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 | a13814bf16536daed528e90e47e92614fa540cc6 (patch) | |
| tree | 96376276129f3176124db2cc7adc74ea9d717b6d /lisp/ffap.el | |
| parent | ca0953bd15e0ff6324139fc4cca13d1baf350dcb (diff) | |
| download | emacs-a13814bf16536daed528e90e47e92614fa540cc6.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) |