eww readability tweak

* net/eww.el (eww-score-readability): Don't count comments positively.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c98a77b08a043d638b9f8834fa7c21ef11d461d..58cdd2093ca9499e0d09dadb920d7b79bb486aed 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2014-11-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * net/eww.el (eww-score-readability): Don't count comments positively.
+
        * net/shr.el (shr-retransform-dom): Typo fix.
 
        * net/eww.el (eww-score-readability): Parse SVC images correctly.

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 1eb00d302d5d0b712e47bf8183f678c75d145272..c9bb903670eb37f7563c48b0632e36f9f2d9d60d 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -452,7 +452,7 @@ the like."
 (defun eww-score-readability (node)
   (let ((score -1))
     (cond
-     ((memq (car node) '(script head))
+     ((memq (car node) '(script head comment))
       (setq score -2))
      ((eq (car node) 'meta)
       (setq score -1))