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

diff --git a/src/ChangeLog b/src/ChangeLog
index d946b9a..7234b4f 100644 (file)
--- 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 c5e555d..72830c4 100644 (file)
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -785,25 +785,6 @@ DEFUN ("w32-default-color-map", Fw32_default_color_map, Sw32_default_color_map,
   return (cmap);
 }
 
-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)
 {