# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1130437320 0
# Node ID 2aa1446214feb4bb0978b8c7246028c8704a1084
# Parent  854391a4e15f8fc82c0bd6002c766194e91c3911
(occur-engine): Include colon in mouse-face highlight.

diff -r 854391a4e15f -r 2aa1446214fe lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Oct 27 15:04:41 2005 +0000
+++ b/lisp/ChangeLog	Thu Oct 27 18:22:00 2005 +0000
@@ -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 -r 854391a4e15f -r 2aa1446214fe lisp/replace.el
--- a/lisp/replace.el	Thu Oct 27 15:04:41 2005 +0000
+++ b/lisp/replace.el	Thu Oct 27 18:22:00 2005 +0000
@@ -1125,18 +1125,17 @@
 		    (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