;Fix error in commit dcdf6d7124

diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el
index e142c6935038df03e95c1537394d158c36b223b9..9df51c1242aef3a8e3bb479b22ad73527ec57a88 100644 (file)
--- 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)