mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(goto-address-at-point): Deal with URLs

Browse source 
part of which look like email addresses.
This commit is contained in:
Gerd Moellmann 2001-05-18 12:50:27 +00:00
parent c5bdb93d32
commit 1c66d9fb23
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2001-05-18 Gerd Moellmann <gerd@gnu.org>
* net/goto-addr.el (goto-address-at-point): Deal with URLs
part of which look like email addresses.
2001-05-18 Andrew Innes <andrewi@gnu.org>
* makefile.w32-in (compile-files-CMD, bootstrap-clean-CMD): Use

7
lisp/net/goto-addr.el
View file

@ -201,7 +201,12 @@ there, then load the URL at or before point."
(interactive)
(save-excursion
(let ((address (save-excursion (goto-address-find-address-at-point))))
(if address
(if (and address
(save-excursion
(goto-char (previous-single-char-property-change
(point) 'goto-address nil
(line-beginning-position)))
(not (looking-at goto-address-url-regexp))))
(compose-mail address)
(let ((url (browse-url-url-at-point)))
(if url