diff options
| -rw-r--r-- | lisp/complete.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/complete.el b/lisp/complete.el index 59d59caa3f4..a41e29d134c 100644 --- 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)) |