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

[Romain Francoise]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.226 emacs/lisp/replace.el:1.227
*** emacs/lisp/replace.el:1.226 Mon Oct 24 06:19:32 2005
--- emacs/lisp/replace.el       Thu Oct 27 18:22:00 2005
***************
*** 1125,1142 ****
                    (let* ((out-line
                            (concat
                             ;; Using 7 digits aligns tabs properly.
!                            (apply #'propertize (format "%7d" lines)
                                    (append
                                     (when prefix-face
                                       `(font-lock-face prefix-face))
!                                    `(occur-prefix t mouse-face highlight
                                       occur-target ,marker follow-link t
                                       help-echo "mouse-2: go to this 
occurrence")))
-                            ":"
                             ;; We don't put `mouse-face' on the newline,
                             ;; because that loses.  And don't put it
                             ;; on context lines to reduce flicker.
!                            (propertize curstring 'mouse-face 'highlight
                                         'occur-target marker
                                         'follow-link t
                                         'help-echo
--- 1125,1141 ----
                    (let* ((out-line
                            (concat
                             ;; Using 7 digits aligns tabs properly.
!                            (apply #'propertize (format "%7d:" lines)
                                    (append
                                     (when prefix-face
                                       `(font-lock-face prefix-face))
!                                    `(occur-prefix t mouse-face (highlight)
                                       occur-target ,marker follow-link t
                                       help-echo "mouse-2: go to this 
occurrence")))
                             ;; We don't put `mouse-face' on the newline,
                             ;; because that loses.  And don't put it
                             ;; on context lines to reduce flicker.
!                            (propertize curstring 'mouse-face (list 'highlight)
                                         'occur-target marker
                                         'follow-link t
                                         'help-echo