From: Thien-Thi Nguyen Date: Wed, 3 Nov 2004 10:41:46 +0000 (+0000) Subject: (vc-annotate-display-autoscale): Make sure X-Git-Tag: ttn-vms-21-2-B4~4220 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e73435333f50845d845633664161d26d55afd51;p=emacs.git (vc-annotate-display-autoscale): Make sure point is at bol after calling `annotate-time'. --- 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 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)