From: Tassilo Horn <tsdh@gnu.org>
Date: Thu, 18 Jun 2020 08:39:01 +0000 (+0200)
Subject: Make bug-reference auto-setup work in vc-dir or Magit like modes
X-Git-Tag: emacs-28.0.90~7153
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dcdf6d7124;p=emacs.git

Make bug-reference auto-setup work in vc-dir or Magit like modes

* lisp/progmodes/bug-reference.el (bug-reference-try-setup-from-vc):
Use default-directory if not in a file-visiting buffer to determine
VC URL.
---

diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el
index 50bd3661eff..e142c693503 100644
--- a/lisp/progmodes/bug-reference.el
+++ b/lisp/progmodes/bug-reference.el
@@ -212,8 +212,11 @@ URL-REGEXP against the VCS URL and returns the value to be set as
   "Try setting up `bug-reference-mode' based on VC information.
 Test each configuration in `bug-reference-setup-from-vc-alist'
 and apply it if applicable."
-  (when buffer-file-name
-    (let* ((backend (vc-responsible-backend buffer-file-name t))
+  (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"))