2896 |
(defun vc-annotate-display-autoscale (&optional full) |
(defun vc-annotate-display-autoscale (&optional full) |
2897 |
"Highlight the output of \\[vc-annotate] using an autoscaled color map. |
"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 |
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 |
oldest annotation in the buffer, or, with prefix argument FULL, to |
2900 |
cover the range from the oldest annotation to the newest." |
cover the range from the oldest annotation to the newest." |
2901 |
(interactive) |
(interactive "P") |
2902 |
(let ((newest 0.0) |
(let ((newest 0.0) |
2903 |
(oldest 999999.) ;Any CVS users at the founding of Rome? |
(oldest 999999.) ;Any CVS users at the founding of Rome? |
2904 |
(current (vc-annotate-convert-time (current-time))) |
(current (vc-annotate-convert-time (current-time))) |