Function: vc-annotate-compcar

vc-annotate-compcar is a byte-compiled function defined in vc-annotate.el.gz.

Signature

(vc-annotate-compcar THRESHOLD A-LIST)

Documentation

Test successive cons cells of A-LIST against THRESHOLD.

Return the first cons cell with a car that is not less than THRESHOLD, nil if no such cell exists.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-annotate.el.gz
(defun vc-annotate-compcar (threshold a-list)
  "Test successive cons cells of A-LIST against THRESHOLD.
Return the first cons cell with a car that is not less than THRESHOLD,
nil if no such cell exists."
 (let ((i 1)
       (tmp-cons (car a-list)))
   (while (and tmp-cons (< (car tmp-cons) threshold))
     (setq tmp-cons (car (nthcdr i a-list)))
     (setq i (+ i 1)))
   tmp-cons))				; Return the appropriate value