(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 6d6c3806889ac74c5e2d28592f7f39f42f4ce80c..097dde16d01850b53785d87c21649c55722f9104 100644 (file)
--- 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