diff options
| author | Richard M. Stallman | 2005-12-23 16:22:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-12-23 16:22:31 +0000 |
| commit | 6149bbfbf8d9f3ef2f616a6a2835624cc7dd98e3 (patch) | |
| tree | 3ae924a842cd99e241e0c858295f64ab95f906f8 | |
| parent | 81dc5714545cad6c19a8ea961087544d21db23f0 (diff) | |
| download | emacs-6149bbfbf8d9f3ef2f616a6a2835624cc7dd98e3.tar.gz emacs-6149bbfbf8d9f3ef2f616a6a2835624cc7dd98e3.zip | |
(vc-annotate-car-last-cons): Defn moved up.
| -rw-r--r-- | lisp/vc.el | 8 |
1 files changed, 4 insertions, 4 deletions
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." | |||
| 2936 | (if ratio (vc-annotate-time-span vc-annotate-color-map ratio))) | 2936 | (if ratio (vc-annotate-time-span vc-annotate-color-map ratio))) |
| 2937 | (message "Redisplaying annotation...done")) | 2937 | (message "Redisplaying annotation...done")) |
| 2938 | 2938 | ||
| 2939 | (defun vc-annotate-car-last-cons (a-list) | ||
| 2940 | "Return car of last cons in association list A-LIST." | ||
| 2941 | (caar (last a-list))) | ||
| 2942 | |||
| 2939 | (defun vc-annotate-display-autoscale (&optional full) | 2943 | (defun vc-annotate-display-autoscale (&optional full) |
| 2940 | "Highlight the output of \\[vc-annotate] using an autoscaled color map. | 2944 | "Highlight the output of \\[vc-annotate] using an autoscaled color map. |
| 2941 | Autoscaling means that the map is scaled from the current time to the | 2945 | Autoscaling means that the map is scaled from the current time to the |
| @@ -3239,10 +3243,6 @@ revision." | |||
| 3239 | (previous-line) | 3243 | (previous-line) |
| 3240 | (line-number-at-pos)))))))) | 3244 | (line-number-at-pos)))))))) |
| 3241 | 3245 | ||
| 3242 | (defun vc-annotate-car-last-cons (a-list) | ||
| 3243 | "Return car of last cons in association list A-LIST." | ||
| 3244 | (caar (last a-list))) | ||
| 3245 | |||
| 3246 | (defun vc-annotate-time-span (a-list span &optional quantize) | 3246 | (defun vc-annotate-time-span (a-list span &optional quantize) |
| 3247 | "Apply factor SPAN to the time-span of association list A-LIST. | 3247 | "Apply factor SPAN to the time-span of association list A-LIST. |
| 3248 | Return the new alist. | 3248 | Return the new alist. |