shr: Render td content with shr-descend

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c824f29..e743aea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-06  Julien Danjou  <julien@danjou.info>
+
+       * shr.el (shr-render-td): Render td content with shr-descend, so style
+       will be applied to <td> too.
+
 2010-12-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * shr.el (shr-find-fill-point): Don't regard apostrophe as kinsoku-bol.

diff --git a/lisp/shr.el b/lisp/shr.el
index 4c4f47e..f7ae969 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -1040,7 +1040,7 @@ ones, in case fg and bg are nil."
          (insert cache)
        (let ((shr-width width)
              (shr-indentation 0))
-         (shr-generic cont))
+         (shr-descend (cons 'td cont)))
        (delete-region
         (point)
         (+ (point)