diff options
| author | Stefan Monnier | 2003-02-10 22:21:46 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-02-10 22:21:46 +0000 |
| commit | 9925c4191b6deb8efd24dceed27ff2aa62b6fa05 (patch) | |
| tree | 658c75a7be2aba83985c8b003a69f341a4458965 | |
| parent | 4c86cca05a3fe3321f168ffde71871eb3102d464 (diff) | |
| download | emacs-9925c4191b6deb8efd24dceed27ff2aa62b6fa05.tar.gz emacs-9925c4191b6deb8efd24dceed27ff2aa62b6fa05.zip | |
(ffap-complete-as-file-p): Use minibuffer-completing-file-name.
| -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." | |||
| 1240 | ;; Note: t and non-nil mean somewhat different reasons. | 1240 | ;; Note: t and non-nil mean somewhat different reasons. |
| 1241 | (if (eq minibuffer-completion-table 'ffap-read-file-or-url-internal) | 1241 | (if (eq minibuffer-completion-table 'ffap-read-file-or-url-internal) |
| 1242 | (not (ffap-url-p (buffer-string))) ; t | 1242 | (not (ffap-url-p (buffer-string))) ; t |
| 1243 | (memq minibuffer-completion-table | 1243 | (and minibuffer-completing-file-name '(t)))) ;list |
| 1244 | '(read-file-name-internal read-directory-name-internal)) ; list | ||
| 1245 | )) | ||
| 1246 | 1244 | ||
| 1247 | (and | 1245 | (and |
| 1248 | (featurep 'complete) | 1246 | (featurep 'complete) |