(PC-do-completion-filename-completers): New variable.

(PC-do-completion): Use it.

diff --git a/lisp/complete.el b/lisp/complete.el
index 59d59caa3f4dd07602b2046c1bf716cadbe0370c..a41e29d134c5672a2028686f36c5136807b9c2c4 100644 (file)
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -257,13 +257,17 @@ 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'.")
+
 (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 '(read-file-name-internal
-                                read-directory-name-internal)))
+        (filename (memq table PC-do-completion-filename-completers))
         (dirname nil)
         dirlength
         (str (buffer-substring beg end))