Function: helpful--tree-any-p

helpful--tree-any-p is a byte-compiled function defined in helpful.el.

Signature

(helpful--tree-any-p PRED TREE)

Documentation

Walk TREE, applying PRED to every subtree.

Return t if PRED ever returns t.

Source Code

;; Defined in ~/.emacs.d/elpa/helpful-20250408.334/helpful.el
(defun helpful--tree-any-p (pred tree)
  "Walk TREE, applying PRED to every subtree.
Return t if PRED ever returns t."
  (catch 'found
    (let ((stack (list tree)))
      (while stack
        (let ((next (pop stack)))
          (cond
           ((funcall pred next)
            (throw 'found t))
           ((consp next)
            (push (car next) stack)
            (push (cdr next) stack))))))
    nil))