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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c41bdb29e189c0d303652493e2611fc8786d2bd..6a34f023a693f8578d73f1676a62289c0f37541f 100644 (file)
--- 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 f9be0b6521fc3d73f5acc8b1a05192bbcf5ff9bb..a1460a8f557e9f061f6ba9ff80c62fc1b6dac6fb 100644 (file)
--- 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))