From: Dave Love <fx@gnu.org>
Date: Thu, 25 May 2000 18:15:44 +0000 (+0000)
Subject: (goto-address-fontify): Add help-echo property.
X-Git-Tag: emacs-pretest-21.0.90~3703
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa59072afdda6abb3bf183f049f854a18ecae933;p=emacs.git

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

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)