procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Regexp-quote github domains in bug-reference

Browse source 
* lisp/progmodes/bug-reference.el
(bug-reference--build-forge-setup-entry): Regexp-quote the domain
(bug#51316).
This commit is contained in:
Lars Ingebrigtsen 2021-10-22 16:57:04 +02:00
parent 1f6cdeb12c
commit 9b6b5e37ef
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/progmodes/bug-reference.el
View file

@ -270,7 +270,8 @@ via the internet it might also be http.")
;; possibly different projects are also supported. ;; possibly different projects are also supported.
(cl-defmethod bug-reference--build-forge-setup-entry (cl-defmethod bug-reference--build-forge-setup-entry
(host-domain (_forge-type (eql github)) protocol) (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]+\\)\\)\\>" "\\(\\([.A-Za-z0-9_/-]+\\)?\\(?:#\\)\\([0-9]+\\)\\)\\>"
,(lambda (groups) ,(lambda (groups)
(let ((ns-project (nth 1 groups))) (let ((ns-project (nth 1 groups)))