andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(PC-is-complete-p): delete.

Browse source 
(PC-do-completion): Replace all calls to `PC-is-complete-p' with calls
to `test-completion'.
This commit is contained in:
Luc Teirlinck 2003-12-23 23:42:28 +00:00
parent 99b994179c
commit 1b368e3120
1 changed files with 3 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/complete.el
View file

@ -368,7 +368,7 @@ of `minibuffer-completion-table' and the minibuffer contents.")
;; Check if buffer contents can already be considered complete
(if (and (eq mode 'exit)
(PC-is-complete-p str table pred))
(test-completion str table pred))
'complete
;; Do substitutions in directory names
@ -641,7 +641,7 @@ of `minibuffer-completion-table' and the minibuffer contents.")
(if improved
;; We changed it... would it be complete without the space?
(if (PC-is-complete-p (buffer-substring 1 (1- end))
(if (test-completion (buffer-substring 1 (1- end))
table pred)
(delete-region (1- end) end)))
@ -649,7 +649,7 @@ of `minibuffer-completion-table' and the minibuffer contents.")
;; We changed it... enough to be complete?
(and (eq mode 'exit)
(PC-is-complete-p (field-string) table pred))
(test-completion (field-string) table pred))
;; If totally ambiguous, display a list of completions
(if (or (eq completion-auto-help t)
@ -680,20 +680,6 @@ of `minibuffer-completion-table' and the minibuffer contents.")
(car poss)))))
t)))))
(defun PC-is-complete-p (str table pred)
(let ((res (if (listp table)
(assoc str table)
(if (vectorp table)
(or (equal str "nil") ; heh, heh, heh
(intern-soft str table))
(funcall table str pred 'lambda)))))
(and res
(or (not pred)
(and (not (listp table)) (not (vectorp table)))
(funcall pred res))
res)))
(defun PC-chop-word (new old)
(let ((i -1)
(j -1))