Function: find-function--any-subform-p

find-function--any-subform-p is a byte-compiled function defined in find-func.el.gz.

Signature

(find-function--any-subform-p FORM PRED)

Documentation

Walk FORM and apply PRED to its subexpressions.

Return t if any PRED returns t.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/find-func.el.gz
(defun find-function--any-subform-p (form pred)
  "Walk FORM and apply PRED to its subexpressions.
Return t if any PRED returns t."
  (cond
   ((not (consp form)) nil)
   ((funcall pred form) t)
   (t
    (let ((left-child (car form))
          (right-child (cdr form)))
      (or
       (find-function--any-subform-p left-child pred)
       (find-function--any-subform-p right-child pred))))))