diff options
| author | Tassilo Horn <tsdh@gnu.org> | 2020-06-18 12:44:42 +0200 |
|---|---|---|
| committer | Tassilo Horn <tsdh@gnu.org> | 2020-06-18 12:45:15 +0200 |
| commit | 7d7bd1b2d3b1a943dbe5253490de2b6a94ffcb37 (patch) | |
| tree | bcf6da1469b0df2919a193594626194272c4d183 /lisp/progmodes/bug-reference.el | |
| parent | dcdf6d712416f76a5c29801e97c7f8d923d1a031 (diff) | |
| download | emacs-7d7bd1b2d3b1a943dbe5253490de2b6a94ffcb37.tar.gz | |
;Fix error in commit dcdf6d7124
Diffstat (limited to 'lisp/progmodes/bug-reference.el')
| -rw-r--r-- | lisp/progmodes/bug-reference.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el index e142c693503..9df51c1242a 100644 --- 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) |