diff options
| author | Lars Magne Ingebrigtsen | 2016-01-19 14:16:34 +0100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2016-01-19 14:16:34 +0100 |
| commit | 116caedbe0da17999a3636e4def329edab2c56ed (patch) | |
| tree | b58e20a4fad2420bbd668f305efa30193759e030 | |
| parent | ef768c790ed83c8fa5c7efb24dc8e94967b5a778 (diff) | |
| download | emacs-116caedbe0da17999a3636e4def329edab2c56ed.tar.gz emacs-116caedbe0da17999a3636e4def329edab2c56ed.zip | |
* shr.el (shr-table-body): Allow tables to have text children.
| -rw-r--r-- | lisp/net/shr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 88041f7e553..746cbb61aae 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el | |||
| @@ -1602,7 +1602,7 @@ The preference is a float determined from `shr-prefer-media-type'." | |||
| 1602 | (defun shr-table-body (dom) | 1602 | (defun shr-table-body (dom) |
| 1603 | (let ((tbodies (seq-filter (lambda (child) | 1603 | (let ((tbodies (seq-filter (lambda (child) |
| 1604 | (eq (dom-tag child) 'tbody)) | 1604 | (eq (dom-tag child) 'tbody)) |
| 1605 | (dom-children dom)))) | 1605 | (dom-non-text-children dom)))) |
| 1606 | (cond | 1606 | (cond |
| 1607 | ((null tbodies) | 1607 | ((null tbodies) |
| 1608 | dom) | 1608 | dom) |