procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fxw_color_values): Return 3-element list. Doc fix.

Browse source
This commit is contained in:
YAMAMOTO Mitsuharu 2009-08-20 09:44:06 +00:00
parent fb89fad99d
commit fb67c21b69
1 changed files with 4 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/nsfns.m
View file

@ -2232,16 +2232,12 @@ and GNUstep implementations ("distributor-specific release
DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0,
doc: /* Return a description of the color named COLOR.
The value is a list of integer RGBA values--(RED GREEN BLUE ALPHA).
These values appear to range from 0 to 65280; white is (65280 65280 65280 0).
The optional argument FRAME is currently ignored. */)
doc: /* Internal function called by `color-values', which see. */)
(color, frame)
Lisp_Object color, frame;
{
NSColor * col;
float red, green, blue, alpha;
Lisp_Object rgba[4];
check_ns ();
CHECK_STRING (color);
@ -2251,12 +2247,9 @@ and GNUstep implementations ("distributor-specific release
[[col colorUsingColorSpaceName: NSCalibratedRGBColorSpace]
getRed: &red green: &green blue: &blue alpha: &alpha];
rgba[0] = make_number (lrint (red*65280));
rgba[1] = make_number (lrint (green*65280));
rgba[2] = make_number (lrint (blue*65280));
rgba[3] = make_number (lrint (alpha*65280));
return Flist (4, rgba);
return list3 (make_number (lrint (red*65280)),
make_number (lrint (green*65280)),
make_number (lrint (blue*65280)));
}