Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.726 emacs/lisp/simple.el:1.727
*** emacs/lisp/simple.el:1.726 Sun Jun 5 17:19:55 2005
--- emacs/lisp/simple.el Mon Jun 6 12:40:36 2005
***************
*** 4833,4839 ****
(- (point) (minibuffer-prompt-end)))))
;; Otherwise, in minibuffer, the whole input is being completed.
(if (minibufferp mainbuf)
! (setq completion-base-size 0)))
;; Put faces on first uncommon characters and common parts.
(when completion-base-size
(let* ((common-string-length
--- 4833,4843 ----
(- (point) (minibuffer-prompt-end)))))
;; Otherwise, in minibuffer, the whole input is being completed.
(if (minibufferp mainbuf)
! (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
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
