; * lisp/net/shr.el (shr-count): Fix typo.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index e130eea2fbe5552552d9c538dd8709a55eaa5f16..84033c31ef44d9f2bd237630b8a344b44ffdcfea 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -2617,7 +2617,7 @@ flags that control whether to collect or render objects."
     columns))
 
 (defun shr-count (dom elem)
-  (seq-count (lambda (x)
+  (seq-count (lambda (sub)
                (and (not (stringp sub))
                     (eq (dom-tag sub) elem)))
              (dom-children dom)))