Function: seq--count-successive

seq--count-successive is a byte-compiled function defined in seq.el.gz.

Signature

(seq--count-successive PRED SEQUENCE)

Documentation

Count successive elements in SEQUENCE for which PRED returns non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/seq.el.gz
(defun seq--count-successive (pred sequence)
  "Count successive elements in SEQUENCE for which PRED returns non-nil."
  (let ((n 0)
        (len (seq-length sequence)))
    (while (and (< n len)
                (funcall pred (seq-elt sequence n)))
      (setq n (+ 1 n)))
    n))