From: Juanma Barranquero <lekktu@gmail.com>
Date: Sat, 24 Jul 2010 20:52:43 +0000 (+0200)
Subject: * w32fns.c (w32_to_x_color): Remove, unused.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~49^2~136^2~13
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=630b95924ef4ee9c1e8db43ffd226273260055d5;p=emacs.git

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

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
@@ -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)
 {