* net/eww.el (eww-highest-readability): More dom.el fixes.

2 files changed, 11 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c41bdb29e1..6a34f023a69 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+        * net/eww.el (eww-highest-readability): More dom.el fixes.
+
 2014-11-26  Ulf Jasper  <ulf.jasper@web.de>
 
         * net/newst-backend.el (newsticker--parse-generic-items): Take
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index f9be0b6521f..a1460a8f557 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))