* shr.el (shr-render-td): Render td content with shr-descend, so style
will be applied to <td> too.
+ (shr-colorize-region): Colorize region even if we only have a background.
+ (shr-tag-body): Fix color and background color inheritance.
2010-12-06 Katsumi Yamaoka <yamaoka@jpl.org>
(shr-color-visible bg fg)))))))
(defun shr-colorize-region (start end fg &optional bg)
- (when fg
+ (when (or fg bg)
(let ((new-colors (shr-color-check fg bg)))
(when new-colors
(shr-put-color start end :foreground (cadr new-colors))
(let* ((start (point))
(fgcolor (cdr (assq :fgcolor cont)))
(bgcolor (cdr (assq :bgcolor cont)))
- (shr-stylesheet (list (cons :color fgcolor)
- (cons :background-color bgcolor))))
+ (shr-stylesheet (list (cons 'color fgcolor)
+ (cons 'background-color bgcolor))))
(shr-generic cont)
(shr-colorize-region start (point) fgcolor bgcolor)))