From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 6 Mar 1996 05:12:07 +0000 (+0000)
Subject: (PC-completion-as-file-name-predicate):
X-Git-Tag: emacs-19.34~1095
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=249f7eebfd96d9c09cdedcd234d6702090f582d4;p=emacs.git

(PC-completion-as-file-name-predicate):
Replace PC-do-completion-filename-completers.
(PC-do-completion): Use that.
---

diff --git a/lisp/complete.el b/lisp/complete.el
index a41e29d134c..65d2fe07ce3 100644
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -257,17 +257,21 @@ See `PC-complete' for details."
 (defvar PC-ndelims-regex nil)
 (defvar PC-delims-list nil)
 
-(defvar PC-do-completion-filename-completers
-  '(read-file-name-internal read-directory-name-internal)
-  "Completion functions that do file-name style completion.
-The elements are compared with the value of `minibuffer-completion-table'.")
+(defvar PC-completion-as-file-name-predicate
+  (function
+   (lambda ()
+     (memq minibuffer-completion-table
+	   '(read-file-name-internal read-directory-name-internal))))
+   "A function testing whether a minibuffer completion now will work filename-style.
+The function takes no arguments, and typically looks at the value
+of `minibuffer-completion-table' and the minibuffer contents.")
 
 (defun PC-do-completion (&optional mode beg end)
   (or beg (setq beg (point-min)))
   (or end (setq end (point-max)))
   (let* ((table minibuffer-completion-table)
 	 (pred minibuffer-completion-predicate)
-	 (filename (memq table PC-do-completion-filename-completers))
+	 (filename (funcall PC-completion-as-file-name-predicate))
 	 (dirname nil)
 	 dirlength
 	 (str (buffer-substring beg end))