Mercurial > emacs
comparison lisp/vc.el @ 90043:e24e2e78deda
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-69
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-643
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-649
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-650
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-651
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-655
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-656
Update from CVS: lisp/man.el (Man-xref-normal-file): Fix help-echo.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-657
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-658
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-659
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-660
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-661
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-667
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-668
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-61
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-68
Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 04 Nov 2004 08:55:40 +0000 |
parents | 0fe073a08cef ce81228800f3 |
children | f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
90042:003d95404d71 | 90043:e24e2e78deda |
---|---|
2894 (message "Redisplaying annotation...done")) | 2894 (message "Redisplaying annotation...done")) |
2895 | 2895 |
2896 (defun vc-annotate-display-autoscale (&optional full) | 2896 (defun vc-annotate-display-autoscale (&optional full) |
2897 "Highlight the output of \\[vc-annotate] using an autoscaled color map. | 2897 "Highlight the output of \\[vc-annotate] using an autoscaled color map. |
2898 Autoscaling means that the map is scaled from the current time to the | 2898 Autoscaling means that the map is scaled from the current time to the |
2899 oldest annotation in the buffer, or, with argument FULL non-nil, to | 2899 oldest annotation in the buffer, or, with prefix argument FULL, to |
2900 cover the range from the oldest annotation to the newest." | 2900 cover the range from the oldest annotation to the newest." |
2901 (interactive) | 2901 (interactive "P") |
2902 (let ((newest 0.0) | 2902 (let ((newest 0.0) |
2903 (oldest 999999.) ;Any CVS users at the founding of Rome? | 2903 (oldest 999999.) ;Any CVS users at the founding of Rome? |
2904 (current (vc-annotate-convert-time (current-time))) | 2904 (current (vc-annotate-convert-time (current-time))) |
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 |