aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/vc/vc.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index d0d2c39ac3d..5ac07e78891 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2481,13 +2481,14 @@ WORKING-REVISION and LIMIT."
2481 2481
2482;;;###autoload 2482;;;###autoload
2483(defun vc-print-root-log (&optional limit revision) 2483(defun vc-print-root-log (&optional limit revision)
2484 "List the change log for the current VC controlled tree in a window. 2484 "List the revision history for the current VC controlled tree in a window.
2485If LIMIT is non-nil, it should be a number specifying the maximum 2485If LIMIT is non-nil, it should be a number specifying the maximum
2486number of revisions to show; the default is `vc-log-show-limit'. 2486number of revisions to show; the default is `vc-log-show-limit'.
2487When called interactively with a prefix argument, prompt for LIMIT. 2487When called interactively with a prefix argument, prompt for LIMIT.
2488When the prefix argument is a number, use it as LIMIT. 2488When the prefix argument is a number, use it as LIMIT.
2489A special case is when the prefix argument is 1, in this case 2489A special case is when the prefix argument is 1: in this case
2490it asks for the revision and shows it with its diff." 2490the command asks for the ID of a revision, and shows that revision
2491with its diffs (if the underlying VCS supports that)."
2491 (interactive 2492 (interactive
2492 (cond 2493 (cond
2493 ((eq current-prefix-arg 1) 2494 ((eq current-prefix-arg 1)
@@ -2517,7 +2518,7 @@ it asks for the revision and shows it with its diff."
2517 rootdir) 2518 rootdir)
2518 (if backend 2519 (if backend
2519 (setq rootdir (vc-call-backend backend 'root default-directory)) 2520 (setq rootdir (vc-call-backend backend 'root default-directory))
2520 (setq rootdir (read-directory-name "Directory for VC root-log: ")) 2521 (setq rootdir (read-directory-name "Directory for VC revision log: "))
2521 (setq backend (vc-responsible-backend rootdir)) 2522 (setq backend (vc-responsible-backend rootdir))
2522 (unless backend 2523 (unless backend
2523 (error "Directory is not version controlled"))) 2524 (error "Directory is not version controlled")))