Mercurial > emacs

changeset 29209:67618bef1515

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(goto-address-fontify): Add help-echo property.
author Dave Love <fx@gnu.org>
date Thu, 25 May 2000 18:15:44 +0000
parents 15df28a6f99f
children 6fa5b7f5de9c
files lisp/net/goto-addr.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/goto-addr.el	Thu May 25 18:14:12 2000 +0000
+++ b/lisp/net/goto-addr.el	Thu May 25 18:15:44 2000 +0000
@@ -147,6 +147,8 @@
 		(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 @@
                      (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)