From dcdf6d712416f76a5c29801e97c7f8d923d1a031 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Thu, 18 Jun 2020 10:39:01 +0200 Subject: [PATCH] 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 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")) -- 2.39.5