From c314a4cb7cdeca584f7e178fe2ae52f769ba6520 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Wed, 24 Nov 2010 23:01:37 +0100 Subject: [PATCH] shr: add bgcolor support in td Signed-off-by: Julien Danjou --- lisp/ChangeLog | 1 + lisp/shr.el | 1 + 2 files changed, 2 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a45118575..a778fc794 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -14,6 +14,7 @@ 2010-11-24 Julien Danjou * shr.el (shr-tag-table): Add bgcolor support. + (shr-render-td): Add bgcolor support. * message.el (message-goto-body): Use called-interactively-p. (message-in-body-p): message-goto-body returns point. diff --git a/lisp/shr.el b/lisp/shr.el index 23ecbde86..286cab161 100644 --- a/lisp/shr.el +++ b/lisp/shr.el @@ -953,6 +953,7 @@ text will be inserted at start." (let ((cache (cdr (assoc (cons width cont) shr-content-cache)))) (if cache (insert cache) + (shr-insert-background-overlay (cdr (assq :bgcolor cont)) (point)) (let ((shr-width width) (shr-indentation 0)) (shr-generic cont)) -- 2.34.1