Function: seq--take

seq--take is a byte-compiled function defined in seq-25.el.

Signature

(seq--take N LIST)

Documentation

Return the first N elements of LIST.

If N is zero or negative, return nil. If N is greater or equal to the length of LIST, return LIST (or a copy).

Source Code

;; Defined in ~/.emacs.d/elpa/seq-2.24/seq-25.el
(defalias 'seq--take
  (if (>= emacs-major-version 29)
      'take
    (lambda (n list)                ; copied here from the `compat' package
      "Return the first N elements of LIST.
If N is zero or negative, return nil.
If N is greater or equal to the length of LIST, return LIST (or a copy)."
      (let (copy)
        (while (and (< 0 n) list)
          (push (pop list) copy)
          (setq n (1- n)))
        (nreverse copy)))))