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

(sh-mark-line): Add help-echo to mouse-highlighted text.
---

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 80d49ea5e43..6755fe0e8de 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -2644,7 +2644,10 @@ so that `occur-next' and `occur-prev' will work."
 	  (setq occur-point (point)))
       (insert message)
       (if point
-	  (put-text-property start (point) 'mouse-face 'highlight))
+	  (add-text-properties
+	   start (point)
+	   '(mouse-face highlight
+	     help-echo "mouse-2: go to the line where I learned this")))
       (insert "\n")
       (if point
 	  (progn