# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 826060751 0
# Node ID f93ed65c05843329b221d36d79d8a48711155f04
# Parent  849458c13c0c6d5ea8a72affa30882d5fa76f939
(PC-do-completion-filename-completers): New variable.
(PC-do-completion): Use it.

diff -r 849458c13c0c -r f93ed65c0584 lisp/complete.el
--- a/lisp/complete.el	Tue Mar 05 17:33:27 1996 +0000
+++ b/lisp/complete.el	Tue Mar 05 21:19:11 1996 +0000
@@ -257,13 +257,17 @@
 (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))