From 77da210789914ef3f939c9b7fb77214a067ee787 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 6 Jun 2005 12:40:36 +0000 Subject: [PATCH] (completion-setup-function): Look for completion-base-size-function property of minibuffer-completion-table. --- lisp/simple.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 -- 2.39.5