* w32fns.c (w32_to_x_color): Remove, unused.
This commit is contained in:
parent
0c1085c507
commit
630b95924e
2 changed files with 4 additions and 19 deletions
|
@ -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_.
|
||||
|
|
19
src/w32fns.c
19
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)
|
||||
{
|
||||
|
|
Loading…
Add table
Reference in a new issue