From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 1 Aug 2019 11:59:01 +0000 (+0200)
Subject: Make `C-u RET' in erc use the secondary browser
X-Git-Tag: emacs-27.0.90~1781
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75690d7fac331744eda76a4b23c36a74ff9bcb07;p=emacs.git

Make `C-u RET' in erc use the secondary browser

* lisp/erc/erc-button.el (erc-button-alist): Use the version of
`browse-url' that interprets `C-u RET' as using the secondary browser.
---

diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el
index c2702081daf..726d9674d40 100644
--- a/lisp/erc/erc-button.el
+++ b/lisp/erc/erc-button.el
@@ -133,8 +133,8 @@ longer than `erc-fill-column'."
   ;; bytecompiling lambdas in this alist.  On the other hand, it makes
   ;; things hard to maintain.
   '(('nicknames 0 erc-button-buttonize-nicks erc-nick-popup 0)
-    (erc-button-url-regexp 0 t browse-url 0)
-    ("<URL: *\\([^<> ]+\\) *>" 0 t browse-url 1)
+    (erc-button-url-regexp 0 t browse-url-button-open-url 0)
+    ("<URL: *\\([^<> ]+\\) *>" 0 t browse-url-button-open-url 1)
 ;;; ("(\\(\\([^~\n \t@][^\n \t@]*\\)@\\([a-zA-Z0-9.:-]+\\)\\)" 1 t finger 2 3)
     ;; emacs internal
     ("[`]\\([a-zA-Z][-a-zA-Z_0-9]+\\)[']" 1 t erc-button-describe-symbol 1)