Add a new `dom-search' function

* doc/lispref/text.texi (Document Object Model): Document it.

* lisp/dom.el (dom-search): New function.

1 files changed, 12 insertions, 0 deletions

diff --git a/lisp/dom.el b/lisp/dom.el
index d8c44339985..f01da5221b8 100644
--- a/lisp/dom.el
+++ b/lisp/dom.el
@@ -108,6 +108,18 @@ A name is a symbol like `td'."
         (cons dom matches)
       matches)))
 
+(defun dom-search (dom predicate)
+  "Return elements in DOM where PREDICATE is non-nil.
+PREDICATE is called with the node as its only parameter."
+  (let ((matches (cl-loop for child in (dom-children dom)
+                          for matches = (and (not (stringp child))
+                                             (dom-search child predicate))
+                          when matches
+                          append matches)))
+    (if (funcall predicate dom)
+        (cons dom matches)
+      matches)))
+
 (defun dom-strings (dom)
   "Return elements in DOM that are strings."
   (cl-loop for child in (dom-children dom)