Function: take-while

take-while is a byte-compiled function defined in compat-31.el.

Signature

(take-while PRED LIST)

Documentation

[Compatibility function for take-while, defined in Emacs 31.0.50. See (compat)
Emacs 31.0.50' for more details.]

Return the longest prefix of LIST whose elements satisfy PRED.

Source Code

;; Defined in ~/.emacs.d/elpa/compat-31.0.0.2/compat-31.el
(compat-defun take-while (pred list) ;; <compat-tests:take-while>
  "Return the longest prefix of LIST whose elements satisfy PRED."
  (let ((r nil))
    (while (and list (funcall pred (car list)))
      (push (car list) r)
      (setq list (cdr list)))
    (nreverse r)))