diff options
| author | Dave Love <[email protected]> | 2000-05-25 18:15:44 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2000-05-25 18:15:44 +0000 |
| commit | fa59072afdda6abb3bf183f049f854a18ecae933 (patch) | |
| tree | 67e5a4f9af0c4b52efe1ead0053e372e9aaf5682 /lisp/net/goto-addr.el | |
| parent | 323952973286d9d6e5d8a247bf4be882203ac288 (diff) | |
(goto-address-fontify): Add help-echo property.
Diffstat (limited to 'lisp/net/goto-addr.el')
| -rw-r--r-- | lisp/net/goto-addr.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 2cf502bad6..be7c736065 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el @@ -147,6 +147,8 @@ and `goto-address-fontify-p'." (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)) (while (re-search-forward goto-address-mail-regexp nil t) @@ -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) |