From: Juri Linkov <juri@linkov.net>
Date: Mon, 12 Sep 2022 18:41:17 +0000 (+0300)
Subject: * lisp/vc/vc.el (vc-print-branch-log): Fix interactive spec.
X-Git-Tag: emacs-29.0.90~1856^2~579
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcc95bd66d69f418f33d4277b1d2244eb3026ebe;p=emacs.git

* 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.
---

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))