* 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 8491690a4e6e99c9f168d69c7dd98af6289255e5..39a5be6654bdc056316a438311e12ce69ffea343 100644 (file)
--- 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))