diff options
author | Juri Linkov <juri@linkov.net> | 2022-09-12 21:41:17 +0300 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2022-09-12 21:41:17 +0300 |
commit | bcc95bd66d69f418f33d4277b1d2244eb3026ebe (patch) | |
tree | a837fbdc4639bd5b70bb168bfafa36dc6190cd64 | |
parent | 71302884dd3dec26e34916c30e3893dd15b786f8 (diff) | |
download | emacs-bcc95bd66d69f418f33d4277b1d2244eb3026ebe.tar.gz |
* lisp/vc/vc.el (vc-print-branch-log): Fix interactive spec.
For reading vc-read-revision in the interactive spec use the same 'backend'
and 'rootdir' as in the body of the same function.
-rw-r--r-- | lisp/vc/vc.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 8491690a4e6..39a5be6654b 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -2741,8 +2741,10 @@ with its diffs (if the underlying VCS supports that)." (defun vc-print-branch-log (branch) "Show the change log for BRANCH root in a window." (interactive - (list - (vc-read-revision "Branch to log: "))) + (let* ((backend (vc-responsible-backend default-directory)) + (rootdir (vc-call-backend backend 'root default-directory))) + (list + (vc-read-revision "Branch to log: " (list rootdir) backend)))) (when (equal branch "") (error "No branch specified")) (let* ((backend (vc-responsible-backend default-directory)) |