From cc356a5d470c0b9b0cb7034c8b25a729a38d58a1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 25 Apr 2012 14:57:09 -0400 Subject: 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. --- lisp/ffap.el | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'lisp/ffap.el') 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'): ;; -- cgit v1.2.1