[Emacs-diffs] emacs-25 2f838b7: Fix shr table rendering of nested tables

[Lars Ingebrigtsen]

branch: emacs-25
commit 2f838b76897329867a49271608beff1116625d59
Author: Lars Magne Ingebrigtsen <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>

    Fix shr table rendering of nested tables
    
    * shr.el (shr-table-body): Don't include all tbodies in nested
    tables in the levels above.
---
 lisp/net/shr.el |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 0703171..88041f7 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1600,7 +1600,9 @@ The preference is a float determined from 
`shr-prefer-media-type'."
     (shr-insert-table (shr-make-table dom sketch-widths t) sketch-widths)))
 
 (defun shr-table-body (dom)
-  (let ((tbodies (dom-by-tag dom 'tbody)))
+  (let ((tbodies (seq-filter (lambda (child)
+                               (eq (dom-tag child) 'tbody))
+                             (dom-children dom))))
     (cond
      ((null tbodies)
       dom)