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

Allow goto-address-at-point to use secondary browser

Browse source 
* lisp/net/goto-addr.el (goto-address-at-point): Call
`browse-url-button-open-url', so a prefix argument uses
`browse-url-secondary-browser-function'.  (Bug#59443)
This commit is contained in:
Gabriel do Nascimento Ribeiro 2022-11-21 08:08:52 -03:00 • committed by Stefan Kangas
parent 2b123edcf6
commit 29a262bfa7
1 changed files with 17 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -222,25 +222,28 @@ and `goto-address-fontify-p'."
;;;###autoload
(defun goto-address-at-point (&optional event)
"Send to the e-mail address or load the URL at point.
Send mail to address at point. See documentation for
`goto-address-find-address-at-point'. If no address is found
there, then load the URL at or before point."
"Start composing a new message to the e-mail address at point or
open URL at point.
If no e-mail address is found at point, use the URL at or before
point. See `goto-address-find-address-at-point'.
With prefix argument, use the secondary browser to open the URL.
See `browse-url-button-open-url'."
(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
(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
(browse-url url)
(error "No e-mail address or URL found")))))))
(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)
(if-let ((url (browse-url-url-at-point)))
(browse-url-button-open-url url)
(error "No e-mail address or URL found"))))))
(defun goto-address-find-address-at-point ()
"Find e-mail address around or before point.