[Emacs-diffs] master 28653a7: * net/eww.el (eww-highest-readability): More dom.el fixes.

[Lars Ingebrigtsen]

branch: master
commit 28653a727efaca298f6346ff35509f542add033d
Author: Lars Magne Ingebrigtsen <address@hidden>
Date:   Wed Nov 26 20:30:59 2014 +0100

    * net/eww.el (eww-highest-readability): More dom.el fixes.
---
 lisp/ChangeLog  |    4 ++++
 lisp/net/eww.el |   13 +++++++------
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c41bdb..6a34f02 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-26  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * net/eww.el (eww-highest-readability): More dom.el fixes.
+
 2014-11-26  Ulf Jasper  <address@hidden>
 
        * net/newst-backend.el (newsticker--parse-generic-items): Take
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index f9be0b6..a1460a8 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -590,12 +590,13 @@ the like."
   (let ((result node)
        highest)
     (dolist (elem (dom-children node))
-      (when (> (or (dom-attr
-                   (setq highest (eww-highest-readability elem))
-                   :eww-readability-score)
-                  most-negative-fixnum)
-              (or (dom-attr (cdr result) :eww-readability-score)
-                  most-negative-fixnum))
+      (when (and (not (stringp elem))
+                (> (or (dom-attr
+                        (setq highest (eww-highest-readability elem))
+                        :eww-readability-score)
+                       most-negative-fixnum)
+                   (or (dom-attr result :eww-readability-score)
+                       most-negative-fixnum)))
        (setq result highest)))
     result))