(vc-annotate-display-autoscale): Make sure

point is at bol after calling `annotate-time'.

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3652c68c4f6..d47e404cf0e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
         * vc.el (vc-annotate-display-autoscale): Add prefix-arg
         spec in `interactive' form, and mention it in the docstring.
+        Also, make sure point is at bol after calling `annotate-time'.
 
 2004-11-02  Richard M. Stallman  <rms@gnu.org>
 
diff --git a/lisp/vc.el b/lisp/vc.el
index 3301c9c03f0..5aac27e31a4 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2907,7 +2907,9 @@ cover the range from the oldest annotation to the newest."
     ;; Run through this file and find the oldest and newest dates annotated.
     (save-excursion
       (goto-char (point-min))
-      (while (setq date (vc-call-backend vc-annotate-backend 'annotate-time))
+      (while (setq date (prog1 (vc-call-backend vc-annotate-backend
+                                                'annotate-time)
+                          (forward-line 1)))
         (if (> date newest)
             (setq newest date))
         (if (< date oldest)