From 7d7bd1b2d3b1a943dbe5253490de2b6a94ffcb37 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Thu, 18 Jun 2020 12:44:42 +0200 Subject: [PATCH] ;Fix error in commit dcdf6d7124 --- lisp/progmodes/bug-reference.el | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el index e142c693503..9df51c1242a 100644 --- a/lisp/progmodes/bug-reference.el +++ b/lisp/progmodes/bug-reference.el @@ -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) -- 2.39.5