diff src/xfns.c @ 72529:892ea79efee6

(Fxw_color_values): Simplify; use list3.
author Kim F. Storm <storm@cua.dk>
date Fri, 25 Aug 2006 23:33:04 +0000
parents 3f1637b3adcb
children e00572984112 694bbb62a75d 6823a91487f2
line wrap: on
line diff
--- a/src/xfns.c	Fri Aug 25 23:32:17 2006 +0000
+++ b/src/xfns.c	Fri Aug 25 23:33:04 2006 +0000
@@ -3475,14 +3475,9 @@
   CHECK_STRING (color);
 
   if (x_defined_color (f, SDATA (color), &foo, 0))
-    {
-      Lisp_Object rgb[3];
-
-      rgb[0] = make_number (foo.red);
-      rgb[1] = make_number (foo.green);
-      rgb[2] = make_number (foo.blue);
-      return Flist (3, rgb);
-    }
+    return list3 (make_number (foo.red),
+		  make_number (foo.green),
+		  make_number (foo.blue));
   else
     return Qnil;
 }