Commit 06d74900 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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

parent 3c0a21c0
...@@ -2644,7 +2644,10 @@ so that `occur-next' and `occur-prev' will work." ...@@ -2644,7 +2644,10 @@ so that `occur-next' and `occur-prev' will work."
(setq occur-point (point))) (setq occur-point (point)))
(insert message) (insert message)
(if point (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") (insert "\n")
(if point (if point
(progn (progn
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment