2010-11-24 Katsumi Yamaoka <yamaoka@jpl.org>
+ * shr.el (shr-insert-color-overlay): Pass rgb(rrr, ggg, bbb) type color
+ expression to shr-color-check as is.
+
* shr-color.el (shr-color->hexadecimal): Ignore case of color names.
* color-lab.el: Add coding cookie.
(defun shr-insert-color-overlay (color start end)
(when color
- (when (string-match " " color)
+ (when (and (not (string-match "\\`rgb([^\)]+)\\'" color))
+ (string-match " " color))
(setq color (car (split-string color))))
(let ((overlay (make-overlay start end)))
(overlay-put overlay 'face (cons 'foreground-color
- (cadr (shr-color-check color)))))))
+ (cadr (shr-color-check color)))))))
;;; Tag-specific rendering rules.