[Emacs-diffs] master 67fa7f1: Make `R' in eww work more reliably

[Lars Ingebrigtsen]

branch: master
commit 67fa7f13d499eb5fc1d697da6c636b20728da22f
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Make `R' in eww work more reliably
    
    * lisp/net/eww.el (eww-score-readability): Protect against
    null children.
---
 lisp/net/eww.el |    8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 34cb02c..6a84003 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))