diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc/vc.el | 9 |
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. |
| 2485 | If LIMIT is non-nil, it should be a number specifying the maximum | 2485 | If LIMIT is non-nil, it should be a number specifying the maximum |
| 2486 | number of revisions to show; the default is `vc-log-show-limit'. | 2486 | number of revisions to show; the default is `vc-log-show-limit'. |
| 2487 | When called interactively with a prefix argument, prompt for LIMIT. | 2487 | When called interactively with a prefix argument, prompt for LIMIT. |
| 2488 | When the prefix argument is a number, use it as LIMIT. | 2488 | When the prefix argument is a number, use it as LIMIT. |
| 2489 | A special case is when the prefix argument is 1, in this case | 2489 | A special case is when the prefix argument is 1: in this case |
| 2490 | it asks for the revision and shows it with its diff." | 2490 | the command asks for the ID of a revision, and shows that revision |
| 2491 | with 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"))) |