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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3652c68c4f63fdd77d09720a171e238b42fcc84e..d47e404cf0e563045d74657ab96e08f12716a1e6 100644 (file)
--- 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 3301c9c03f01c9d2a03cb0db1ac99b8a5f4eefca..5aac27e31a4921bf74f42cfb4f7968e2658642db 100644 (file)
--- 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)