From 28653a727efaca298f6346ff35509f542add033d Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 26 Nov 2014 20:30:59 +0100 Subject: [PATCH] * 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 8c41bdb29e1..6a34f023a69 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-11-26 Lars Magne Ingebrigtsen + + * net/eww.el (eww-highest-readability): More dom.el fixes. + 2014-11-26 Ulf Jasper * 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)) -- 2.39.5