[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ef8892d: (shr-tag-object): Don't bug out on text el
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master ef8892d: (shr-tag-object): Don't bug out on text elements in <object> |
Date: |
Wed, 10 Dec 2014 04:00:40 +0000 |
branch: master
commit ef8892db3cdf679231cf71613f14589fc3702a80
Author: Lars Magne Ingebrigtsen <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>
(shr-tag-object): Don't bug out on text elements in <object>
---
lisp/ChangeLog | 5 +++++
lisp/net/shr.el | 2 +-
2 files changed, 6 insertions(+), 1 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ab15aa..20461a6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-10 Lars Magne Ingebrigtsen <address@hidden>
+
+ * net/shr.el (shr-tag-object): Don't bug out on text elements in
+ <object>.
+
2014-12-09 Bozhidar Batsov <address@hidden>
* progmodes/ruby-mode.el (auto-mode-alist): Add .rabl, Berksfile
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 186c9f5..695b91d 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master ef8892d: (shr-tag-object): Don't bug out on text elements in <object>,
Lars Ingebrigtsen <=