[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 28653a7: * net/eww.el (eww-highest-readability): Mo
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 28653a7: * net/eww.el (eww-highest-readability): More dom.el fixes. |
Date: |
Wed, 26 Nov 2014 19:31:04 +0000 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 28653a7: * net/eww.el (eww-highest-readability): More dom.el fixes.,
Lars Ingebrigtsen <=