mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Eli Zaretskii 2001-06-17 11:22:35 +00:00
parent 3c0a21c03d
commit 06d7490042
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/progmodes/sh-script.el
View File

@ -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