From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 22 Oct 2021 14:57:04 +0000 (+0200)
Subject: Regexp-quote github domains in bug-reference
X-Git-Tag: emacs-28.0.90~212
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b6b5e37ef9106d9d77cf4785dc61feef531b8cf;p=emacs.git

Regexp-quote github domains in bug-reference

* lisp/progmodes/bug-reference.el
(bug-reference--build-forge-setup-entry): Regexp-quote the domain
(bug#51316).
---

diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el
index fd435eadfe8..d7b12db2211 100644
--- a/lisp/progmodes/bug-reference.el
+++ b/lisp/progmodes/bug-reference.el
@@ -270,7 +270,8 @@ via the internet it might also be http.")
 ;; possibly different projects are also supported.
 (cl-defmethod bug-reference--build-forge-setup-entry
   (host-domain (_forge-type (eql github)) protocol)
-  `(,(concat "[/@]" host-domain "[/:]\\([.A-Za-z0-9_/-]+\\)\\.git")
+  `(,(concat "[/@]" (regexp-quote host-domain)
+             "[/:]\\([.A-Za-z0-9_/-]+\\)\\.git")
     "\\(\\([.A-Za-z0-9_/-]+\\)?\\(?:#\\)\\([0-9]+\\)\\)\\>"
     ,(lambda (groups)
        (let ((ns-project (nth 1 groups)))