[Emacs-diffs] Changes to emacs/lisp/simple.el

[Masatake YAMATO]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.757 emacs/lisp/simple.el:1.758
*** emacs/lisp/simple.el:1.757  Sun Oct 23 18:26:38 2005
--- emacs/lisp/simple.el        Mon Oct 24 16:56:53 2005
***************
*** 4921,4931 ****
                      (funcall (get minibuffer-completion-table 
'completion-base-size-function)))
              (setq completion-base-size 0))))
        ;; Put faces on first uncommon characters and common parts.
!       (when (or completion-base-size completion-common-substring)
        (let* ((common-string-length
!               (if completion-base-size
!                   (- (length mbuf-contents) completion-base-size)
!                 (length completion-common-substring)))
               (element-start (next-single-property-change
                               (point-min)
                               'mouse-face))
--- 4921,4931 ----
                      (funcall (get minibuffer-completion-table 
'completion-base-size-function)))
              (setq completion-base-size 0))))
        ;; Put faces on first uncommon characters and common parts.
!       (when (or completion-common-substring completion-base-size)
        (let* ((common-string-length
!               (if completion-common-substring
!                   (length completion-common-substring)
!                 (- (length mbuf-contents) completion-base-size)))
               (element-start (next-single-property-change
                               (point-min)
                               'mouse-face))