mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-30 04:10:54 -08:00
(goto-address-fontify): Add help-echo property.
This commit is contained in:
parent
3239529732
commit
fa59072afd
1 changed files with 4 additions and 0 deletions
|
|
@ -146,6 +146,8 @@ and `goto-address-fontify-p'."
|
|||
(overlay-put this-overlay 'face goto-address-url-face))
|
||||
(overlay-put this-overlay
|
||||
'mouse-face goto-address-url-mouse-face)
|
||||
(overlay-put this-overlay
|
||||
'help-echo "mouse-2: follow URL")
|
||||
(overlay-put this-overlay
|
||||
'local-map goto-address-highlight-keymap)))
|
||||
(goto-char (point-min))
|
||||
|
|
@ -157,6 +159,8 @@ and `goto-address-fontify-p'."
|
|||
(overlay-put this-overlay 'face goto-address-mail-face))
|
||||
(overlay-put this-overlay 'mouse-face
|
||||
goto-address-mail-mouse-face)
|
||||
(overlay-put this-overlay
|
||||
'help-echo "mouse-2: follow URL")
|
||||
(overlay-put this-overlay
|
||||
'local-map goto-address-highlight-keymap)))))
|
||||
(and (buffer-modified-p)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue