(occur-engine): Include colon in mouse-face highlight.

2 files changed, 5 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d2237e78de2..bec0931bfb6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2005-10-27  Romain Francoise  <romain@orebokech.com>
 
+        * replace.el (occur-engine): Include colon in mouse-face highlight.
+
         * dired-x.el: Change Maintainer field.
 
 2005-10-26  Chong Yidong  <cyd@stupidchicken.com>
diff --git a/lisp/replace.el b/lisp/replace.el
index bb72acdf2cf..31963f7538c 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1125,18 +1125,17 @@ See also `multi-occur'."
                     (let* ((out-line
                             (concat
                              ;; Using 7 digits aligns tabs properly.
-                             (apply #'propertize (format "%7d" lines)
+                             (apply #'propertize (format "%7d:" lines)
                                     (append
                                      (when prefix-face
                                        `(font-lock-face prefix-face))
-                                     `(occur-prefix t mouse-face highlight
+                                     `(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
+                             (propertize curstring 'mouse-face (list 'highlight)
                                          'occur-target marker
                                          'follow-link t
                                          'help-echo