diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-05 21:19:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-05 21:19:11 +0000 |
| commit | 292edebf50bb809c0361ceb63f057147dae2c59c (patch) | |
| tree | ceb94b35f7fa9aea52054b9055fa5b5661763225 | |
| parent | bece08eb00ba59d5831b427e7ccaf9722580a1da (diff) | |
| download | emacs-292edebf50bb809c0361ceb63f057147dae2c59c.tar.gz | |
(PC-do-completion-filename-completers): New variable.
(PC-do-completion): Use it.
| -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)) |