diff options
| author | John Paul Wallington <jpw@pobox.com> | 2005-11-22 22:07:15 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2005-11-22 22:07:15 +0000 |
| commit | 45daaddcfdbe6abfa157f06f2969719acb0614bb (patch) | |
| tree | 2f5ab47fb81d2dc5de092bd049e2b236eff4cfa3 /lisp/net/goto-addr.el | |
| parent | 95359afc914c48e599b473c6093b5596502510cb (diff) | |
| download | emacs-45daaddcfdbe6abfa157f06f2969719acb0614bb.tar.gz | |
(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.
Diffstat (limited to 'lisp/net/goto-addr.el')
| -rw-r--r-- | lisp/net/goto-addr.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index d86a8ecdf2d..9925227619f 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el @@ -174,6 +174,7 @@ and `goto-address-fontify-p'." (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 @@ and `goto-address-fontify-p'." (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 @@ Send mail to address at point. See documentation for 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 |