master bcc95bd66d: * lisp/vc/vc.el (vc-print-branch-log): Fix interactive spec.

[Juri Linkov]

branch: master
commit bcc95bd66d69f418f33d4277b1d2244eb3026ebe
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * 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.
---
 lisp/vc/vc.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 8491690a4e..39a5be6654 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))