/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.726 by kfstorm, Sun Jun 5 17:19:55 2005 UTC revision 1.727 by rms, Mon Jun 6 12:40:36 2005 UTC
# Line 4833  of the differing parts is, by contrast, Line 4833  of the differing parts is, by contrast,
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

Legend:
Removed from v.1.726  
changed lines
  Added in v.1.727

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26