Function: cl-every

cl-every is an autoloaded and byte-compiled function defined in cl-extra.el.gz.

Signature

(cl-every PREDICATE SEQ...)

Documentation

Return true if PREDICATE is true of every element of SEQ or SEQs.

Aliases

every (obsolete since 27.1) org-every (obsolete since 9.0)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-extra.el.gz
;;;###autoload
(defun cl-every (cl-pred cl-seq &rest cl-rest)
  "Return true if PREDICATE is true of every element of SEQ or SEQs.
\n(fn PREDICATE SEQ...)"
  (if (or cl-rest (nlistp cl-seq))
      (catch 'cl-every
        (apply #'cl-map nil
               (lambda (&rest cl-x)
                 (or (apply cl-pred cl-x) (throw 'cl-every nil)))
	       cl-seq cl-rest) t)
    (while (and cl-seq (funcall cl-pred (car cl-seq)))
      (setq cl-seq (cdr cl-seq)))
    (null cl-seq)))