From: Richard M. Stallman Date: Mon, 6 Jun 2005 12:40:36 +0000 (+0000) Subject: (completion-setup-function): Look for completion-base-size-function X-Git-Tag: emacs-pretest-22.0.90~9265 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=77da210789914ef3f939c9b7fb77214a067ee787;p=emacs.git (completion-setup-function): Look for completion-base-size-function property of minibuffer-completion-table. --- diff --git a/lisp/simple.el b/lisp/simple.el index 6d6c3806889..097dde16d01 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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