From: Philip Kaludercic <philipk@posteo.net>
Date: Wed, 13 Oct 2021 19:49:28 +0000 (+0200)
Subject: Use browse-url-button-regexp for rcirc-url-regexp
X-Git-Tag: emacs-28.0.90~298
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b1adf8b4feaf92f5229839edfe42fe89ceba677;p=emacs.git

Use browse-url-button-regexp for rcirc-url-regexp

* rcirc.el (rcirc-url-regexp): Copy improved regexp from browse-url
---

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index c18748ae099..52d74a33945 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2827,24 +2827,9 @@ keywords when no KEYWORD is given."
     string))
 
 (defvar rcirc-url-regexp
-  (concat
-   "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|"
-   "nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)"
-   "\\(//[-a-z0-9_.]+:[0-9]*\\)?"
-   (if (string-match "[[:digit:]]" "1") ;; Support POSIX?
-       (let ((chars "-a-z0-9_=#$@~%&*+\\/[:word:]")
-	     (punct "!?:;.,"))
-	 (concat
-	  "\\(?:"
-	  ;; Match paired parentheses, e.g. in Wikipedia URLs:
-	  "[" chars punct "]+" "(" "[" chars punct "]+" ")" "[" chars "]"
-	  "\\|"
-	  "[" chars punct     "]+" "[" chars "]"
-	  "\\)"))
-     (concat ;; XEmacs 21.4 doesn't support POSIX.
-      "\\([-a-z0-9_=!?#$@~%&*+\\/:;.,]\\|\\w\\)+"
-      "\\([-a-z0-9_=#$@~%&*+\\/]\\|\\w\\)"))
-   "\\)")
+  (eval-when-compile
+    (require 'browse-url)
+    browse-url-button-regexp)
   "Regexp matching URLs.  Set to nil to disable URL features in rcirc.")
 
 ;; cf cl-remove-if-not