(shr-tag-object): Don't bug out on text elements in <object>

This commit is contained in:
Lars Magne Ingebrigtsen 2014-12-10 05:00:22 +01:00
parent cc857dd0db
commit ef8892db3c
2 changed files with 6 additions and 1 deletions

View file

@ -1,3 +1,8 @@
2014-12-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/shr.el (shr-tag-object): Don't bug out on text elements in
<object>.
2014-12-09 Bozhidar Batsov <bozhidar@batsov.com>
* progmodes/ruby-mode.el (auto-mode-alist): Add .rabl, Berksfile

View file

@ -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))