Mercurial > emacs

--- a/lisp/term/tty-colors.el	Sun Jun 09 02:27:43 2002 +0000
+++ b/lisp/term/tty-colors.el	Sun Jun 09 12:53:53 2002 +0000
@@ -1,6 +1,6 @@
 ;;; tty-colors.el --- color support for character terminals

-;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc.

 ;; Author: Eli Zaretskii <eliz@is.elta.co.il>
 ;; Maintainer: FSF
@@ -80,665 +80,670 @@
 ;; names such as "lightred" or "lightblue", because they will have
 ;; different effect on different displays.  Instead, use "red1" and
 ;; "blue1", respectively.
+;;
+;; Note: the RGB values below are in the range 0-65535, but are derived
+;; from the standard 8-bit X definitions (so the upper and lower bytes
+;; of each value are actually identical).
+;;
 (defvar color-name-rgb-alist
-  '(("snow"		255 250 250)
-    ("ghostwhite"	248 248 255)
-    ("whitesmoke"	245 245 245)
-    ("gainsboro"	220 220 220)
-    ("floralwhite"	255 250 240)
-    ("oldlace"		253 245 230)
-    ("linen"		250 240 230)
-    ("antiquewhite"	250 235 215)
-    ("papayawhip"	255 239 213)
-    ("blanchedalmond"	255 235 205)
-    ("bisque"		255 228 196)
-    ("peachpuff"	255 218 185)
-    ("navajowhite"	255 222 173)
-    ("moccasin"		255 228 181)
-    ("cornsilk"		255 248 220)
-    ("ivory"		255 255 240)
-    ("lemonchiffon"	255 250 205)
-    ("seashell"		255 245 238)
-    ("honeydew"		240 255 240)
-    ("mintcream"	245 255 250)
-    ("azure"		240 255 255)
-    ("aliceblue"	240 248 255)
-    ("lavender"		230 230 250)
-    ("lavenderblush"	255 240 245)
-    ("mistyrose"	255 228 225)
-    ("white"		255 255 255)
-    ("black"		0 0 0)
-    ("darkslategray"	47 79 79)
-    ("darkslategrey"	47 79 79)
-    ("dimgray"		105 105 105)
-    ("dimgrey"		105 105 105)
-    ("slategray"	112 128 144)
-    ("slategrey"	112 128 144)
-    ("lightslategray"	119 136 153)
-    ("lightslategrey"	119 136 153)
-    ("gray"		190 190 190)
-    ("grey"		190 190 190)
-    ("lightgrey"	211 211 211)
-    ("lightgray"	211 211 211)
-    ("midnightblue"	25 25 112)
-    ("navy"		0 0 128)
-    ("navyblue"		0 0 128)
-    ("cornflowerblue"	100 149 237)
-    ("darkslateblue"	72 61 139)
-    ("slateblue"	106 90 205)
-    ("mediumslateblue"	123 104 238)
-    ("lightslateblue"	132 112 255)
-    ("mediumblue"	0 0 205)
-    ("royalblue"	65 105 225)
-    ("blue"		0 0 255)
-    ("dodgerblue"	30 144 255)
-    ("deepskyblue"	0 191 255)
-    ("skyblue"		135 206 235)
-    ("lightskyblue"	135 206 250)
-    ("steelblue"	70 130 180)
-    ("lightsteelblue"	176 196 222)
-    ("lightblue"	173 216 230)
-    ("powderblue"	176 224 230)
-    ("paleturquoise"	175 238 238)
-    ("darkturquoise"	0 206 209)
-    ("mediumturquoise"	72 209 204)
-    ("turquoise"	64 224 208)
-    ("cyan"		0 255 255)
-    ("lightcyan"	224 255 255)
-    ("cadetblue"	95 158 160)
-    ("mediumaquamarine"	102 205 170)
-    ("aquamarine"	127 255 212)
-    ("darkgreen"	0 100 0)
-    ("darkolivegreen"	85 107 47)
-    ("darkseagreen"	143 188 143)
-    ("seagreen"		46 139 87)
-    ("mediumseagreen"	60 179 113)
-    ("lightseagreen"	32 178 170)
-    ("palegreen"	152 251 152)
-    ("springgreen"	0 255 127)
-    ("lawngreen"	124 252 0)
-    ("green"		0 255 0)
-    ("chartreuse"	127 255 0)
-    ("mediumspringgreen"	0 250 154)
-    ("greenyellow"	173 255 47)
-    ("limegreen"	50 205 50)
-    ("yellowgreen"	154 205 50)
-    ("forestgreen"	34 139 34)
-    ("olivedrab"	107 142 35)
-    ("darkkhaki"	189 183 107)
-    ("khaki"		240 230 140)
-    ("palegoldenrod"	238 232 170)
-    ("lightgoldenrodyellow"	250 250 210)
-    ("lightyellow"	255 255 224)
-    ("yellow"		255 255 0)
-    ("gold"		255 215 0)
-    ("lightgoldenrod"	238 221 130)
-    ("goldenrod"	218 165 32)
-    ("darkgoldenrod"	184 134 11)
-    ("rosybrown"	188 143 143)
-    ("indianred"	205 92 92)
-    ("saddlebrown"	139 69 19)
-    ("sienna"		160 82 45)
-    ("peru"		205 133 63)
-    ("burlywood"	222 184 135)
-    ("beige"		245 245 220)
-    ("wheat"		245 222 179)
-    ("sandybrown"	244 164 96)
-    ("tan"		210 180 140)
-    ("chocolate"	210 105 30)
-    ("firebrick"	178 34 34)
-    ("brown"		165 42 42)
-    ("darksalmon"	233 150 122)
-    ("salmon"		250 128 114)
-    ("lightsalmon"	255 160 122)
-    ("orange"		255 165 0)
-    ("darkorange"	255 140 0)
-    ("coral"		255 127 80)
-    ("lightcoral"	240 128 128)
-    ("tomato"		255 99 71)
-    ("orangered"	255 69 0)
-    ("red"		255 0 0)
-    ("hotpink"		255 105 180)
-    ("deeppink"		255 20 147)
-    ("pink"		255 192 203)
-    ("lightpink"	255 182 193)
-    ("palevioletred"	219 112 147)
-    ("maroon"		176 48 96)
-    ("mediumvioletred"	199 21 133)
-    ("violetred"	208 32 144)
-    ("magenta"		255 0 255)
-    ("violet"		238 130 238)
-    ("plum"		221 160 221)
-    ("orchid"		218 112 214)
-    ("mediumorchid"	186 85 211)
-    ("darkorchid"	153 50 204)
-    ("darkviolet"	148 0 211)
-    ("blueviolet"	138 43 226)
-    ("purple"		160 32 240)
-    ("mediumpurple"	147 112 219)
-    ("thistle"		216 191 216)
-    ("snow1"		255 250 250)
-    ("snow2"		238 233 233)
-    ("snow3"		205 201 201)
-    ("snow4"		139 137 137)
-    ("seashell1"	255 245 238)
-    ("seashell2"	238 229 222)
-    ("seashell3"	205 197 191)
-    ("seashell4"	139 134 130)
-    ("antiquewhite1"	255 239 219)
-    ("antiquewhite2"	238 223 204)
-    ("antiquewhite3"	205 192 176)
-    ("antiquewhite4"	139 131 120)
-    ("bisque1"		255 228 196)
-    ("bisque2"		238 213 183)
-    ("bisque3"		205 183 158)
-    ("bisque4"		139 125 107)
-    ("peachpuff1"	255 218 185)
-    ("peachpuff2"	238 203 173)
-    ("peachpuff3"	205 175 149)
-    ("peachpuff4"	139 119 101)
-    ("navajowhite1"	255 222 173)
-    ("navajowhite2"	238 207 161)
-    ("navajowhite3"	205 179 139)
-    ("navajowhite4"	139 121 94)
-    ("lemonchiffon1"	255 250 205)
-    ("lemonchiffon2"	238 233 191)
-    ("lemonchiffon3"	205 201 165)
-    ("lemonchiffon4"	139 137 112)
-    ("cornsilk1"	255 248 220)
-    ("cornsilk2"	238 232 205)
-    ("cornsilk3"	205 200 177)
-    ("cornsilk4"	139 136 120)
-    ("ivory1"		255 255 240)
-    ("ivory2"		238 238 224)
-    ("ivory3"		205 205 193)
-    ("ivory4"		139 139 131)
-    ("honeydew1"	240 255 240)
-    ("honeydew2"	224 238 224)
-    ("honeydew3"	193 205 193)
-    ("honeydew4"	131 139 131)
-    ("lavenderblush1"	255 240 245)
-    ("lavenderblush2"	238 224 229)
-    ("lavenderblush3"	205 193 197)
-    ("lavenderblush4"	139 131 134)
-    ("mistyrose1"	255 228 225)
-    ("mistyrose2"	238 213 210)
-    ("mistyrose3"	205 183 181)
-    ("mistyrose4"	139 125 123)
-    ("azure1"		240 255 255)
-    ("azure2"		224 238 238)
-    ("azure3"		193 205 205)
-    ("azure4"		131 139 139)
-    ("slateblue1"	131 111 255)
-    ("slateblue2"	122 103 238)
-    ("slateblue3"	105 89 205)
-    ("slateblue4"	71 60 139)
-    ("royalblue1"	72 118 255)
-    ("royalblue2"	67 110 238)
-    ("royalblue3"	58 95 205)
-    ("royalblue4"	39 64 139)
-    ("blue1"		0 0 255)
-    ("blue2"		0 0 238)
-    ("blue3"		0 0 205)
-    ("blue4"		0 0 139)
-    ("dodgerblue1"	30 144 255)
-    ("dodgerblue2"	28 134 238)
-    ("dodgerblue3"	24 116 205)
-    ("dodgerblue4"	16 78 139)
-    ("steelblue1"	99 184 255)
-    ("steelblue2"	92 172 238)
-    ("steelblue3"	79 148 205)
-    ("steelblue4"	54 100 139)
-    ("deepskyblue1"	0 191 255)
-    ("deepskyblue2"	0 178 238)
-    ("deepskyblue3"	0 154 205)
-    ("deepskyblue4"	0 104 139)
-    ("skyblue1"		135 206 255)
-    ("skyblue2"		126 192 238)
-    ("skyblue3"		108 166 205)
-    ("skyblue4"		74 112 139)
-    ("lightskyblue1"	176 226 255)
-    ("lightskyblue2"	164 211 238)
-    ("lightskyblue3"	141 182 205)
-    ("lightskyblue4"	96 123 139)
-    ("slategray1"	198 226 255)
-    ("slategray2"	185 211 238)
-    ("slategray3"	159 182 205)
-    ("slategray4"	108 123 139)
-    ("lightsteelblue1"	202 225 255)
-    ("lightsteelblue2"	188 210 238)
-    ("lightsteelblue3"	162 181 205)
-    ("lightsteelblue4"	110 123 139)
-    ("lightblue1"	191 239 255)
-    ("lightblue2"	178 223 238)
-    ("lightblue3"	154 192 205)
-    ("lightblue4"	104 131 139)
-    ("lightcyan1"	224 255 255)
-    ("lightcyan2"	209 238 238)
-    ("lightcyan3"	180 205 205)
-    ("lightcyan4"	122 139 139)
-    ("paleturquoise1"	187 255 255)
-    ("paleturquoise2"	174 238 238)
-    ("paleturquoise3"	150 205 205)
-    ("paleturquoise4"	102 139 139)
-    ("cadetblue1"	152 245 255)
-    ("cadetblue2"	142 229 238)
-    ("cadetblue3"	122 197 205)
-    ("cadetblue4"	83 134 139)
-    ("turquoise1"	0 245 255)
-    ("turquoise2"	0 229 238)
-    ("turquoise3"	0 197 205)
-    ("turquoise4"	0 134 139)
-    ("cyan1"		0 255 255)
-    ("cyan2"		0 238 238)
-    ("cyan3"		0 205 205)
-    ("cyan4"		0 139 139)
-    ("darkslategray1"	151 255 255)
-    ("darkslategray2"	141 238 238)
-    ("darkslategray3"	121 205 205)
-    ("darkslategray4"	82 139 139)
-    ("aquamarine1"	127 255 212)
-    ("aquamarine2"	118 238 198)
-    ("aquamarine3"	102 205 170)
-    ("aquamarine4"	69 139 116)
-    ("darkseagreen1"	193 255 193)
-    ("darkseagreen2"	180 238 180)
-    ("darkseagreen3"	155 205 155)
-    ("darkseagreen4"	105 139 105)
-    ("seagreen1"	84 255 159)
-    ("seagreen2"	78 238 148)
-    ("seagreen3"	67 205 128)
-    ("seagreen4"	46 139 87)
-    ("palegreen1"	154 255 154)
-    ("palegreen2"	144 238 144)
-    ("palegreen3"	124 205 124)
-    ("palegreen4"	84 139 84)
-    ("springgreen1"	0 255 127)
-    ("springgreen2"	0 238 118)
-    ("springgreen3"	0 205 102)
-    ("springgreen4"	0 139 69)
-    ("green1"		0 255 0)
-    ("green2"		0 238 0)
-    ("green3"		0 205 0)
-    ("green4"		0 139 0)
-    ("chartreuse1"	127 255 0)
-    ("chartreuse2"	118 238 0)
-    ("chartreuse3"	102 205 0)
-    ("chartreuse4"	69 139 0)
-    ("olivedrab1"	192 255 62)
-    ("olivedrab2"	179 238 58)
-    ("olivedrab3"	154 205 50)
-    ("olivedrab4"	105 139 34)
-    ("darkolivegreen1"	202 255 112)
-    ("darkolivegreen2"	188 238 104)
-    ("darkolivegreen3"	162 205 90)
-    ("darkolivegreen4"	110 139 61)
-    ("khaki1"		255 246 143)
-    ("khaki2"		238 230 133)
-    ("khaki3"		205 198 115)
-    ("khaki4"		139 134 78)
-    ("lightgoldenrod1"	255 236 139)
-    ("lightgoldenrod2"	238 220 130)
-    ("lightgoldenrod3"	205 190 112)
-    ("lightgoldenrod4"	139 129 76)
-    ("lightyellow1"	255 255 224)
-    ("lightyellow2"	238 238 209)
-    ("lightyellow3"	205 205 180)
-    ("lightyellow4"	139 139 122)
-    ("yellow1"		255 255 0)
-    ("yellow2"		238 238 0)
-    ("yellow3"		205 205 0)
-    ("yellow4"		139 139 0)
-    ("gold1"		255 215 0)
-    ("gold2"		238 201 0)
-    ("gold3"		205 173 0)
-    ("gold4"		139 117 0)
-    ("goldenrod1"	255 193 37)
-    ("goldenrod2"	238 180 34)
-    ("goldenrod3"	205 155 29)
-    ("goldenrod4"	139 105 20)
-    ("darkgoldenrod1"	255 185 15)
-    ("darkgoldenrod2"	238 173 14)
-    ("darkgoldenrod3"	205 149 12)
-    ("darkgoldenrod4"	139 101 8)
-    ("rosybrown1"	255 193 193)
-    ("rosybrown2"	238 180 180)
-    ("rosybrown3"	205 155 155)
-    ("rosybrown4"	139 105 105)
-    ("indianred1"	255 106 106)
-    ("indianred2"	238 99 99)
-    ("indianred3"	205 85 85)
-    ("indianred4"	139 58 58)
-    ("sienna1"		255 130 71)
-    ("sienna2"		238 121 66)
-    ("sienna3"		205 104 57)
-    ("sienna4"		139 71 38)
-    ("burlywood1"	255 211 155)
-    ("burlywood2"	238 197 145)
-    ("burlywood3"	205 170 125)
-    ("burlywood4"	139 115 85)
-    ("wheat1"		255 231 186)
-    ("wheat2"		238 216 174)
-    ("wheat3"		205 186 150)
-    ("wheat4"		139 126 102)
-    ("tan1"		255 165 79)
-    ("tan2"		238 154 73)
-    ("tan3"		205 133 63)
-    ("tan4"		139 90 43)
-    ("chocolate1"	255 127 36)
-    ("chocolate2"	238 118 33)
-    ("chocolate3"	205 102 29)
-    ("chocolate4"	139 69 19)
-    ("firebrick1"	255 48 48)
-    ("firebrick2"	238 44 44)
-    ("firebrick3"	205 38 38)
-    ("firebrick4"	139 26 26)
-    ("brown1"		255 64 64)
-    ("brown2"		238 59 59)
-    ("brown3"		205 51 51)
-    ("brown4"		139 35 35)
-    ("salmon1"		255 140 105)
-    ("salmon2"		238 130 98)
-    ("salmon3"		205 112 84)
-    ("salmon4"		139 76 57)
-    ("lightsalmon1"	255 160 122)
-    ("lightsalmon2"	238 149 114)
-    ("lightsalmon3"	205 129 98)
-    ("lightsalmon4"	139 87 66)
-    ("orange1"		255 165 0)
-    ("orange2"		238 154 0)
-    ("orange3"		205 133 0)
-    ("orange4"		139 90 0)
-    ("darkorange1"	255 127 0)
-    ("darkorange2"	238 118 0)
-    ("darkorange3"	205 102 0)
-    ("darkorange4"	139 69 0)
-    ("coral1"		255 114 86)
-    ("coral2"		238 106 80)
-    ("coral3"		205 91 69)
-    ("coral4"		139 62 47)
-    ("tomato1"		255 99 71)
-    ("tomato2"		238 92 66)
-    ("tomato3"		205 79 57)
-    ("tomato4"		139 54 38)
-    ("orangered1"	255 69 0)
-    ("orangered2"	238 64 0)
-    ("orangered3"	205 55 0)
-    ("orangered4"	139 37 0)
-    ("red1"		255 0 0)
-    ("red2"		238 0 0)
-    ("red3"		205 0 0)
-    ("red4"		139 0 0)
-    ("deeppink1"	255 20 147)
-    ("deeppink2"	238 18 137)
-    ("deeppink3"	205 16 118)
-    ("deeppink4"	139 10 80)
-    ("hotpink1"		255 110 180)
-    ("hotpink2"		238 106 167)
-    ("hotpink3"		205 96 144)
-    ("hotpink4"		139 58 98)
-    ("pink1"		255 181 197)
-    ("pink2"		238 169 184)
-    ("pink3"		205 145 158)
-    ("pink4"		139 99 108)
-    ("lightpink1"	255 174 185)
-    ("lightpink2"	238 162 173)
-    ("lightpink3"	205 140 149)
-    ("lightpink4"	139 95 101)
-    ("palevioletred1"	255 130 171)
-    ("palevioletred2"	238 121 159)
-    ("palevioletred3"	205 104 137)
-    ("palevioletred4"	139 71 93)
-    ("maroon1"		255 52 179)
-    ("maroon2"		238 48 167)
-    ("maroon3"		205 41 144)
-    ("maroon4"		139 28 98)
-    ("violetred1"	255 62 150)
-    ("violetred2"	238 58 140)
-    ("violetred3"	205 50 120)
-    ("violetred4"	139 34 82)
-    ("magenta1"		255 0 255)
-    ("magenta2"		238 0 238)
-    ("magenta3"		205 0 205)
-    ("magenta4"		139 0 139)
-    ("orchid1"		255 131 250)
-    ("orchid2"		238 122 233)
-    ("orchid3"		205 105 201)
-    ("orchid4"		139 71 137)
-    ("plum1"		255 187 255)
-    ("plum2"		238 174 238)
-    ("plum3"		205 150 205)
-    ("plum4"		139 102 139)
-    ("mediumorchid1"	224 102 255)
-    ("mediumorchid2"	209 95 238)
-    ("mediumorchid3"	180 82 205)
-    ("mediumorchid4"	122 55 139)
-    ("darkorchid1"	191 62 255)
-    ("darkorchid2"	178 58 238)
-    ("darkorchid3"	154 50 205)
-    ("darkorchid4"	104 34 139)
-    ("purple1"		155 48 255)
-    ("purple2"		145 44 238)
-    ("purple3"		125 38 205)
-    ("purple4"		85 26 139)
-    ("mediumpurple1"	171 130 255)
-    ("mediumpurple2"	159 121 238)
-    ("mediumpurple3"	137 104 205)
-    ("mediumpurple4"	93 71 139)
-    ("thistle1"		255 225 255)
-    ("thistle2"		238 210 238)
-    ("thistle3"		205 181 205)
-    ("thistle4"		139 123 139)
-    ("gray0"		0 0 0)
-    ("grey0"		0 0 0)
-    ("gray1"		3 3 3)
-    ("grey1"		3 3 3)
-    ("gray2"		5 5 5)
-    ("grey2"		5 5 5)
-    ("gray3"		8 8 8)
-    ("grey3"		8 8 8)
-    ("gray4"		10 10 10)
-    ("grey4"		10 10 10)
-    ("gray5"		13 13 13)
-    ("grey5"		13 13 13)
-    ("gray6"		15 15 15)
-    ("grey6"		15 15 15)
-    ("gray7"		18 18 18)
-    ("grey7"		18 18 18)
-    ("gray8"		20 20 20)
-    ("grey8"		20 20 20)
-    ("gray9"		23 23 23)
-    ("grey9"		23 23 23)
-    ("gray10"		26 26 26)
-    ("grey10"		26 26 26)
-    ("gray11"		28 28 28)
-    ("grey11"		28 28 28)
-    ("gray12"		31 31 31)
-    ("grey12"		31 31 31)
-    ("gray13"		33 33 33)
-    ("grey13"		33 33 33)
-    ("gray14"		36 36 36)
-    ("grey14"		36 36 36)
-    ("gray15"		38 38 38)
-    ("grey15"		38 38 38)
-    ("gray16"		41 41 41)
-    ("grey16"		41 41 41)
-    ("gray17"		43 43 43)
-    ("grey17"		43 43 43)
-    ("gray18"		46 46 46)
-    ("grey18"		46 46 46)
-    ("gray19"		48 48 48)
-    ("grey19"		48 48 48)
-    ("gray20"		51 51 51)
-    ("grey20"		51 51 51)
-    ("gray21"		54 54 54)
-    ("grey21"		54 54 54)
-    ("gray22"		56 56 56)
-    ("grey22"		56 56 56)
-    ("gray23"		59 59 59)
-    ("grey23"		59 59 59)
-    ("gray24"		61 61 61)
-    ("grey24"		61 61 61)
-    ("gray25"		64 64 64)
-    ("grey25"		64 64 64)
-    ("gray26"		66 66 66)
-    ("grey26"		66 66 66)
-    ("gray27"		69 69 69)
-    ("grey27"		69 69 69)
-    ("gray28"		71 71 71)
-    ("grey28"		71 71 71)
-    ("gray29"		74 74 74)
-    ("grey29"		74 74 74)
-    ("gray30"		77 77 77)
-    ("grey30"		77 77 77)
-    ("gray31"		79 79 79)
-    ("grey31"		79 79 79)
-    ("gray32"		82 82 82)
-    ("grey32"		82 82 82)
-    ("gray33"		84 84 84)
-    ("grey33"		84 84 84)
-    ("gray34"		87 87 87)
-    ("grey34"		87 87 87)
-    ("gray35"		89 89 89)
-    ("grey35"		89 89 89)
-    ("gray36"		92 92 92)
-    ("grey36"		92 92 92)
-    ("gray37"		94 94 94)
-    ("grey37"		94 94 94)
-    ("gray38"		97 97 97)
-    ("grey38"		97 97 97)
-    ("gray39"		99 99 99)
-    ("grey39"		99 99 99)
-    ("gray40"		102 102 102)
-    ("grey40"		102 102 102)
-    ("gray41"		105 105 105)
-    ("grey41"		105 105 105)
-    ("gray42"		107 107 107)
-    ("grey42"		107 107 107)
-    ("gray43"		110 110 110)
-    ("grey43"		110 110 110)
-    ("gray44"		112 112 112)
-    ("grey44"		112 112 112)
-    ("gray45"		115 115 115)
-    ("grey45"		115 115 115)
-    ("gray46"		117 117 117)
-    ("grey46"		117 117 117)
-    ("gray47"		120 120 120)
-    ("grey47"		120 120 120)
-    ("gray48"		122 122 122)
-    ("grey48"		122 122 122)
-    ("gray49"		125 125 125)
-    ("grey49"		125 125 125)
-    ("gray50"		127 127 127)
-    ("grey50"		127 127 127)
-    ("gray51"		130 130 130)
-    ("grey51"		130 130 130)
-    ("gray52"		133 133 133)
-    ("grey52"		133 133 133)
-    ("gray53"		135 135 135)
-    ("grey53"		135 135 135)
-    ("gray54"		138 138 138)
-    ("grey54"		138 138 138)
-    ("gray55"		140 140 140)
-    ("grey55"		140 140 140)
-    ("gray56"		143 143 143)
-    ("grey56"		143 143 143)
-    ("gray57"		145 145 145)
-    ("grey57"		145 145 145)
-    ("gray58"		148 148 148)
-    ("grey58"		148 148 148)
-    ("gray59"		150 150 150)
-    ("grey59"		150 150 150)
-    ("gray60"		153 153 153)
-    ("grey60"		153 153 153)
-    ("gray61"		156 156 156)
-    ("grey61"		156 156 156)
-    ("gray62"		158 158 158)
-    ("grey62"		158 158 158)
-    ("gray63"		161 161 161)
-    ("grey63"		161 161 161)
-    ("gray64"		163 163 163)
-    ("grey64"		163 163 163)
-    ("gray65"		166 166 166)
-    ("grey65"		166 166 166)
-    ("gray66"		168 168 168)
-    ("grey66"		168 168 168)
-    ("gray67"		171 171 171)
-    ("grey67"		171 171 171)
-    ("gray68"		173 173 173)
-    ("grey68"		173 173 173)
-    ("gray69"		176 176 176)
-    ("grey69"		176 176 176)
-    ("gray70"		179 179 179)
-    ("grey70"		179 179 179)
-    ("gray71"		181 181 181)
-    ("grey71"		181 181 181)
-    ("gray72"		184 184 184)
-    ("grey72"		184 184 184)
-    ("gray73"		186 186 186)
-    ("grey73"		186 186 186)
-    ("gray74"		189 189 189)
-    ("grey74"		189 189 189)
-    ("gray75"		191 191 191)
-    ("grey75"		191 191 191)
-    ("gray76"		194 194 194)
-    ("grey76"		194 194 194)
-    ("gray77"		196 196 196)
-    ("grey77"		196 196 196)
-    ("gray78"		199 199 199)
-    ("grey78"		199 199 199)
-    ("gray79"		201 201 201)
-    ("grey79"		201 201 201)
-    ("gray80"		204 204 204)
-    ("grey80"		204 204 204)
-    ("gray81"		207 207 207)
-    ("grey81"		207 207 207)
-    ("gray82"		209 209 209)
-    ("grey82"		209 209 209)
-    ("gray83"		212 212 212)
-    ("grey83"		212 212 212)
-    ("gray84"		214 214 214)
-    ("grey84"		214 214 214)
-    ("gray85"		217 217 217)
-    ("grey85"		217 217 217)
-    ("gray86"		219 219 219)
-    ("grey86"		219 219 219)
-    ("gray87"		222 222 222)
-    ("grey87"		222 222 222)
-    ("gray88"		224 224 224)
-    ("grey88"		224 224 224)
-    ("gray89"		227 227 227)
-    ("grey89"		227 227 227)
-    ("gray90"		229 229 229)
-    ("grey90"		229 229 229)
-    ("gray91"		232 232 232)
-    ("grey91"		232 232 232)
-    ("gray92"		235 235 235)
-    ("grey92"		235 235 235)
-    ("gray93"		237 237 237)
-    ("grey93"		237 237 237)
-    ("gray94"		240 240 240)
-    ("grey94"		240 240 240)
-    ("gray95"		242 242 242)
-    ("grey95"		242 242 242)
-    ("gray96"		245 245 245)
-    ("grey96"		245 245 245)
-    ("gray97"		247 247 247)
-    ("grey97"		247 247 247)
-    ("gray98"		250 250 250)
-    ("grey98"		250 250 250)
-    ("gray99"		252 252 252)
-    ("grey99"		252 252 252)
-    ("gray100"		255 255 255)
-    ("grey100"		255 255 255)
-    ("darkgrey"		169 169 169)
-    ("darkgray"		169 169 169)
-    ("darkblue"		0 0 139)
-    ("darkcyan"		0 139 139) ; no "lightmagenta", see the comment above
-    ("darkmagenta"	139 0 139)
-    ("darkred"		139 0 0)  ; but no "lightred", see the comment above
-    ("lightgreen"	144 238 144))
-  "An alist of X color names and associated 8-bit RGB values.")
+  '(("snow"		65535 64250 64250)
+    ("ghostwhite"	63736 63736 65535)
+    ("whitesmoke"	62965 62965 62965)
+    ("gainsboro"	56540 56540 56540)
+    ("floralwhite"	65535 64250 61680)
+    ("oldlace"		65021 62965 59110)
+    ("linen"		64250 61680 59110)
+    ("antiquewhite"	64250 60395 55255)
+    ("papayawhip"	65535 61423 54741)
+    ("blanchedalmond"	65535 60395 52685)
+    ("bisque"		65535 58596 50372)
+    ("peachpuff"	65535 56026 47545)
+    ("navajowhite"	65535 57054 44461)
+    ("moccasin"		65535 58596 46517)
+    ("cornsilk"		65535 63736 56540)
+    ("ivory"		65535 65535 61680)
+    ("lemonchiffon"	65535 64250 52685)
+    ("seashell"		65535 62965 61166)
+    ("honeydew"		61680 65535 61680)
+    ("mintcream"	62965 65535 64250)
+    ("azure"		61680 65535 65535)
+    ("aliceblue"	61680 63736 65535)
+    ("lavender"		59110 59110 64250)
+    ("lavenderblush"	65535 61680 62965)
+    ("mistyrose"	65535 58596 57825)
+    ("white"		65535 65535 65535)
+    ("black"		    0     0     0)
+    ("darkslategray"	12079 20303 20303)
+    ("darkslategrey"	12079 20303 20303)
+    ("dimgray"		26985 26985 26985)
+    ("dimgrey"		26985 26985 26985)
+    ("slategray"	28784 32896 37008)
+    ("slategrey"	28784 32896 37008)
+    ("lightslategray"	30583 34952 39321)
+    ("lightslategrey"	30583 34952 39321)
+    ("gray"		48830 48830 48830)
+    ("grey"		48830 48830 48830)
+    ("lightgrey"	54227 54227 54227)
+    ("lightgray"	54227 54227 54227)
+    ("midnightblue"	 6425  6425 28784)
+    ("navy"		    0     0 32896)
+    ("navyblue"		    0     0 32896)
+    ("cornflowerblue"	25700 38293 60909)
+    ("darkslateblue"	18504 15677 35723)
+    ("slateblue"	27242 23130 52685)
+    ("mediumslateblue"	31611 26728 61166)
+    ("lightslateblue"	33924 28784 65535)
+    ("mediumblue"	    0     0 52685)
+    ("royalblue"	16705 26985 57825)
+    ("blue"		    0     0 65535)
+    ("dodgerblue"	 7710 37008 65535)
+    ("deepskyblue"	    0 49087 65535)
+    ("skyblue"		34695 52942 60395)
+    ("lightskyblue"	34695 52942 64250)
+    ("steelblue"	17990 33410 46260)
+    ("lightsteelblue"	45232 50372 57054)
+    ("lightblue"	44461 55512 59110)
+    ("powderblue"	45232 57568 59110)
+    ("paleturquoise"	44975 61166 61166)
+    ("darkturquoise"	    0 52942 53713)
+    ("mediumturquoise"	18504 53713 52428)
+    ("turquoise"	16448 57568 53456)
+    ("cyan"		    0 65535 65535)
+    ("lightcyan"	57568 65535 65535)
+    ("cadetblue"	24415 40606 41120)
+    ("mediumaquamarine"	26214 52685 43690)
+    ("aquamarine"	32639 65535 54484)
+    ("darkgreen"	    0 25700     0)
+    ("darkolivegreen"	21845 27499 12079)
+    ("darkseagreen"	36751 48316 36751)
+    ("seagreen"		11822 35723 22359)
+    ("mediumseagreen"	15420 46003 29041)
+    ("lightseagreen"	 8224 45746 43690)
+    ("palegreen"	39064 64507 39064)
+    ("springgreen"	    0 65535 32639)
+    ("lawngreen"	31868 64764     0)
+    ("green"		    0 65535     0)
+    ("chartreuse"	32639 65535     0)
+    ("mediumspringgreen"    0 64250 39578)
+    ("greenyellow"	44461 65535 12079)
+    ("limegreen"	12850 52685 12850)
+    ("yellowgreen"	39578 52685 12850)
+    ("forestgreen"	 8738 35723  8738)
+    ("olivedrab"	27499 36494  8995)
+    ("darkkhaki"	48573 47031 27499)
+    ("khaki"		61680 59110 35980)
+    ("palegoldenrod"	61166 59624 43690)
+    ("lightgoldenrodyellow" 64250 64250 53970)
+    ("lightyellow"	65535 65535 57568)
+    ("yellow"		65535 65535     0)
+    ("gold"		65535 55255     0)
+    ("lightgoldenrod"	61166 56797 33410)
+    ("goldenrod"	56026 42405  8224)
+    ("darkgoldenrod"	47288 34438  2827)
+    ("rosybrown"	48316 36751 36751)
+    ("indianred"	52685 23644 23644)
+    ("saddlebrown"	35723 17733  4883)
+    ("sienna"		41120 21074 11565)
+    ("peru"		52685 34181 16191)
+    ("burlywood"	57054 47288 34695)
+    ("beige"		62965 62965 56540)
+    ("wheat"		62965 57054 46003)
+    ("sandybrown"	62708 42148 24672)
+    ("tan"		53970 46260 35980)
+    ("chocolate"	53970 26985  7710)
+    ("firebrick"	45746  8738  8738)
+    ("brown"		42405 10794 10794)
+    ("darksalmon"	59881 38550 31354)
+    ("salmon"		64250 32896 29298)
+    ("lightsalmon"	65535 41120 31354)
+    ("orange"		65535 42405     0)
+    ("darkorange"	65535 35980     0)
+    ("coral"		65535 32639 20560)
+    ("lightcoral"	61680 32896 32896)
+    ("tomato"		65535 25443 18247)
+    ("orangered"	65535 17733     0)
+    ("red"		65535     0     0)
+    ("hotpink"		65535 26985 46260)
+    ("deeppink"		65535  5140 37779)
+    ("pink"		65535 49344 52171)
+    ("lightpink"	65535 46774 49601)
+    ("palevioletred"	56283 28784 37779)
+    ("maroon"		45232 12336 24672)
+    ("mediumvioletred"	51143  5397 34181)
+    ("violetred"	53456  8224 37008)
+    ("magenta"		65535     0 65535)
+    ("violet"		61166 33410 61166)
+    ("plum"		56797 41120 56797)
+    ("orchid"		56026 28784 54998)
+    ("mediumorchid"	47802 21845 54227)
+    ("darkorchid"	39321 12850 52428)
+    ("darkviolet"	38036     0 54227)
+    ("blueviolet"	35466 11051 58082)
+    ("purple"		41120  8224 61680)
+    ("mediumpurple"	37779 28784 56283)
+    ("thistle"		55512 49087 55512)
+    ("snow1"		65535 64250 64250)
+    ("snow2"		61166 59881 59881)
+    ("snow3"		52685 51657 51657)
+    ("snow4"		35723 35209 35209)
+    ("seashell1"	65535 62965 61166)
+    ("seashell2"	61166 58853 57054)
+    ("seashell3"	52685 50629 49087)
+    ("seashell4"	35723 34438 33410)
+    ("antiquewhite1"	65535 61423 56283)
+    ("antiquewhite2"	61166 57311 52428)
+    ("antiquewhite3"	52685 49344 45232)
+    ("antiquewhite4"	35723 33667 30840)
+    ("bisque1"		65535 58596 50372)
+    ("bisque2"		61166 54741 47031)
+    ("bisque3"		52685 47031 40606)
+    ("bisque4"		35723 32125 27499)
+    ("peachpuff1"	65535 56026 47545)
+    ("peachpuff2"	61166 52171 44461)
+    ("peachpuff3"	52685 44975 38293)
+    ("peachpuff4"	35723 30583 25957)
+    ("navajowhite1"	65535 57054 44461)
+    ("navajowhite2"	61166 53199 41377)
+    ("navajowhite3"	52685 46003 35723)
+    ("navajowhite4"	35723 31097 24158)
+    ("lemonchiffon1"	65535 64250 52685)
+    ("lemonchiffon2"	61166 59881 49087)
+    ("lemonchiffon3"	52685 51657 42405)
+    ("lemonchiffon4"	35723 35209 28784)
+    ("cornsilk1"	65535 63736 56540)
+    ("cornsilk2"	61166 59624 52685)
+    ("cornsilk3"	52685 51400 45489)
+    ("cornsilk4"	35723 34952 30840)
+    ("ivory1"		65535 65535 61680)
+    ("ivory2"		61166 61166 57568)
+    ("ivory3"		52685 52685 49601)
+    ("ivory4"		35723 35723 33667)
+    ("honeydew1"	61680 65535 61680)
+    ("honeydew2"	57568 61166 57568)
+    ("honeydew3"	49601 52685 49601)
+    ("honeydew4"	33667 35723 33667)
+    ("lavenderblush1"	65535 61680 62965)
+    ("lavenderblush2"	61166 57568 58853)
+    ("lavenderblush3"	52685 49601 50629)
+    ("lavenderblush4"	35723 33667 34438)
+    ("mistyrose1"	65535 58596 57825)
+    ("mistyrose2"	61166 54741 53970)
+    ("mistyrose3"	52685 47031 46517)
+    ("mistyrose4"	35723 32125 31611)
+    ("azure1"		61680 65535 65535)
+    ("azure2"		57568 61166 61166)
+    ("azure3"		49601 52685 52685)
+    ("azure4"		33667 35723 35723)
+    ("slateblue1"	33667 28527 65535)
+    ("slateblue2"	31354 26471 61166)
+    ("slateblue3"	26985 22873 52685)
+    ("slateblue4"	18247 15420 35723)
+    ("royalblue1"	18504 30326 65535)
+    ("royalblue2"	17219 28270 61166)
+    ("royalblue3"	14906 24415 52685)
+    ("royalblue4"	10023 16448 35723)
+    ("blue1"		    0     0 65535)
+    ("blue2"		    0     0 61166)
+    ("blue3"		    0     0 52685)
+    ("blue4"		    0     0 35723)
+    ("dodgerblue1"	 7710 37008 65535)
+    ("dodgerblue2"	 7196 34438 61166)
+    ("dodgerblue3"	 6168 29812 52685)
+    ("dodgerblue4"	 4112 20046 35723)
+    ("steelblue1"	25443 47288 65535)
+    ("steelblue2"	23644 44204 61166)
+    ("steelblue3"	20303 38036 52685)
+    ("steelblue4"	13878 25700 35723)
+    ("deepskyblue1"	    0 49087 65535)
+    ("deepskyblue2"	    0 45746 61166)
+    ("deepskyblue3"	    0 39578 52685)
+    ("deepskyblue4"	    0 26728 35723)
+    ("skyblue1"		34695 52942 65535)
+    ("skyblue2"		32382 49344 61166)
+    ("skyblue3"		27756 42662 52685)
+    ("skyblue4"		19018 28784 35723)
+    ("lightskyblue1"	45232 58082 65535)
+    ("lightskyblue2"	42148 54227 61166)
+    ("lightskyblue3"	36237 46774 52685)
+    ("lightskyblue4"	24672 31611 35723)
+    ("slategray1"	50886 58082 65535)
+    ("slategray2"	47545 54227 61166)
+    ("slategray3"	40863 46774 52685)
+    ("slategray4"	27756 31611 35723)
+    ("lightsteelblue1"	51914 57825 65535)
+    ("lightsteelblue2"	48316 53970 61166)
+    ("lightsteelblue3"	41634 46517 52685)
+    ("lightsteelblue4"	28270 31611 35723)
+    ("lightblue1"	49087 61423 65535)
+    ("lightblue2"	45746 57311 61166)
+    ("lightblue3"	39578 49344 52685)
+    ("lightblue4"	26728 33667 35723)
+    ("lightcyan1"	57568 65535 65535)
+    ("lightcyan2"	53713 61166 61166)
+    ("lightcyan3"	46260 52685 52685)
+    ("lightcyan4"	31354 35723 35723)
+    ("paleturquoise1"	48059 65535 65535)
+    ("paleturquoise2"	44718 61166 61166)
+    ("paleturquoise3"	38550 52685 52685)
+    ("paleturquoise4"	26214 35723 35723)
+    ("cadetblue1"	39064 62965 65535)
+    ("cadetblue2"	36494 58853 61166)
+    ("cadetblue3"	31354 50629 52685)
+    ("cadetblue4"	21331 34438 35723)
+    ("turquoise1"	    0 62965 65535)
+    ("turquoise2"	    0 58853 61166)
+    ("turquoise3"	    0 50629 52685)
+    ("turquoise4"	    0 34438 35723)
+    ("cyan1"		    0 65535 65535)
+    ("cyan2"		    0 61166 61166)
+    ("cyan3"		    0 52685 52685)
+    ("cyan4"		    0 35723 35723)
+    ("darkslategray1"	38807 65535 65535)
+    ("darkslategray2"	36237 61166 61166)
+    ("darkslategray3"	31097 52685 52685)
+    ("darkslategray4"	21074 35723 35723)
+    ("aquamarine1"	32639 65535 54484)
+    ("aquamarine2"	30326 61166 50886)
+    ("aquamarine3"	26214 52685 43690)
+    ("aquamarine4"	17733 35723 29812)
+    ("darkseagreen1"	49601 65535 49601)
+    ("darkseagreen2"	46260 61166 46260)
+    ("darkseagreen3"	39835 52685 39835)
+    ("darkseagreen4"	26985 35723 26985)
+    ("seagreen1"	21588 65535 40863)
+    ("seagreen2"	20046 61166 38036)
+    ("seagreen3"	17219 52685 32896)
+    ("seagreen4"	11822 35723 22359)
+    ("palegreen1"	39578 65535 39578)
+    ("palegreen2"	37008 61166 37008)
+    ("palegreen3"	31868 52685 31868)
+    ("palegreen4"	21588 35723 21588)
+    ("springgreen1"	    0 65535 32639)
+    ("springgreen2"	    0 61166 30326)
+    ("springgreen3"	    0 52685 26214)
+    ("springgreen4"	    0 35723 17733)
+    ("green1"		    0 65535     0)
+    ("green2"		    0 61166     0)
+    ("green3"		    0 52685     0)
+    ("green4"		    0 35723     0)
+    ("chartreuse1"	32639 65535     0)
+    ("chartreuse2"	30326 61166     0)
+    ("chartreuse3"	26214 52685     0)
+    ("chartreuse4"	17733 35723     0)
+    ("olivedrab1"	49344 65535 15934)
+    ("olivedrab2"	46003 61166 14906)
+    ("olivedrab3"	39578 52685 12850)
+    ("olivedrab4"	26985 35723  8738)
+    ("darkolivegreen1"	51914 65535 28784)
+    ("darkolivegreen2"	48316 61166 26728)
+    ("darkolivegreen3"	41634 52685 23130)
+    ("darkolivegreen4"	28270 35723 15677)
+    ("khaki1"		65535 63222 36751)
+    ("khaki2"		61166 59110 34181)
+    ("khaki3"		52685 50886 29555)
+    ("khaki4"		35723 34438 20046)
+    ("lightgoldenrod1"	65535 60652 35723)
+    ("lightgoldenrod2"	61166 56540 33410)
+    ("lightgoldenrod3"	52685 48830 28784)
+    ("lightgoldenrod4"	35723 33153 19532)
+    ("lightyellow1"	65535 65535 57568)
+    ("lightyellow2"	61166 61166 53713)
+    ("lightyellow3"	52685 52685 46260)
+    ("lightyellow4"	35723 35723 31354)
+    ("yellow1"		65535 65535     0)
+    ("yellow2"		61166 61166     0)
+    ("yellow3"		52685 52685     0)
+    ("yellow4"		35723 35723     0)
+    ("gold1"		65535 55255     0)
+    ("gold2"		61166 51657     0)
+    ("gold3"		52685 44461     0)
+    ("gold4"		35723 30069     0)
+    ("goldenrod1"	65535 49601  9509)
+    ("goldenrod2"	61166 46260  8738)
+    ("goldenrod3"	52685 39835  7453)
+    ("goldenrod4"	35723 26985  5140)
+    ("darkgoldenrod1"	65535 47545  3855)
+    ("darkgoldenrod2"	61166 44461  3598)
+    ("darkgoldenrod3"	52685 38293  3084)
+    ("darkgoldenrod4"	35723 25957  2056)
+    ("rosybrown1"	65535 49601 49601)
+    ("rosybrown2"	61166 46260 46260)
+    ("rosybrown3"	52685 39835 39835)
+    ("rosybrown4"	35723 26985 26985)
+    ("indianred1"	65535 27242 27242)
+    ("indianred2"	61166 25443 25443)
+    ("indianred3"	52685 21845 21845)
+    ("indianred4"	35723 14906 14906)
+    ("sienna1"		65535 33410 18247)
+    ("sienna2"		61166 31097 16962)
+    ("sienna3"		52685 26728 14649)
+    ("sienna4"		35723 18247  9766)
+    ("burlywood1"	65535 54227 39835)
+    ("burlywood2"	61166 50629 37265)
+    ("burlywood3"	52685 43690 32125)
+    ("burlywood4"	35723 29555 21845)
+    ("wheat1"		65535 59367 47802)
+    ("wheat2"		61166 55512 44718)
+    ("wheat3"		52685 47802 38550)
+    ("wheat4"		35723 32382 26214)
+    ("tan1"		65535 42405 20303)
+    ("tan2"		61166 39578 18761)
+    ("tan3"		52685 34181 16191)
+    ("tan4"		35723 23130 11051)
+    ("chocolate1"	65535 32639  9252)
+    ("chocolate2"	61166 30326  8481)
+    ("chocolate3"	52685 26214  7453)
+    ("chocolate4"	35723 17733  4883)
+    ("firebrick1"	65535 12336 12336)
+    ("firebrick2"	61166 11308 11308)
+    ("firebrick3"	52685  9766  9766)
+    ("firebrick4"	35723  6682  6682)
+    ("brown1"		65535 16448 16448)
+    ("brown2"		61166 15163 15163)
+    ("brown3"		52685 13107 13107)
+    ("brown4"		35723  8995  8995)
+    ("salmon1"		65535 35980 26985)
+    ("salmon2"		61166 33410 25186)
+    ("salmon3"		52685 28784 21588)
+    ("salmon4"		35723 19532 14649)
+    ("lightsalmon1"	65535 41120 31354)
+    ("lightsalmon2"	61166 38293 29298)
+    ("lightsalmon3"	52685 33153 25186)
+    ("lightsalmon4"	35723 22359 16962)
+    ("orange1"		65535 42405     0)
+    ("orange2"		61166 39578     0)
+    ("orange3"		52685 34181     0)
+    ("orange4"		35723 23130     0)
+    ("darkorange1"	65535 32639     0)
+    ("darkorange2"	61166 30326     0)
+    ("darkorange3"	52685 26214     0)
+    ("darkorange4"	35723 17733     0)
+    ("coral1"		65535 29298 22102)
+    ("coral2"		61166 27242 20560)
+    ("coral3"		52685 23387 17733)
+    ("coral4"		35723 15934 12079)
+    ("tomato1"		65535 25443 18247)
+    ("tomato2"		61166 23644 16962)
+    ("tomato3"		52685 20303 14649)
+    ("tomato4"		35723 13878  9766)
+    ("orangered1"	65535 17733     0)
+    ("orangered2"	61166 16448     0)
+    ("orangered3"	52685 14135     0)
+    ("orangered4"	35723  9509     0)
+    ("red1"		65535     0     0)
+    ("red2"		61166     0     0)
+    ("red3"		52685     0     0)
+    ("red4"		35723     0     0)
+    ("deeppink1"	65535  5140 37779)
+    ("deeppink2"	61166  4626 35209)
+    ("deeppink3"	52685  4112 30326)
+    ("deeppink4"	35723  2570 20560)
+    ("hotpink1"		65535 28270 46260)
+    ("hotpink2"		61166 27242 42919)
+    ("hotpink3"		52685 24672 37008)
+    ("hotpink4"		35723 14906 25186)
+    ("pink1"		65535 46517 50629)
+    ("pink2"		61166 43433 47288)
+    ("pink3"		52685 37265 40606)
+    ("pink4"		35723 25443 27756)
+    ("lightpink1"	65535 44718 47545)
+    ("lightpink2"	61166 41634 44461)
+    ("lightpink3"	52685 35980 38293)
+    ("lightpink4"	35723 24415 25957)
+    ("palevioletred1"	65535 33410 43947)
+    ("palevioletred2"	61166 31097 40863)
+    ("palevioletred3"	52685 26728 35209)
+    ("palevioletred4"	35723 18247 23901)
+    ("maroon1"		65535 13364 46003)
+    ("maroon2"		61166 12336 42919)
+    ("maroon3"		52685 10537 37008)
+    ("maroon4"		35723  7196 25186)
+    ("violetred1"	65535 15934 38550)
+    ("violetred2"	61166 14906 35980)
+    ("violetred3"	52685 12850 30840)
+    ("violetred4"	35723  8738 21074)
+    ("magenta1"		65535     0 65535)
+    ("magenta2"		61166     0 61166)
+    ("magenta3"		52685     0 52685)
+    ("magenta4"		35723     0 35723)
+    ("orchid1"		65535 33667 64250)
+    ("orchid2"		61166 31354 59881)
+    ("orchid3"		52685 26985 51657)
+    ("orchid4"		35723 18247 35209)
+    ("plum1"		65535 48059 65535)
+    ("plum2"		61166 44718 61166)
+    ("plum3"		52685 38550 52685)
+    ("plum4"		35723 26214 35723)
+    ("mediumorchid1"	57568 26214 65535)
+    ("mediumorchid2"	53713 24415 61166)
+    ("mediumorchid3"	46260 21074 52685)
+    ("mediumorchid4"	31354 14135 35723)
+    ("darkorchid1"	49087 15934 65535)
+    ("darkorchid2"	45746 14906 61166)
+    ("darkorchid3"	39578 12850 52685)
+    ("darkorchid4"	26728  8738 35723)
+    ("purple1"		39835 12336 65535)
+    ("purple2"		37265 11308 61166)
+    ("purple3"		32125  9766 52685)
+    ("purple4"		21845  6682 35723)
+    ("mediumpurple1"	43947 33410 65535)
+    ("mediumpurple2"	40863 31097 61166)
+    ("mediumpurple3"	35209 26728 52685)
+    ("mediumpurple4"	23901 18247 35723)
+    ("thistle1"		65535 57825 65535)
+    ("thistle2"		61166 53970 61166)
+    ("thistle3"		52685 46517 52685)
+    ("thistle4"		35723 31611 35723)
+    ("gray0"		    0     0     0)
+    ("grey0"		    0     0     0)
+    ("gray1"		  771   771   771)
+    ("grey1"		  771   771   771)
+    ("gray2"		 1285  1285  1285)
+    ("grey2"		 1285  1285  1285)
+    ("gray3"		 2056  2056  2056)
+    ("grey3"		 2056  2056  2056)
+    ("gray4"		 2570  2570  2570)
+    ("grey4"		 2570  2570  2570)
+    ("gray5"		 3341  3341  3341)
+    ("grey5"		 3341  3341  3341)
+    ("gray6"		 3855  3855  3855)
+    ("grey6"		 3855  3855  3855)
+    ("gray7"		 4626  4626  4626)
+    ("grey7"		 4626  4626  4626)
+    ("gray8"		 5140  5140  5140)
+    ("grey8"		 5140  5140  5140)
+    ("gray9"		 5911  5911  5911)
+    ("grey9"		 5911  5911  5911)
+    ("gray10"		 6682  6682  6682)
+    ("grey10"		 6682  6682  6682)
+    ("gray11"		 7196  7196  7196)
+    ("grey11"		 7196  7196  7196)
+    ("gray12"		 7967  7967  7967)
+    ("grey12"		 7967  7967  7967)
+    ("gray13"		 8481  8481  8481)
+    ("grey13"		 8481  8481  8481)
+    ("gray14"		 9252  9252  9252)
+    ("grey14"		 9252  9252  9252)
+    ("gray15"		 9766  9766  9766)
+    ("grey15"		 9766  9766  9766)
+    ("gray16"		10537 10537 10537)
+    ("grey16"		10537 10537 10537)
+    ("gray17"		11051 11051 11051)
+    ("grey17"		11051 11051 11051)
+    ("gray18"		11822 11822 11822)
+    ("grey18"		11822 11822 11822)
+    ("gray19"		12336 12336 12336)
+    ("grey19"		12336 12336 12336)
+    ("gray20"		13107 13107 13107)
+    ("grey20"		13107 13107 13107)
+    ("gray21"		13878 13878 13878)
+    ("grey21"		13878 13878 13878)
+    ("gray22"		14392 14392 14392)
+    ("grey22"		14392 14392 14392)
+    ("gray23"		15163 15163 15163)
+    ("grey23"		15163 15163 15163)
+    ("gray24"		15677 15677 15677)
+    ("grey24"		15677 15677 15677)
+    ("gray25"		16448 16448 16448)
+    ("grey25"		16448 16448 16448)
+    ("gray26"		16962 16962 16962)
+    ("grey26"		16962 16962 16962)
+    ("gray27"		17733 17733 17733)
+    ("grey27"		17733 17733 17733)
+    ("gray28"		18247 18247 18247)
+    ("grey28"		18247 18247 18247)
+    ("gray29"		19018 19018 19018)
+    ("grey29"		19018 19018 19018)
+    ("gray30"		19789 19789 19789)
+    ("grey30"		19789 19789 19789)
+    ("gray31"		20303 20303 20303)
+    ("grey31"		20303 20303 20303)
+    ("gray32"		21074 21074 21074)
+    ("grey32"		21074 21074 21074)
+    ("gray33"		21588 21588 21588)
+    ("grey33"		21588 21588 21588)
+    ("gray34"		22359 22359 22359)
+    ("grey34"		22359 22359 22359)
+    ("gray35"		22873 22873 22873)
+    ("grey35"		22873 22873 22873)
+    ("gray36"		23644 23644 23644)
+    ("grey36"		23644 23644 23644)
+    ("gray37"		24158 24158 24158)
+    ("grey37"		24158 24158 24158)
+    ("gray38"		24929 24929 24929)
+    ("grey38"		24929 24929 24929)
+    ("gray39"		25443 25443 25443)
+    ("grey39"		25443 25443 25443)
+    ("gray40"		26214 26214 26214)
+    ("grey40"		26214 26214 26214)
+    ("gray41"		26985 26985 26985)
+    ("grey41"		26985 26985 26985)
+    ("gray42"		27499 27499 27499)
+    ("grey42"		27499 27499 27499)
+    ("gray43"		28270 28270 28270)
+    ("grey43"		28270 28270 28270)
+    ("gray44"		28784 28784 28784)
+    ("grey44"		28784 28784 28784)
+    ("gray45"		29555 29555 29555)
+    ("grey45"		29555 29555 29555)
+    ("gray46"		30069 30069 30069)
+    ("grey46"		30069 30069 30069)
+    ("gray47"		30840 30840 30840)
+    ("grey47"		30840 30840 30840)
+    ("gray48"		31354 31354 31354)
+    ("grey48"		31354 31354 31354)
+    ("gray49"		32125 32125 32125)
+    ("grey49"		32125 32125 32125)
+    ("gray50"		32639 32639 32639)
+    ("grey50"		32639 32639 32639)
+    ("gray51"		33410 33410 33410)
+    ("grey51"		33410 33410 33410)
+    ("gray52"		34181 34181 34181)
+    ("grey52"		34181 34181 34181)
+    ("gray53"		34695 34695 34695)
+    ("grey53"		34695 34695 34695)
+    ("gray54"		35466 35466 35466)
+    ("grey54"		35466 35466 35466)
+    ("gray55"		35980 35980 35980)
+    ("grey55"		35980 35980 35980)
+    ("gray56"		36751 36751 36751)
+    ("grey56"		36751 36751 36751)
+    ("gray57"		37265 37265 37265)
+    ("grey57"		37265 37265 37265)
+    ("gray58"		38036 38036 38036)
+    ("grey58"		38036 38036 38036)
+    ("gray59"		38550 38550 38550)
+    ("grey59"		38550 38550 38550)
+    ("gray60"		39321 39321 39321)
+    ("grey60"		39321 39321 39321)
+    ("gray61"		40092 40092 40092)
+    ("grey61"		40092 40092 40092)
+    ("gray62"		40606 40606 40606)
+    ("grey62"		40606 40606 40606)
+    ("gray63"		41377 41377 41377)
+    ("grey63"		41377 41377 41377)
+    ("gray64"		41891 41891 41891)
+    ("grey64"		41891 41891 41891)
+    ("gray65"		42662 42662 42662)
+    ("grey65"		42662 42662 42662)
+    ("gray66"		43176 43176 43176)
+    ("grey66"		43176 43176 43176)
+    ("gray67"		43947 43947 43947)
+    ("grey67"		43947 43947 43947)
+    ("gray68"		44461 44461 44461)
+    ("grey68"		44461 44461 44461)
+    ("gray69"		45232 45232 45232)
+    ("grey69"		45232 45232 45232)
+    ("gray70"		46003 46003 46003)
+    ("grey70"		46003 46003 46003)
+    ("gray71"		46517 46517 46517)
+    ("grey71"		46517 46517 46517)
+    ("gray72"		47288 47288 47288)
+    ("grey72"		47288 47288 47288)
+    ("gray73"		47802 47802 47802)
+    ("grey73"		47802 47802 47802)
+    ("gray74"		48573 48573 48573)
+    ("grey74"		48573 48573 48573)
+    ("gray75"		49087 49087 49087)
+    ("grey75"		49087 49087 49087)
+    ("gray76"		49858 49858 49858)
+    ("grey76"		49858 49858 49858)
+    ("gray77"		50372 50372 50372)
+    ("grey77"		50372 50372 50372)
+    ("gray78"		51143 51143 51143)
+    ("grey78"		51143 51143 51143)
+    ("gray79"		51657 51657 51657)
+    ("grey79"		51657 51657 51657)
+    ("gray80"		52428 52428 52428)
+    ("grey80"		52428 52428 52428)
+    ("gray81"		53199 53199 53199)
+    ("grey81"		53199 53199 53199)
+    ("gray82"		53713 53713 53713)
+    ("grey82"		53713 53713 53713)
+    ("gray83"		54484 54484 54484)
+    ("grey83"		54484 54484 54484)
+    ("gray84"		54998 54998 54998)
+    ("grey84"		54998 54998 54998)
+    ("gray85"		55769 55769 55769)
+    ("grey85"		55769 55769 55769)
+    ("gray86"		56283 56283 56283)
+    ("grey86"		56283 56283 56283)
+    ("gray87"		57054 57054 57054)
+    ("grey87"		57054 57054 57054)
+    ("gray88"		57568 57568 57568)
+    ("grey88"		57568 57568 57568)
+    ("gray89"		58339 58339 58339)
+    ("grey89"		58339 58339 58339)
+    ("gray90"		58853 58853 58853)
+    ("grey90"		58853 58853 58853)
+    ("gray91"		59624 59624 59624)
+    ("grey91"		59624 59624 59624)
+    ("gray92"		60395 60395 60395)
+    ("grey92"		60395 60395 60395)
+    ("gray93"		60909 60909 60909)
+    ("grey93"		60909 60909 60909)
+    ("gray94"		61680 61680 61680)
+    ("grey94"		61680 61680 61680)
+    ("gray95"		62194 62194 62194)
+    ("grey95"		62194 62194 62194)
+    ("gray96"		62965 62965 62965)
+    ("grey96"		62965 62965 62965)
+    ("gray97"		63479 63479 63479)
+    ("grey97"		63479 63479 63479)
+    ("gray98"		64250 64250 64250)
+    ("grey98"		64250 64250 64250)
+    ("gray99"		64764 64764 64764)
+    ("grey99"		64764 64764 64764)
+    ("gray100"		65535 65535 65535)
+    ("grey100"		65535 65535 65535)
+    ("darkgrey"		43433 43433 43433)
+    ("darkgray"		43433 43433 43433)
+    ("darkblue"		    0     0 35723)
+    ("darkcyan"		    0 35723 35723) ; no "lightmagenta", see comment above
+    ("darkmagenta"	35723     0 35723)
+    ("darkred"		35723     0     0)  ; but no "lightred", see comment above
+    ("lightgreen"	37008 61166 37008))
+  "An alist of X color names and associated 16-bit RGB values.")

 (defvar tty-standard-colors
   '(("black"	0     0     0     0)
@@ -821,10 +826,10 @@
 (defun tty-color-canonicalize (color)
   "Return COLOR in canonical form.
 A canonicalized color name is all-lower case, with any blanks removed."
-  (let ((color (downcase color)))
-    (while (string-match " +" color)
-      (setq color (replace-match "" nil nil color)))
-    color))
+  (let ((case-fold-search nil))
+    (if (string-match "[A-Z ]" color)
+	(replace-regexp-in-string " +" "" (downcase color))
+      color)))

 (defun tty-color-define (name index &optional rgb frame)
   "Specify a tty color by its NAME, terminal INDEX and RGB values.
@@ -861,24 +866,29 @@
 (defun tty-color-approximate (rgb &optional frame)
   "Given a list of 3 rgb values in RGB, find the color in `tty-color-alist'
 which is the best approximation in the 3-dimensional RGB space,
-and return the index associated with the approximating color.
-Each value of the RGB triplet has to be scaled to the 0..255 range.
+and return its description.
+
+Value is a list of the form \(NAME INDEX R G B\).  Note that the returned
+NAME is not necessarily the same string as the argument COLOR, because
+the latter might need to be approximated if it is not supported directly.
+
+Each value of the RGB triplet should be in the range 0..65535 range.
 FRAME defaults to the selected frame."
   (let* ((color-list (tty-color-alist frame))
 	 (candidate (car color-list))
 	 (best-distance 195076)	;; 3 * 255^2 + 15
+	 (r (ash (car rgb) -8))
+	 (g (ash (cadr rgb) -8))
+	 (b (ash (nth 2 rgb) -8))
 	 best-color)
     (while candidate
-      (let* ((try-rgb (cddr candidate))
-	     (r (car rgb))
-	     (g (cadr rgb))
-	     (b (nth 2 rgb))
-	     ;; If the approximated color is not close enough to the
-	     ;; gray diagonal of the RGB cube, favor non-gray colors.
-	     ;; (The number 0.065 is an empirical ad-hoc'ery.)
-	     (favor-non-gray (>= (tty-color-off-gray-diag r g b) 0.065))
-	     try-r try-g try-b
-	     dif-r dif-g dif-b dist)
+      (let ((try-rgb (cddr candidate))
+	    ;; If the approximated color is not close enough to the
+	    ;; gray diagonal of the RGB cube, favor non-gray colors.
+	    ;; (The number 0.065 is an empirical ad-hoc'ery.)
+	    (favor-non-gray (>= (tty-color-off-gray-diag r g b) 0.065))
+	    try-r try-g try-b
+	    dif-r dif-g dif-b dist)
 	;; If the RGB values of the candidate color are unknown, we
 	;; never consider it for approximating another color.
 	(if try-rgb
@@ -886,9 +896,9 @@
 	      (setq try-r (lsh (car try-rgb) -8)
 		    try-g (lsh (cadr try-rgb) -8)
 		    try-b (lsh (nth 2 try-rgb) -8))
-	      (setq dif-r (- (car rgb) try-r)
-		    dif-g (- (cadr rgb) try-g)
-		    dif-b (- (nth 2 rgb) try-b))
+	      (setq dif-r (- r try-r)
+		    dif-g (- g try-g)
+		    dif-b (- b try-b))
 	      (setq dist (+ (* dif-r dif-r) (* dif-g dif-g) (* dif-b dif-b)))
 	      (if (and (< dist best-distance)
 		       ;; The candidate color is on the gray diagonal
@@ -899,7 +909,68 @@
 			best-color candidate)))))
       (setq color-list (cdr color-list))
       (setq candidate (car color-list)))
-    (cadr best-color)))
+    best-color))
+
+(defun tty-color-standard-values (color)
+"Return standard RGB values of the color COLOR.
+
+The result is a list of integer RGB values--(RED GREEN BLUE).
+These values range from 0 to 65535; white is (65535 65535 65535).
+
+The returned value reflects the standard X definition of COLOR,
+regardless of whether the terminal can display it, so the return value
+should be the same regardless of what display is being used."
+  (let ((len (length color)))
+    (cond ((and (>= len 4) ;; X-style "#XXYYZZ" color spec
+		(eq (aref color 0) ?#)
+		(member (aref color 1)
+			'(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9
+			     ?a ?b ?c ?d ?e ?f)))
+	   ;; Translate the string "#XXYYZZ" into a list
+	   ;; of numbers (XX YY ZZ).  If the primary colors
+	   ;; are specified with less than 4 hex digits,
+	   ;; the used digits represent the most significant
+	   ;; bits of the value (e.g. #XYZ = #X000Y000Z000).
+	   (let* ((ndig (/ (- len 1) 3))
+		  (i1 1)
+		  (i2 (+ i1 ndig))
+		  (i3 (+ i2 ndig)))
+	     (list
+	      (lsh
+	       (string-to-number (substring color i1 i2) 16)
+	       (* 4 (- 4 ndig)))
+	      (lsh
+	       (string-to-number (substring color i2 i3) 16)
+	       (* 4 (- 4 ndig)))
+	      (lsh
+	       (string-to-number (substring color i3) 16)
+	       (* 4 (- 4 ndig))))))
+	  ((and (>= len 9) ;; X-style RGB:xx/yy/zz color spec
+		(string= (substring color 0 4) "rgb:"))
+	   ;; Translate the string "RGB:XX/YY/ZZ" into a list
+	   ;; of numbers (XX YY ZZ).  If fewer than 4 hex
+	   ;; digits are used, they represent the fraction
+	   ;; of the maximum value (RGB:X/Y/Z = #XXXXYYYYZZZZ).
+	   (let* ((ndig (/ (- len 3) 3))
+		  (maxval (1- (ash 1 (* 4 (- ndig 1)))))
+		  (i1 4)
+		  (i2 (+ i1 ndig))
+		  (i3 (+ i2 ndig)))
+	     (list
+	      (/ (* (string-to-number
+		     (substring color i1 (- i2 1)) 16)
+		    255)
+		 maxval)
+	      (/ (* (string-to-number
+		     (substring color i2 (- i3 1)) 16)
+		    255)
+		 maxval)
+	      (/ (* (string-to-number
+		     (substring color i3) 16)
+		    255)
+		 maxval))))
+	  (t
+	   (cdr (assoc color color-name-rgb-alist))))))

 (defun tty-color-translate (color &optional frame)
   "Given a color COLOR, return the index of the corresponding TTY color.
@@ -918,65 +989,7 @@
 name of a color in `color-name-rgb-alist', the returned value is nil.

 If FRAME is unspecified or nil, it defaults to the selected frame."
-  (and (stringp color)
-       (let* ((color (tty-color-canonicalize color))
-	      (idx (cadr (assoc color (tty-color-alist frame)))))
-	 (or idx
-	     (let* ((len (length color))
-		    (maxval 256)
-		    (rgb
-		     (cond
-		      ((and (>= len 4)  ;; X-style "#XXYYZZ" color spec
-			    (eq (aref color 0) ?#)
-			    (member (aref color 1)
-				    '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9
-					 ?a ?b ?c ?d ?e ?f)))
-		       ;; Translate the string "#XXYYZZ" into a list
-		       ;; of numbers (XX YY ZZ).  If the primary colors
-		       ;; are specified with less than 4 hex digits,
-		       ;; the used digits represent the most significant
-		       ;; bits of the value (e.g. #XYZ = #X000Y000Z000).
-		       (let* ((ndig (/ (- len 1) 3))
-			      (i1 1)
-			      (i2 (+ i1 ndig))
-			      (i3 (+ i2 ndig)))
-			 (list
-			  (lsh
-			   (string-to-number (substring color i1 i2) 16)
-			   (* 4 (- 2 ndig)))
-			  (lsh
-			   (string-to-number (substring color i2 i3) 16)
-			   (* 4 (- 2 ndig)))
-			  (lsh
-			   (string-to-number (substring color i3) 16)
-			   (* 4 (- 2 ndig))))))
-		      ((and (>= len 9)  ;; X-style RGB:xx/yy/zz color spec
-			    (string= (substring color 0 4) "rgb:"))
-		       ;; Translate the string "RGB:XX/YY/ZZ" into a list
-		       ;; of numbers (XX YY ZZ).  If fewer than 4 hex
-		       ;; digits are used, they represent the fraction
-		       ;; of the maximum value (RGB:X/Y/Z = #XXXXYYYYZZZZ).
-		       (let* ((ndig (/ (- len 3) 3))
-			      (maxval (1- (expt 16 (- ndig 1))))
-			      (i1 4)
-			      (i2 (+ i1 ndig))
-			      (i3 (+ i2 ndig)))
-			 (list
-			  (/ (* (string-to-number
-				 (substring color i1 (- i2 1)) 16)
-				255)
-			     maxval)
-			  (/ (* (string-to-number
-				 (substring color i2 (- i3 1)) 16)
-				255)
-			     maxval)
-			  (/ (* (string-to-number
-				 (substring color i3) 16)
-				255)
-			     maxval))))
-		      (t
-		       (cdr (assoc color color-name-rgb-alist))))))
-	       (and rgb (tty-color-approximate rgb frame)))))))
+  (cadr (tty-color-desc color frame)))

 (defun tty-color-by-index (idx &optional frame)
   "Given a numeric index of a tty color, return its description.
@@ -1001,27 +1014,18 @@
 The value is a list of integer RGB values--\(RED GREEN BLUE\).
 These values range from 0 to 65535; white is (65535 65535 65535).
 If FRAME is omitted or nil, use the selected frame."
-  (let* ((frame (or frame (selected-frame)))
-	 (color (tty-color-canonicalize color))
-	 (supported (assoc color (tty-color-alist frame))))
-    (or (and supported (cddr supported)) ; full spec in tty-color-alist
-	(and supported	; no RGB values in tty-color-alist: use X RGB values
-	     (assoc color color-name-rgb-alist)
-	     (cddr
-	      (tty-color-by-index
-	       (tty-color-approximate
-		(cdr (assoc color color-name-rgb-alist)) frame) frame)))
-	(cddr (tty-color-by-index (tty-color-translate color frame) frame)))))
+  (cddr (tty-color-desc color frame)))

 (defun tty-color-desc (color &optional frame)
   "Return the description of the color COLOR for a character terminal.
-
-FRAME, if unspecified or nil, defaults to the selected frame.
-Value is a list of the form \(NAME INDEX R G B\).  Note that the returned
-NAME is not necessarily the same string as the argument COLOR, because
-the latter might need to be approximated if it is not supported directly."
-  (let ((idx (tty-color-translate color frame)))
-    (tty-color-by-index idx frame)))
+Value is a list of the form \(NAME INDEX R G B\).  The returned NAME or
+RGB value may not be the same as the argument COLOR, because the latter
+might need to be approximated if it is not supported directly."
+  (and (stringp color)
+       (let ((color (tty-color-canonicalize color)))
+	  (or (assoc color (tty-color-alist frame))
+	      (let ((rgb (tty-color-standard-values color)))
+		(and rgb (tty-color-approximate rgb frame)))))))

 (defun tty-color-gray-shades (&optional display)
   "Return the number of gray colors supported by DISPLAY's terminal.