# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1118061636 0
# Node ID a473771b436f4d6f5cfee6163024c8a4b61eb06d
# Parent  ab68a12df35aad2c6a254e1b2f71cdc31663f7dc
(completion-setup-function): Look for completion-base-size-function
property of minibuffer-completion-table.

diff -r ab68a12df35a -r a473771b436f lisp/simple.el
--- a/lisp/simple.el	Mon Jun 06 12:37:46 2005 +0000
+++ b/lisp/simple.el	Mon Jun 06 12:40:36 2005 +0000
@@ -4833,7 +4833,11 @@
 		    (- (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