# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 992776997 0
# Node ID be5236e1efc7a12edcebd5922c50e0647b47fde8
# Parent  7563c3b4413062d22002b8b915f42444d469072a
(occur): Add help-echo to mouse-highlighted text.

diff -r 7563c3b44130 -r be5236e1efc7 lisp/replace.el
--- a/lisp/replace.el	Sun Jun 17 11:22:35 2001 +0000
+++ b/lisp/replace.el	Sun Jun 17 11:23:17 2001 +0000
@@ -749,9 +749,10 @@
 		  ;; Add text properties.  The `occur' prop is used to
 		  ;; store the marker of the matching text in the
 		  ;; source buffer.
-		  (put-text-property (marker-position text-beg)
-				     (- (marker-position text-end) 1)
-				     'mouse-face 'highlight)
+		  (add-text-properties
+		   (marker-position text-beg) (- (marker-position text-end) 1)
+		   '(mouse-face highlight
+		     help-echo "mouse-2: go to this occurence"))
 		  (put-text-property (marker-position text-beg)
 				     (marker-position text-end)
 				     'occur occur-marker)