(goto-address-fontify): Add help-echo property.

diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el
index 2cf502bad6a5674d291c90feb8cf5d06dd19aea1..be7c736065f0e30588e2a93f5234c674306bfa3e 100644 (file)
--- 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)