[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/goto-addr.el
From: |
John Paul Wallington |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/goto-addr.el |
Date: |
Tue, 22 Nov 2005 17:07:15 -0500 |
Index: emacs/lisp/net/goto-addr.el
diff -c emacs/lisp/net/goto-addr.el:1.24 emacs/lisp/net/goto-addr.el:1.25
*** emacs/lisp/net/goto-addr.el:1.24 Fri Nov 4 14:32:13 2005
--- emacs/lisp/net/goto-addr.el Tue Nov 22 22:07:15 2005
***************
*** 174,179 ****
--- 174,180 ----
(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,194 ****
--- 190,196 ----
(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,216 ****
there, then load the URL at or before point."
(interactive (list last-input-event))
(save-excursion
! (if event (mouse-set-point event))
(let ((address (save-excursion (goto-address-find-address-at-point))))
(if (and address
(save-excursion
--- 212,218 ----
there, then load the URL at or before point."
(interactive (list last-input-event))
(save-excursion
! (if event (posn-set-point (event-end event)))
(let ((address (save-excursion (goto-address-find-address-at-point))))
(if (and address
(save-excursion