(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 a41e29d134c5672a2028686f36c5136807b9c2c4..65d2fe07ce375cdfcbd8c6ac99df39c1a6289580 100644 (file)
--- 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))