# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 778104021 0
# Node ID 4c69fcaaa037973b5583a4b72bb843db0d5ae5e1
# Parent  0334c1b51e87fecca78c2cfcf7a86f0fd44fa091
(Fx_color_defined_p): Return list of RGB values, not just t.

diff -r 0334c1b51e87 -r 4c69fcaaa037 src/xfns.c
--- a/src/xfns.c	Sun Aug 28 19:59:18 1994 +0000
+++ b/src/xfns.c	Sun Aug 28 20:00:21 1994 +0000
@@ -2944,7 +2944,8 @@
 
 
 DEFUN ("x-color-defined-p", Fx_color_defined_p, Sx_color_defined_p, 1, 1, 0,
-  "Return t if the current X display supports the color named COLOR.")
+  "Return non-nil if the X display supports the color named COLOR.\n\
+The value is actually a list of integer RGB values--(RED GREEN BLUE).")
   (color)
      Lisp_Object color;
 {
@@ -2954,7 +2955,14 @@
   CHECK_STRING (color, 0);
 
   if (defined_color (XSTRING (color)->data, &foo))
-    return Qt;
+    {
+      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);
+    }
   else
     return Qnil;
 }