diff lisp/replace.el @ 66473:2aa1446214fe

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

--- 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