From ef8892db3cdf679231cf71613f14589fc3702a80 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 10 Dec 2014 05:00:22 +0100 Subject: [PATCH] (shr-tag-object): Don't bug out on text elements in --- lisp/ChangeLog | 5 +++++ lisp/net/shr.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3ab15aab243..20461a654fe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-12-10 Lars Magne Ingebrigtsen + + * net/shr.el (shr-tag-object): Don't bug out on text elements in + . + 2014-12-09 Bozhidar Batsov * progmodes/ruby-mode.el (auto-mode-alist): Add .rabl, Berksfile diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 186c9f5757d..695b91dcb1b 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -1134,7 +1134,7 @@ ones, in case fg and bg are nil." (when (string-match "\\`image/svg" type) (setq url (dom-attr dom 'data) image t))) - (dolist (child (dom-children dom)) + (dolist (child (dom-non-text-children dom)) (cond ((eq (dom-tag child) 'embed) (setq url (or url (dom-attr child 'src)) -- 2.39.2