From 1ca31e8cbd1523443a235a7144a8bf78123f7dd5 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 3 Nov 2014 23:54:16 +0100 Subject: [PATCH] Minor readability parsing issues with SVC images * net/eww.el (eww-score-readability): Parse SVC images correctly. * net/shr.el: Ditto. --- lisp/ChangeLog | 6 ++++++ lisp/net/eww.el | 3 ++- lisp/net/shr.el | 3 ++- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 445cef9c8c9..ec62f4df58b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-11-03 Lars Magne Ingebrigtsen + + * net/eww.el (eww-score-readability): Parse SVC images correctly. + + * net/shr.el: Ditto. + 2014-11-03 Stefan Monnier * emacs-lisp/edebug.el (edebug-safe-prin1-to-string): Assume that diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 705d79cdb77..0f074696404 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -459,7 +459,8 @@ the like." (t (dolist (elem (cdr node)) (cond - ((eq (car elem) 'text) + ((and (stringp (cdr elem)) + (eq (car elem) 'text)) (setq score (+ score (length (split-string (cdr elem)))))) ((consp (cdr elem)) (setq score (+ score diff --git a/lisp/net/shr.el b/lisp/net/shr.el index a369d68c974..7cd1e65fc90 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -377,7 +377,8 @@ size, and full-buffer size." (sub-nodes nil)) (dolist (elem (cdr dom)) (cond - ((eq (car elem) 'text) + ((and (stringp (cdr elem)) + (eq (car elem) 'text) (push (cdr elem) sub-nodes)) ((not (listp (cdr elem))) (push (cons (intern (substring (symbol-name (car elem)) 1) obarray) -- 2.39.5