Commit 6149bbfb authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 81dc5714
...@@ -2936,6 +2936,10 @@ if present. The current time is used as the offset." ...@@ -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))) (if ratio (vc-annotate-time-span vc-annotate-color-map ratio)))
(message "Redisplaying annotation...done")) (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) (defun vc-annotate-display-autoscale (&optional full)
"Highlight the output of \\[vc-annotate] using an autoscaled color map. "Highlight the output of \\[vc-annotate] using an autoscaled color map.
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
...@@ -3239,10 +3243,6 @@ revision." ...@@ -3239,10 +3243,6 @@ revision."
(previous-line) (previous-line)
(line-number-at-pos)))))))) (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) (defun vc-annotate-time-span (a-list span &optional quantize)
"Apply factor SPAN to the time-span of association list A-LIST. "Apply factor SPAN to the time-span of association list A-LIST.
Return the new alist. Return the new alist.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment