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

[Tassilo Horn]

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

    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.
---
 lisp/progmodes/bug-reference.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el
index 50bd366..e142c69 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"))