diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-04-25 14:57:09 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-04-25 14:57:09 -0400 |
commit | cc356a5d470c0b9b0cb7034c8b25a729a38d58a1 (patch) | |
tree | b88299f7c27c07d8ed9beb2bffbdc8d2b1e7f276 /lisp/ffap.el | |
parent | b4ff4f1fcb552dab77d4312f9adb9f290782fa98 (diff) | |
download | emacs-cc356a5d470c0b9b0cb7034c8b25a729a38d58a1.tar.gz |
Remove unnecessary use of minibuffer-completing-file-name.
* lisp/ffap.el: Remove old code for obsolete package.
(ffap-complete-as-file-p): Remove.
* lisp/mh-e/mh-utils.el (minibuffer-completing-file-name): Don't declare.
Diffstat (limited to 'lisp/ffap.el')
-rw-r--r-- | lisp/ffap.el | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 52ffc9905ed..7ab6a75406d 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -1340,20 +1340,6 @@ which may actually result in an URL rather than a filename." ;; We must inform complete about whether our completion function ;; will do filename style completion. -(defun ffap-complete-as-file-p () - ;; Will `minibuffer-completion-table' complete the minibuffer - ;; contents as a filename? Assumes the minibuffer is current. - ;; 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 - (and minibuffer-completing-file-name '(t)))) ;list - -(and - (featurep 'complete) - (if (boundp 'PC-completion-as-file-name-predicate) - ;; modern version of complete.el, just set the variable: - (setq PC-completion-as-file-name-predicate 'ffap-complete-as-file-p))) - ;;; Highlighting (`ffap-highlight'): ;; |