Commit 77da2107 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

property of minibuffer-completion-table.
parent c476bcb0
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment