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

06d74900 · Eli Zaretskii · 3c0a21c0 · 06d74900
Commit 06d74900 authored Jun 17, 2001 by Eli Zaretskii
Show whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

lisp/progmodes/sh-script.el lisp/progmodes/sh-script.el +4 -1

No files found.
--- 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