Commit 1ca31e8c authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

Minor readability parsing issues with SVC images

* net/eww.el (eww-score-readability): Parse SVC images correctly.

* net/shr.el: Ditto.
parent 50deba14
2014-11-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/eww.el (eww-score-readability): Parse SVC images correctly.
* net/shr.el: Ditto.
2014-11-03 Stefan Monnier <monnier@iro.umontreal.ca> 2014-11-03 Stefan Monnier <monnier@iro.umontreal.ca>
   
* emacs-lisp/edebug.el (edebug-safe-prin1-to-string): Assume that * emacs-lisp/edebug.el (edebug-safe-prin1-to-string): Assume that
......
...@@ -459,7 +459,8 @@ the like." ...@@ -459,7 +459,8 @@ the like."
(t (t
(dolist (elem (cdr node)) (dolist (elem (cdr node))
(cond (cond
((eq (car elem) 'text) ((and (stringp (cdr elem))
(eq (car elem) 'text))
(setq score (+ score (length (split-string (cdr elem)))))) (setq score (+ score (length (split-string (cdr elem))))))
((consp (cdr elem)) ((consp (cdr elem))
(setq score (+ score (setq score (+ score
......
...@@ -377,7 +377,8 @@ size, and full-buffer size." ...@@ -377,7 +377,8 @@ size, and full-buffer size."
(sub-nodes nil)) (sub-nodes nil))
(dolist (elem (cdr dom)) (dolist (elem (cdr dom))
(cond (cond
((eq (car elem) 'text) ((and (stringp (cdr elem))
(eq (car elem) 'text)
(push (cdr elem) sub-nodes)) (push (cdr elem) sub-nodes))
((not (listp (cdr elem))) ((not (listp (cdr elem)))
(push (cons (intern (substring (symbol-name (car elem)) 1) obarray) (push (cons (intern (substring (symbol-name (car elem)) 1) obarray)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment