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

[Juri Linkov]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.776 emacs/lisp/simple.el:1.777
*** emacs/lisp/simple.el:1.776  Fri Dec  2 03:31:21 2005
--- emacs/lisp/simple.el        Sun Dec  4 02:42:29 2005
***************
*** 4970,4981 ****
                        (< (setq element-common-end
                                 (+ element-start common-string-length))
                           maxp))
!           (when (and (get-char-property element-start 'mouse-face)
!                      (get-char-property element-common-end 'mouse-face))
!             (put-text-property element-start element-common-end
!                                'font-lock-face 'completions-common-part)
!             (put-text-property element-common-end (1+ element-common-end)
!                                'font-lock-face 
'completions-first-difference)))))
        ;; Insert help string.
        (goto-char (point-min))
        (if (display-mouse-p)
--- 4970,4982 ----
                        (< (setq element-common-end
                                 (+ element-start common-string-length))
                           maxp))
!           (when (get-char-property element-start 'mouse-face)
!             (if (get-char-property (1- element-common-end) 'mouse-face)
!                 (put-text-property element-start element-common-end
!                                    'font-lock-face 'completions-common-part))
!             (if (get-char-property element-common-end 'mouse-face)
!                 (put-text-property element-common-end (1+ element-common-end)
!                                    'font-lock-face 
'completions-first-difference))))))
        ;; Insert help string.
        (goto-char (point-min))
        (if (display-mouse-p)