Mercurial > emacs

changeset 111696:c63f96430f63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
shr-color.el (shr-color->hexadecimal): Ignore case of color names.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Wed, 24 Nov 2010 06:22:51 +0000
parents 62d2be8b2bd2
children ff6a7e607408
files lisp/gnus/ChangeLog lisp/gnus/shr-color.el
diffstat 2 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Wed Nov 24 01:28:37 2010 +0000
+++ b/lisp/gnus/ChangeLog	Wed Nov 24 06:22:51 2010 +0000
@@ -1,5 +1,7 @@
 2010-11-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* shr-color.el (shr-color->hexadecimal): Ignore case of color names.
+
 	* color-lab.el: Add coding cookie.
 	(float-pi): Use eval-and-compile.
 
--- a/lisp/gnus/shr-color.el	Wed Nov 24 01:28:37 2010 +0000
+++ b/lisp/gnus/shr-color.el	Wed Nov 24 06:22:51 2010 +0000
@@ -260,8 +260,7 @@
             (shr-color-hsl-to-rgb-fractions h s l)
           (format "#%02X%02X%02X" (* r 255) (* g 255) (* b 255)))))
      ;; Color names
-     ((assoc color shr-color-html-colors-alist)
-      (cdr (assoc-string color shr-color-html-colors-alist t)))
+     ((cdr (assoc-string color shr-color-html-colors-alist t)))
      ;; Unrecognized color :(
      (t
       nil))))