procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(completion-setup-function): Look for completion-base-size-function

Browse source 
property of minibuffer-completion-table.
This commit is contained in:
Richard M. Stallman 2005-06-06 12:40:36 +00:00
parent c476bcb06c
commit 77da210789
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/simple.el
View file

@ -4833,7 +4833,11 @@ of the differing parts is, by contrast, slightly highlighted."
(- (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