From fa59072afdda6abb3bf183f049f854a18ecae933 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 25 May 2000 18:15:44 +0000 Subject: [PATCH] (goto-address-fontify): Add help-echo property. --- lisp/net/goto-addr.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 2cf502bad6a..be7c736065f 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el @@ -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) -- 2.39.5