4833 |
(- (point) (minibuffer-prompt-end))))) |
(- (point) (minibuffer-prompt-end))))) |
4834 |
;; Otherwise, in minibuffer, the whole input is being completed. |
;; Otherwise, in minibuffer, the whole input is being completed. |
4835 |
(if (minibufferp mainbuf) |
(if (minibufferp mainbuf) |
4836 |
(setq completion-base-size 0))) |
(if (and (symbolp minibuffer-completion-table) |
4837 |
|
(get minibuffer-completion-table 'completion-base-size-function)) |
4838 |
|
(setq completion-base-size |
4839 |
|
(funcall (get minibuffer-completion-table 'completion-base-size-function))) |
4840 |
|
(setq completion-base-size 0)))) |
4841 |
;; Put faces on first uncommon characters and common parts. |
;; Put faces on first uncommon characters and common parts. |
4842 |
(when completion-base-size |
(when completion-base-size |
4843 |
(let* ((common-string-length |
(let* ((common-string-length |