[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master dcdf6d7: Make bug-reference auto-setup work in vc-dir or Magit li
From: |
Tassilo Horn |
Subject: |
master dcdf6d7: Make bug-reference auto-setup work in vc-dir or Magit like modes |
Date: |
Thu, 18 Jun 2020 04:40:17 -0400 (EDT) |
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"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master dcdf6d7: Make bug-reference auto-setup work in vc-dir or Magit like modes,
Tassilo Horn <=