# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 992776955 0
# Node ID 7563c3b4413062d22002b8b915f42444d469072a
# Parent  8bc0292b0367ac64d2baa7ead75366234043bb75
(sh-mark-line): Add help-echo to mouse-highlighted text.

diff -r 8bc0292b0367 -r 7563c3b44130 lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Sun Jun 17 11:21:48 2001 +0000
+++ b/lisp/progmodes/sh-script.el	Sun Jun 17 11:22:35 2001 +0000
@@ -2644,7 +2644,10 @@
 	  (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