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 0b1a4dac6a4..8a3f73e0f83 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el | |||
| @@ -1588,8 +1588,8 @@ The preference is a float determined from `shr-prefer-media-type'." | |||
| 1588 | (car tbodies)) | 1588 | (car tbodies)) |
| 1589 | (t | 1589 | (t |
| 1590 | ;; Table with multiple tbodies. Convert into a single tbody. | 1590 | ;; Table with multiple tbodies. Convert into a single tbody. |
| 1591 | `(tbody nil | 1591 | `(tbody nil ,@(cl-reduce 'append |
| 1592 | ,@(reduce 'append (mapcar 'dom-non-text-children tbodies))))))) | 1592 | (mapcar 'dom-non-text-children tbodies))))))) |
| 1593 | 1593 | ||
| 1594 | (defun shr-tag-table (dom) | 1594 | (defun shr-tag-table (dom) |
| 1595 | (shr-ensure-paragraph) | 1595 | (shr-ensure-paragraph) |