(occur): Add help-echo to mouse-highlighted text.

diff --git a/lisp/replace.el b/lisp/replace.el
index d40ff803464b5e090a882e4e0ae9eb6cebe2e510..cc817145ed29ad5893ae1214e26cb2ab1941a108 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -749,9 +749,10 @@ the matching is case-sensitive."
                  ;; 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)