[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/src nsfns.m
From: |
YAMAMOTO Mitsuharu |
Subject: |
[Emacs-diffs] emacs/src nsfns.m |
Date: |
Thu, 20 Aug 2009 09:44:06 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: YAMAMOTO Mitsuharu <mituharu> 09/08/20 09:44:06
Modified files:
src : nsfns.m
Log message:
(Fxw_color_values): Return 3-element list. Doc fix.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/nsfns.m?cvsroot=emacs&r1=1.47&r2=1.48
Patches:
Index: nsfns.m
===================================================================
RCS file: /sources/emacs/emacs/src/nsfns.m,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- nsfns.m 16 Jul 2009 08:23:54 -0000 1.47
+++ nsfns.m 20 Aug 2009 09:44:06 -0000 1.48
@@ -2232,16 +2232,12 @@
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 @@
[[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)));
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/src nsfns.m,
YAMAMOTO Mitsuharu <=