]> git.eshelyaron.com Git - emacs.git/commitdiff
(occur): Add help-echo to mouse-highlighted text.
authorEli Zaretskii <eliz@gnu.org>
Sun, 17 Jun 2001 11:23:17 +0000 (11:23 +0000)
committerEli Zaretskii <eliz@gnu.org>
Sun, 17 Jun 2001 11:23:17 +0000 (11:23 +0000)
lisp/replace.el

index d40ff803464b5e090a882e4e0ae9eb6cebe2e510..cc817145ed29ad5893ae1214e26cb2ab1941a108 100644 (file)
@@ -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)