master 7d7bd1b: ;Fix error in commit dcdf6d7124

[Tassilo Horn]

branch: master
commit 7d7bd1b2d3b1a943dbe5253490de2b6a94ffcb37
Author: Tassilo Horn <tsdh@gnu.org>
Commit: Tassilo Horn <tsdh@gnu.org>

    ;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 e142c69..9df51c1 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)