From 2e73435333f50845d845633664161d26d55afd51 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Wed, 3 Nov 2004 10:41:46 +0000 Subject: [PATCH] (vc-annotate-display-autoscale): Make sure point is at bol after calling `annotate-time'. --- lisp/ChangeLog | 1 + lisp/vc.el | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) 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) -- 2.39.5