Mercurial > emacs
changeset 63063:a473771b436f
(completion-setup-function): Look for completion-base-size-function
property of minibuffer-completion-table.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 06 Jun 2005 12:40:36 +0000 |
| parents | ab68a12df35a |
| children | 7e053d892401 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon Jun 06 12:37:46 2005 +0000 +++ b/lisp/simple.el Mon Jun 06 12:40:36 2005 +0000 @@ -4833,7 +4833,11 @@ (- (point) (minibuffer-prompt-end))))) ;; Otherwise, in minibuffer, the whole input is being completed. (if (minibufferp mainbuf) - (setq completion-base-size 0))) + (if (and (symbolp minibuffer-completion-table) + (get minibuffer-completion-table 'completion-base-size-function)) + (setq completion-base-size + (funcall (get minibuffer-completion-table 'completion-base-size-function))) + (setq completion-base-size 0)))) ;; Put faces on first uncommon characters and common parts. (when completion-base-size (let* ((common-string-length