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

diff --git a/src/ChangeLog b/src/ChangeLog
index d946b9af856617c847c3d5f0ff8ed5bbde1885b3..7234b4f843e786d7d2715d5cf0e3de7735c554da 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 c5e555dc884e2b1f5a1586b20f9ed5670a6f04f2..72830c435e9ffbb1ebf27a875ffef84c8b79f63e 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)
 {