From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 17 Jun 2001 11:23:17 +0000 (+0000)
Subject: (occur): Add help-echo to mouse-highlighted text.
X-Git-Tag: emacs-pretest-21.0.104~240
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ddf19dfe0387071066ac2f27ab2e96695083bac;p=emacs.git

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

diff --git a/lisp/replace.el b/lisp/replace.el
index d40ff803464..cc817145ed2 100644
--- 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)