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

lisp/ChangeLog

+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

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