From: Luc Teirlinck Date: Tue, 23 Dec 2003 23:42:28 +0000 (+0000) Subject: (PC-is-complete-p): delete. X-Git-Tag: ttn-vms-21-2-B4~8204 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b368e312002e1863afa0c6fcf7075aea586eabd;p=emacs.git (PC-is-complete-p): delete. (PC-do-completion): Replace all calls to `PC-is-complete-p' with calls to `test-completion'. --- diff --git a/lisp/complete.el b/lisp/complete.el index 130d0ecb31f..d3c5de459d5 100644 --- a/lisp/complete.el +++ b/lisp/complete.el @@ -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))