Minor `shr-retransform-dom' fix

* net/shr.el (shr-retransform-dom): Don't ignore elements that
have no children like <br />.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 52538031a23175f2ab27eb54acbcd94cdc4fb733..e6d74f48b786253ad209449c9e7311a82d9ef2cc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -19,6 +19,9 @@
 
 2014-11-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * net/shr.el (shr-retransform-dom): Don't ignore elements that
+       have no children like <br />.
+
        * net/eww.el (eww-display-html): Clear `url-queue'.
        (eww-display-pdf): New function.
        (eww-render): Display PDFs with `doc-view'.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index f32dc651d4946a484cb637d43571db8e4896d2b1..a369d68c974f31a105f5d234c6a5598eb931222d 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -379,7 +379,7 @@ size, and full-buffer size."
       (cond
        ((eq (car elem) 'text)
        (push (cdr elem) sub-nodes))
-       ((not (consp (cdr elem)))
+       ((not (listp (cdr elem)))
        (push (cons (intern (substring (symbol-name (car elem)) 1) obarray)
                    (cdr elem))
              attributes))