Function: shr-count

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

Signature

(shr-count DOM ELEM)

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr-count (dom elem)
  ;; This is faster than `seq-count', and shr can use it.
  (let ((i 0))
    (dolist (sub (dom-children dom))
      (when (and (not (stringp sub))
                 (eq (dom-tag sub) elem))
        (setq i (1+ i))))
    i))