Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 10:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(PC-do-completion-filename-completers): New variable.

Browse source 
(PC-do-completion): Use it.
This commit is contained in:
Richard M. Stallman 1996-03-05 21:19:11 +00:00
parent 5d6c2aa300
commit 3985c7902b
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/complete.el
View file

@ -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))