Mercurial > emacs
comparison lisp/vc.el @ 57906:ce81228800f3
(vc-annotate-display-autoscale): Make sure
point is at bol after calling `annotate-time'.
author | Thien-Thi Nguyen <ttn@gnuvola.org> |
---|---|
date | Wed, 03 Nov 2004 10:40:35 +0000 |
parents | f6abcbacf62a |
children | f398ebfc07e2 7a0245dd1848 e24e2e78deda |
comparison
equal
deleted
inserted
replaced
57905:45788a7174a4 | 57906:ce81228800f3 |
---|---|
2905 date) | 2905 date) |
2906 (message "Redisplaying annotation...") | 2906 (message "Redisplaying annotation...") |
2907 ;; Run through this file and find the oldest and newest dates annotated. | 2907 ;; Run through this file and find the oldest and newest dates annotated. |
2908 (save-excursion | 2908 (save-excursion |
2909 (goto-char (point-min)) | 2909 (goto-char (point-min)) |
2910 (while (setq date (vc-call-backend vc-annotate-backend 'annotate-time)) | 2910 (while (setq date (prog1 (vc-call-backend vc-annotate-backend |
2911 'annotate-time) | |
2912 (forward-line 1))) | |
2911 (if (> date newest) | 2913 (if (> date newest) |
2912 (setq newest date)) | 2914 (setq newest date)) |
2913 (if (< date oldest) | 2915 (if (< date oldest) |
2914 (setq oldest date)))) | 2916 (setq oldest date)))) |
2915 (vc-annotate-display | 2917 (vc-annotate-display |