Mercurial > emacs

diff lisp/simple.el @ 63063:a473771b436f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(completion-setup-function): Look for completion-base-size-function property of minibuffer-completion-table.
author Richard M. Stallman <rms@gnu.org>
date Mon, 06 Jun 2005 12:40:36 +0000
parents e7db86688ce6
children bbac4c8066b4
line wrap: on
line diff
--- 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