diff options
| -rw-r--r-- | lisp/net/shr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 18eadcb0f91..8b51fc83f44 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el | |||
| @@ -1581,8 +1581,8 @@ The preference is a float determined from `shr-prefer-media-type'." | |||
| 1581 | (car tbodies)) | 1581 | (car tbodies)) |
| 1582 | (t | 1582 | (t |
| 1583 | ;; Table with multiple tbodies. Convert into a single tbody. | 1583 | ;; Table with multiple tbodies. Convert into a single tbody. |
| 1584 | `(tbody nil | 1584 | `(tbody nil ,@(cl-reduce 'append |
| 1585 | ,@(reduce 'append (mapcar 'dom-non-text-children tbodies))))))) | 1585 | (mapcar 'dom-non-text-children tbodies))))))) |
| 1586 | 1586 | ||
| 1587 | (defun shr-tag-table (dom) | 1587 | (defun shr-tag-table (dom) |
| 1588 | (shr-ensure-paragraph) | 1588 | (shr-ensure-paragraph) |