diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 11:22:35 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 11:22:35 +0000 |
| commit | 06d74900424e431f480045aafbf13573cea7020e (patch) | |
| tree | 03cdbff2ddb85f3620298b85443ecfac029441f6 | |
| parent | 3c0a21c03dd342b2087720d0ab8a000da32fcc22 (diff) | |
| download | emacs-06d74900424e431f480045aafbf13573cea7020e.tar.gz | |
(sh-mark-line): Add help-echo to mouse-highlighted text.
| -rw-r--r-- | lisp/progmodes/sh-script.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 |