From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Wed, 26 Nov 2014 19:30:59 +0000 (+0100)
Subject: * net/eww.el (eww-highest-readability): More dom.el fixes.
X-Git-Tag: emacs-25.0.90~2635^2~311
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28653a727efaca298f6346ff35509f542add033d;p=emacs.git

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

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))