[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99857: * lisp/vc-annotate.el (vc-
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99857: * lisp/vc-annotate.el (vc-annotate): Use vc-read-revision. |
Date: |
Tue, 15 Jun 2010 00:51:42 -0400 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 99857
committer: Stefan Monnier <address@hidden>
branch nick: emacs-23
timestamp: Tue 2010-06-15 00:51:42 -0400
message:
* lisp/vc-annotate.el (vc-annotate): Use vc-read-revision.
modified:
lisp/ChangeLog
lisp/vc-annotate.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-06-15 03:42:33 +0000
+++ b/lisp/ChangeLog 2010-06-15 04:51:42 +0000
@@ -1,3 +1,7 @@
+2010-06-15 Stefan Monnier <address@hidden>
+
+ * vc-annotate.el (vc-annotate): Use vc-read-revision.
+
2010-06-15 Glenn Morris <address@hidden>
* calendar/appt.el (appt-time-msg-list): Doc fix.
=== modified file 'lisp/vc-annotate.el'
--- a/lisp/vc-annotate.el 2010-01-25 09:04:59 +0000
+++ b/lisp/vc-annotate.el 2010-06-15 04:51:42 +0000
@@ -315,7 +315,7 @@
;;;###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 @@
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 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-23 r99857: * lisp/vc-annotate.el (vc-annotate): Use vc-read-revision.,
Stefan Monnier <=