Mercurial > emacs

changeset 67083:78a5a90bd7ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(goto-address-fontify): Put `follow-link' property on mail and url overlays. (goto-address-at-point): Use `posn-set-point' instead of `mouse-set-point' because the latter is not fbound when configured without X.
author John Paul Wallington <jpw@pobox.com>
date Tue, 22 Nov 2005 22:07:15 +0000
parents 835211576809
children 2a263fdb8b24
files lisp/net/goto-addr.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/goto-addr.el	Tue Nov 22 19:56:07 2005 +0000
+++ b/lisp/net/goto-addr.el	Tue Nov 22 22:07:15 2005 +0000
@@ -174,6 +174,7 @@
                 (overlay-put this-overlay 'evaporate t)
 		(overlay-put this-overlay
                              'mouse-face goto-address-url-mouse-face)
+		(overlay-put this-overlay 'follow-link t)
 		(overlay-put this-overlay
 			     'help-echo "mouse-2, C-c RET: follow URL")
 		(overlay-put this-overlay
@@ -189,6 +190,7 @@
                 (overlay-put this-overlay 'evaporate t)
                 (overlay-put this-overlay 'mouse-face
                              goto-address-mail-mouse-face)
+		(overlay-put this-overlay 'follow-link t)
 		(overlay-put this-overlay
 			     'help-echo "mouse-2, C-c RET: mail this address")
                 (overlay-put this-overlay
@@ -210,7 +212,7 @@
 there, then load the URL at or before point."
   (interactive (list last-input-event))
   (save-excursion
-    (if event (mouse-set-point event))
+    (if event (posn-set-point (event-end event)))
     (let ((address (save-excursion (goto-address-find-address-at-point))))
       (if (and address
 	       (save-excursion