Use seq-count in three functions

* lisp/net/shr.el (shr-count):
* lisp/progmodes/idlwave.el (idlwave-count-memq): Use seq-count.
(idlwave-count-eq): Use seq-count.  Make obsolete, as it is unused.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index b5bb7b42650a10d1f93945c277970b786c25ebb4..e130eea2fbe5552552d9c538dd8709a55eaa5f16 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -2617,12 +2617,10 @@ flags that control whether to collect or render objects."
     columns))
 
 (defun shr-count (dom elem)
-  (let ((i 0))
-    (dolist (sub (dom-children dom))
-      (when (and (not (stringp sub))
-                (eq (dom-tag sub) elem))
-       (setq i (1+ i))))
-    i))
+  (seq-count (lambda (x)
+               (and (not (stringp sub))
+                    (eq (dom-tag sub) elem)))
+             (dom-children dom)))
 
 (defun shr-max-columns (dom)
   (let ((max 0)

diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 3c00046a26a370034ddfa9c47f539f6bb1cc457e..54c758c6a8af84e3f990d0f0563ab7dbceb02a78 100644 (file)
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -8750,11 +8750,12 @@ This expects NAME TYPE IDLWAVE-TWIN-CLASS to be bound to the right values."
 
 (defun idlwave-count-eq (elt list)
   "How often is ELT in LIST?"
-  (length (delq nil (mapcar (lambda (x) (eq x elt)) list))))
+  (declare (obsolete nil "30.1"))
+  (seq-count (lambda (x) (eq x elt)) list))
 
 (defun idlwave-count-memq (elt alist)
   "How often is ELT a key in ALIST?"
-  (length (delq nil (mapcar (lambda (x) (eq (car x) elt)) alist))))
+  (seq-count (lambda (x) (eq (car x) elt)) alist))
 
 (defun idlwave-syslib-p (file)
   "Non-nil if FILE is in the system library."