mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(goto-address-fontify): Put `follow-link' property on mail and url overlays.

Browse Source 
(goto-address-at-point): Use `posn-set-point' instead of `mouse-set-point'
because the latter is not fbound when configured without X.
This commit is contained in:
John Paul Wallington 2005-11-22 22:08:11 +00:00
parent 5c4ce34de3
commit 43fb082deb
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2005-11-22 John Paul Wallington <jpw@gnu.org>
* net/goto-addr.el (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.
2005-11-22 Lars Hansen <larsh@soem.dk>
* ls-lisp.el (ls-lisp-parse-symlink): Delete.

4
lisp/net/goto-addr.el
View File

@ -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