Mercurial > emacs
changeset 14759:f93ed65c0584
(PC-do-completion-filename-completers): New variable.
(PC-do-completion): Use it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 05 Mar 1996 21:19:11 +0000 |
| parents | 849458c13c0c |
| children | c6e53d665cec |
| files | lisp/complete.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))