Function: cvs-first

cvs-first is a byte-compiled function defined in pcvs-util.el.gz.

Signature

(cvs-first L &optional N)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs-util.el.gz
(defun cvs-first (l &optional n)
  ;; FIXME: Replace this with `seq-take'?
  (if (null n) (car l)
    (when l
      (let* ((nl (list (pop l)))
	     (ret nl))
	(while (and l (> n 1))
	  (setcdr nl (list (pop l)))
	  (setq nl (cdr nl))
          (decf n))
	ret))))