mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(PC-completion-as-file-name-predicate):

Browse Source 
Replace PC-do-completion-filename-completers.
(PC-do-completion): Use that.
This commit is contained in:
Richard M. Stallman 1996-03-06 05:12:07 +00:00
parent 0e7ff58fab
commit 249f7eebfd
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/complete.el
View File

@ -257,17 +257,21 @@ 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'.")
(defvar PC-completion-as-file-name-predicate
(function
(lambda ()
(memq minibuffer-completion-table
'(read-file-name-internal read-directory-name-internal))))
"A function testing whether a minibuffer completion now will work filename-style.
The function takes no arguments, and typically looks at the value
of `minibuffer-completion-table' and the minibuffer contents.")
(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 PC-do-completion-filename-completers))
(filename (funcall PC-completion-as-file-name-predicate))
(dirname nil)
dirlength
(str (buffer-substring beg end))