* w32fns.c (w32_to_x_color): Remove, unused.

2 files changed, 4 insertions, 19 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index d946b9af856..7234b4f843e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2010-07-24  Juanma Barranquero  <lekktu@gmail.com>
+
+        * w32fns.c (w32_to_x_color): Remove, unused.
+
 2010-07-24  Andreas Schwab  <schwab@linux-m68k.org>
 
         * lisp.h: Remove leftover P_.
diff --git a/src/w32fns.c b/src/w32fns.c
index c5e555dc884..72830c435e9 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -786,25 +786,6 @@ DEFUN ("w32-default-color-map", Fw32_default_color_map, Sw32_default_color_map,
 }
 
 static Lisp_Object
-w32_to_x_color (Lisp_Object rgb)
-{
-  Lisp_Object color;
-
-  CHECK_NUMBER (rgb);
-
-  BLOCK_INPUT;
-
-  color = Frassq (rgb, Vw32_color_map);
-
-  UNBLOCK_INPUT;
-
-  if (!NILP (color))
-    return (Fcar (color));
-  else
-    return Qnil;
-}
-
-static Lisp_Object
 w32_color_map_lookup (char *colorname)
 {
   Lisp_Object tail, ret = Qnil;