diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/shr.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3ab15aab243..20461a654fe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2014-12-10 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 2 | |||
| 3 | * net/shr.el (shr-tag-object): Don't bug out on text elements in | ||
| 4 | <object>. | ||
| 5 | |||
| 1 | 2014-12-09 Bozhidar Batsov <bozhidar@batsov.com> | 6 | 2014-12-09 Bozhidar Batsov <bozhidar@batsov.com> |
| 2 | 7 | ||
| 3 | * progmodes/ruby-mode.el (auto-mode-alist): Add .rabl, Berksfile | 8 | * 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." | |||
| 1134 | (when (string-match "\\`image/svg" type) | 1134 | (when (string-match "\\`image/svg" type) |
| 1135 | (setq url (dom-attr dom 'data) | 1135 | (setq url (dom-attr dom 'data) |
| 1136 | image t))) | 1136 | image t))) |
| 1137 | (dolist (child (dom-children dom)) | 1137 | (dolist (child (dom-non-text-children dom)) |
| 1138 | (cond | 1138 | (cond |
| 1139 | ((eq (dom-tag child) 'embed) | 1139 | ((eq (dom-tag child) 'embed) |
| 1140 | (setq url (or url (dom-attr child 'src)) | 1140 | (setq url (or url (dom-attr child 'src)) |