From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 23 Dec 2005 16:22:31 +0000 (+0000)
Subject: (vc-annotate-car-last-cons): Defn moved up.
X-Git-Tag: emacs-pretest-22.0.90~5109
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6149bbfbf8d9f3ef2f616a6a2835624cc7dd98e3;p=emacs.git

(vc-annotate-car-last-cons): Defn moved up.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 6d82b56f9b6..ed6b13ac2ec 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2936,6 +2936,10 @@ if present.  The current time is used as the offset."
    (if ratio (vc-annotate-time-span vc-annotate-color-map ratio)))
   (message "Redisplaying annotation...done"))
 
+(defun vc-annotate-car-last-cons (a-list)
+  "Return car of last cons in association list A-LIST."
+  (caar (last a-list)))
+
 (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
@@ -3239,10 +3243,6 @@ revision."
 				       (previous-line)
 				       (line-number-at-pos))))))))
 
-(defun vc-annotate-car-last-cons (a-list)
-  "Return car of last cons in association list A-LIST."
-  (caar (last a-list)))
-
 (defun vc-annotate-time-span (a-list span &optional quantize)
   "Apply factor SPAN to the time-span of association list A-LIST.
 Return the new alist.