mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-31 17:30:54 -08:00
(w32_color_map_lookup): Remove duplicate definition.
This commit is contained in:
parent
46ac5b268d
commit
5d84dd8714
1 changed files with 0 additions and 32 deletions
32
src/w32fns.c
32
src/w32fns.c
|
|
@ -1310,38 +1310,6 @@ w32_color_map_lookup (colorname)
|
|||
return ret;
|
||||
}
|
||||
|
||||
COLORREF
|
||||
w32_color_map_lookup (colorname)
|
||||
char *colorname;
|
||||
{
|
||||
Lisp_Object tail, ret = Qnil;
|
||||
|
||||
BLOCK_INPUT;
|
||||
|
||||
for (tail = Vw32_color_map; !NILP (tail); tail = Fcdr (tail))
|
||||
{
|
||||
register Lisp_Object elt, tem;
|
||||
|
||||
elt = Fcar (tail);
|
||||
if (!CONSP (elt)) continue;
|
||||
|
||||
tem = Fcar (elt);
|
||||
|
||||
if (lstrcmpi (XSTRING (tem)->data, colorname) == 0)
|
||||
{
|
||||
ret = XUINT (Fcdr (elt));
|
||||
break;
|
||||
}
|
||||
|
||||
QUIT;
|
||||
}
|
||||
|
||||
|
||||
UNBLOCK_INPUT;
|
||||
|
||||
return ret;
|
||||
}
|
||||
|
||||
COLORREF
|
||||
x_to_w32_color (colorname)
|
||||
char * colorname;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue