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 |