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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d2237e78de2b99cc6d83d6849efe4908356e1a75..bec0931bfb6cfcda0cccbc1ce1b143c7c023085b 100644 (file)
--- 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 bb72acdf2cf6c8635b03945777ea660f778597bd..31963f7538cd6da7f42f2fa1e4d37584b7b042ad 100644 (file)
--- 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