mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* lisp/vc-annotate.el (vc-annotate): Use vc-read-revision.

Browse Source
This commit is contained in:
Stefan Monnier 2010-06-15 00:51:42 -04:00
parent 95344a11bf
commit 12755d0846
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2010-06-15 Stefan Monnier <monnier@iro.umontreal.ca>
* vc-annotate.el (vc-annotate): Use vc-read-revision.
2010-06-15 Glenn Morris <rgm@gnu.org>
* calendar/appt.el (appt-time-msg-list): Doc fix.

8
lisp/vc-annotate.el
View File

@ -315,7 +315,7 @@ use; you may override this using the second optional arg MODE."
;;;###autoload
(defun vc-annotate (file rev &optional display-mode buf move-point-to)
"Display the edit history of the current file using colors.
"Display the edit history of the current FILE using colors.
This command creates a buffer that shows, for each line of the current
file, when it was last edited and by whom. Additionally, colors are
@ -325,7 +325,7 @@ default, the time scale stretches back one year into the past;
everything that is older than that is shown in blue.
With a prefix argument, this command asks two questions in the
minibuffer. First, you may enter a revision number; then the buffer
minibuffer. First, you may enter a revision number REV; then the buffer
displays and annotates that revision instead of the working revision
\(type RET in the minibuffer to leave that default unchanged). Then,
you are prompted for the time span in days which the color range
@ -347,9 +347,9 @@ mode-specific menu. `vc-annotate-color-map' and
(list buffer-file-name
(let ((def (vc-working-revision buffer-file-name)))
(if (null current-prefix-arg) def
(read-string
(vc-read-revision
(format "Annotate from revision (default %s): " def)
nil nil def)))
(list buffer-file-name) nil def)))
(if (null current-prefix-arg)
vc-annotate-display-mode
(float (string-to-number