X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/b4fbd69b66a927ad8ff479bee6ca57e977d7e649..89ce83b20249dfb4e45f09dfdddf4c4b66d82968:/lisp/net/eww.el

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 34cb02c24a..6a8400320c 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -669,11 +669,13 @@ the like."
       (setq score (- (length (split-string (dom-text node))))))
      (t
       (dolist (elem (dom-children node))
-	(if (stringp elem)
-	    (setq score (+ score (length (split-string elem))))
+	(cond
+         ((stringp elem)
+          (setq score (+ score (length (split-string elem)))))
+         ((consp elem)
 	  (setq score (+ score
 			 (or (cdr (assoc :eww-readability-score (cdr elem)))
-			     (eww-score-readability elem))))))))
+			     (eww-score-readability elem)))))))))
     ;; Cache the score of the node to avoid recomputing all the time.
     (dom-set-attribute node :eww-readability-score score)
     score))