diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-28 15:55:31 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-28 15:55:37 +0200 |
| commit | a32e1feb438e793a8378671c7124d226b58f65f0 (patch) | |
| tree | 238eed9aeda4abfd361c57f557cfb1154d4640da /lisp/gnus/gnus-sum.el | |
| parent | dcba39b445e8f71c5f8df34a38ae8fc726a51843 (diff) | |
| download | emacs-a32e1feb438e793a8378671c7124d226b58f65f0.tar.gz emacs-a32e1feb438e793a8378671c7124d226b58f65f0.tar.bz2 emacs-a32e1feb438e793a8378671c7124d226b58f65f0.zip | |
Enable browse-url to buttonize buffers
This patch also moves the internal/external browser logic from
shr to browse-url, where it belongs more naturally.
* doc/misc/eww.texi (Basics): Adjust to browse-url-external-browser.
* doc/misc/gnus.texi (Article Commands): Ditto.
* lisp/gnus/gnus-art.el (gnus-button-url-regexp): Default to
`browse-url-button-regexp', which has taken over the definition
previously enjoyed by this variable.
* lisp/gnus/gnus-sum.el (gnus-summary-browse-url): Adjust usage.
* lisp/net/browse-url.el (browse-url--browser-defcustom-type): New
internal variable...
(browse-url-browser-function, browse-url-external-browser): Used
by these two; the latter of which is a new variable.
(browse-url-botton-regexp): New variable.
(browse-url-button-map): New keymap.
(browse-url-button): New face.
(browse-url-add-buttons): New function to add clickable browse-url
buttons to almost any buffer.
(browse-url-button-open): New command.
(browse-url-button-copy): New command.
* lisp/net/eww.el (eww-browse-with-external-browser)
(eww-follow-link): Adjust usage.
* lisp/net/shr.el (shr-external-browser): Make an obsolete alias
of `browse-url-external-browser'.
(shr-browse-url): Adjust usage.
Diffstat (limited to 'lisp/gnus/gnus-sum.el')
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index b239890c884..d3103bd4b20 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -9478,7 +9478,7 @@ The 1st element is the widget named by `gnus-collect-urls-primary-text'." "Scan the current article body for links, and offer to browse them. Links are opened using `browse-url' unless a prefix argument is -given: Then `shr-external-browser' is used instead. +given: Then `browse-url-external-browser' is used instead. If only one link is found, browse that directly, otherwise use completion to select a link. The first link marked in the @@ -9502,7 +9502,7 @@ default." (car urls))))) (if target (if external - (funcall shr-external-browser target) + (funcall browse-url-external-browser target) (browse-url target)) (message "No URLs found."))))) |