* shr.el (shr-table-body): Allow tables to have text children.

This commit is contained in:
Lars Magne Ingebrigtsen 2016-01-19 14:16:34 +01:00
parent ef768c790e
commit 116caedbe0

View file

@ -1602,7 +1602,7 @@ The preference is a float determined from `shr-prefer-media-type'."
(defun shr-table-body (dom)
(let ((tbodies (seq-filter (lambda (child)
(eq (dom-tag child) 'tbody))
(dom-children dom))))
(dom-non-text-children dom))))
(cond
((null tbodies)
dom)