[Emacs-diffs] Changes to emacs/lisp/vc.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/vc.el
diff -c emacs/lisp/vc.el:1.359.2.6 emacs/lisp/vc.el:1.359.2.7
*** emacs/lisp/vc.el:1.359.2.6  Wed Oct 27 05:41:58 2004
--- emacs/lisp/vc.el    Thu Nov  4 08:55:35 2004
***************
*** 2896,2904 ****
  (defun vc-annotate-display-autoscale (&optional full)
    "Highlight the output of \\[vc-annotate] using an autoscaled color map.
  Autoscaling means that the map is scaled from the current time to the
! oldest annotation in the buffer, or, with argument FULL non-nil, to
  cover the range from the oldest annotation to the newest."
!   (interactive)
    (let ((newest 0.0)
        (oldest 999999.)                ;Any CVS users at the founding of Rome?
        (current (vc-annotate-convert-time (current-time)))
--- 2896,2904 ----
  (defun vc-annotate-display-autoscale (&optional full)
    "Highlight the output of \\[vc-annotate] using an autoscaled color map.
  Autoscaling means that the map is scaled from the current time to the
! oldest annotation in the buffer, or, with prefix argument FULL, to
  cover the range from the oldest annotation to the newest."
!   (interactive "P")
    (let ((newest 0.0)
        (oldest 999999.)                ;Any CVS users at the founding of Rome?
        (current (vc-annotate-convert-time (current-time)))
***************
*** 2907,2913 ****
      ;; 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))
        (if (> date newest)
            (setq newest date))
        (if (< date oldest)
--- 2907,2915 ----
      ;; Run through this file and find the oldest and newest dates annotated.
      (save-excursion
        (goto-char (point-min))
!       (while (setq date (prog1 (vc-call-backend vc-annotate-backend
!                                                 'annotate-time)
!                           (forward-line 1)))
        (if (> date newest)
            (setq newest date))
        (if (< date oldest)