From 772a965c5f684c73e6ce6520ba49ef6b9a53651e Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 3 Nov 2014 23:38:26 +0100 Subject: [PATCH] Minor `shr-retransform-dom' fix * net/shr.el (shr-retransform-dom): Don't ignore elements that have no children like
. --- lisp/ChangeLog | 3 +++ lisp/net/shr.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 52538031a23..e6d74f48b78 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -19,6 +19,9 @@ 2014-11-03 Lars Magne Ingebrigtsen + * net/shr.el (shr-retransform-dom): Don't ignore elements that + have no children like
. + * 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 f32dc651d49..a369d68c974 100644 --- 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)) -- 2.39.5