[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 2f838b7: Fix shr table rendering of nested tables
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] emacs-25 2f838b7: Fix shr table rendering of nested tables |
Date: |
Mon, 18 Jan 2016 19:37:50 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 2f838b7: Fix shr table rendering of nested tables,
Lars Ingebrigtsen <=