From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 28 Aug 1994 20:00:21 +0000 (+0000)
Subject: (Fx_color_defined_p): Return list of RGB values, not just t.
X-Git-Tag: emacs-19.34~7199
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=57c82a639b4612518a97305054a2b39d5bc430a6;p=emacs.git

(Fx_color_defined_p): Return list of RGB values, not just t.
---

diff --git a/src/xfns.c b/src/xfns.c
index e3eaf0cb513..b1c75d29f99 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -2944,7 +2944,8 @@ even if they match PATTERN and FACE.")
 
 
 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 @@ DEFUN ("x-color-defined-p", Fx_color_defined_p, Sx_color_defined_p, 1, 1, 0,
   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;
 }