From 630b95924ef4ee9c1e8db43ffd226273260055d5 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 24 Jul 2010 22:52:43 +0200 Subject: [PATCH] * w32fns.c (w32_to_x_color): Remove, unused. --- src/ChangeLog | 4 ++++ src/w32fns.c | 19 ------------------- 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 + + * w32fns.c (w32_to_x_color): Remove, unused. + 2010-07-24 Andreas Schwab * 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) { -- 2.39.2