Mercurial > emacs

comparison src/w32fns.c @ 55592:9d97dbb17b3f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fw32_define_rgb_color): Avoid XSET.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 14 May 2004 17:37:26 +0000
parents 43663119f752
children 29b250a07fe0
comparison
equal deleted inserted replaced
55591:b7092385d1be 55592:9d97dbb17b3f
1 /* Graphical user interface functions for the Microsoft W32 API. 1 /* Graphical user interface functions for the Microsoft W32 API.
2 Copyright (C) 1989, 92, 93, 94, 95, 1996, 1997, 1998, 1999, 2000, 2001 2 Copyright (C) 1989, 92, 93, 94, 95, 96, 97, 98, 1999, 2000, 01, 2004
3 Free Software Foundation, Inc. 3 Free Software Foundation, Inc.
4 4
5 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
6 6
7 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
463 CHECK_NUMBER (red); 463 CHECK_NUMBER (red);
464 CHECK_NUMBER (green); 464 CHECK_NUMBER (green);
465 CHECK_NUMBER (blue); 465 CHECK_NUMBER (blue);
466 CHECK_STRING (name); 466 CHECK_STRING (name);
467 467
468 XSET (rgb, Lisp_Int, RGB(XUINT (red), XUINT (green), XUINT (blue))); 468 XSETINT (rgb, RGB(XUINT (red), XUINT (green), XUINT (blue)));
469 469
470 BLOCK_INPUT; 470 BLOCK_INPUT;
471 471
472 /* replace existing entry in w32-color-map or add new entry. */ 472 /* replace existing entry in w32-color-map or add new entry. */
473 entry = Fassoc (name, Vw32_color_map); 473 entry = Fassoc (name, Vw32_color_map);