24 let color  = ""  variable
53 	 let n = 1		" n = color index
55       elseif n <= colors	" string is a color specification
61 	 " now get color, first try 'c' key if any (color visual)
62 	 let color = substitute(s, '".*\sc\s\+\(.\{-}\)\s*\(\(g4\=\|[ms]\)\s.*\)*\s*"', '\1', '')  variable
63 	 if color == s
65 	    let color = substitute(s, '".*\sg\s\+\(.\{-}\)\s*\(\(g4\|[ms]\)\s.*\)*\s*"', '\1', '')  variable
66 	    if color == s
68 	       let color = substitute(s, '".*\sg4\s\+\(.\{-}\)\s*\([ms]\s.*\)*\s*"', '\1', '')  variable
69 	       if color == s
71 		  let color = substitute(s, '".*\sm\s\+\(.\{-}\)\s*\(s\s.*\)*\s*"', '\1', '')  variable
72 		  if color == s
73 		     let color = ""  variable
80 	 if color =~ '#\x\{10,}$'
81 	    let color = substitute(color, '\(\x\x\)\x\x', '\1', 'g')  variable
82 	 elseif color =~ '#\x\{7,}$'
83 	    let color = substitute(color, '\(\x\x\)\x', '\1', 'g')  variable
85 	 elseif color =~ '#\x\{3}$'
86 	    let color = substitute(color, '\(\x\)\(\x\)\(\x\)', '0\10\20\3', '')  variable
94 	 " highlight the color string as normal string (no pixel string)
98 	 " but highlight the first whitespace after chars in its color
109 	 " if no color or color = "None" show background
110 	 if color == ""  ||  substitute(color, '.*', '\L&', '') == 'none'
113 	 elseif color !~ "'"
114 	    exe 'hi xpmColor'.n." guifg='".color."'"
115 	    exe 'hi xpmColor'.n." guibg='".color."'"
119 	 break		" no more color string
125 unlet color chars colors cpp n i s