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

;Fix error in commit dcdf6d7124

Browse source
This commit is contained in:
Tassilo Horn 2020-06-18 12:44:42 +02:00
parent dcdf6d7124
commit 7d7bd1b2d3
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -214,20 +214,20 @@ Test each configuration in `bug-reference-setup-from-vc-alist'
and apply it if applicable."
(let ((file-or-dir (or buffer-file-name
;; Catches modes such as vc-dir and Magit.
default-directory))))
(when file-or-dir
(let* ((backend (vc-responsible-backend file-or-dir t))
(url
(or (ignore-errors
(vc-call-backend backend 'repository-url "upstream"))
(ignore-errors
(vc-call-backend backend 'repository-url)))))
(when url
(catch 'found
(dolist (config bug-reference-setup-from-vc-alist)
(when (apply #'bug-reference--maybe-setup-from-vc
url config)
(throw 'found t))))))))
default-directory)))
(when file-or-dir
(let* ((backend (vc-responsible-backend file-or-dir t))
(url
(or (ignore-errors
(vc-call-backend backend 'repository-url "upstream"))
(ignore-errors
(vc-call-backend backend 'repository-url)))))
(when url
(catch 'found
(dolist (config bug-reference-setup-from-vc-alist)
(when (apply #'bug-reference--maybe-setup-from-vc
url config)
(throw 'found t)))))))))
(defvar bug-reference-setup-from-mail-alist
`((,(regexp-opt '("emacs" "auctex" "gnus") 'words)