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 | 3985c7902bbb45e17bc6ddbf20e1732dad44c81b (patch) | |
| tree | df1b3c51ceac9f236970b55e283232fc1c5f2909 /lisp/complete.el | |
| parent | 5d6c2aa300959bbb694de29a9d9f9f7f096e03df (diff) | |
| download | emacs-3985c7902bbb45e17bc6ddbf20e1732dad44c81b.tar.gz | |
(PC-do-completion-filename-completers): New variable.
(PC-do-completion): Use it.
Diffstat (limited to 'lisp/complete.el')
| -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)) |