comparison src/w32fns.c @ 94432:2dd3f3069c1c

(Fw32_define_rgb_color): Fix typo in docstring.

94431:00021417bce1



DEFUN ("w32-define-rgb-color", Fw32_define_rgb_color,
       Sw32_define_rgb_color, 4, 4, 0,
       doc: /* Convert RGB numbers to a windows color reference and associate with NAME.
This adds or updates a named color to `w32-color-map', making it
available for use.  The original entry's RGB ref is returned, or nil
if the entry is new.  */)
    (red, green, blue, name)
    Lisp_Object red, green, blue, name;

  memset (&dummy_buf, 0, sizeof (dummy_buf));
  dummy_buf.w32msg.msg.hwnd = NULL;
  dummy_buf.w32msg.msg.message = WM_NULL;

  /* This is the inital message loop which should only exit when the
     application quits.  */
  w32_msg_pump (&dummy_buf);

  return 0;
}

     that are needed to determine window geometry.  */
#ifdef USE_FONT_BACKEND
  if (enable_font_backend)
    x_default_font_parameter (f, parameters);
  else
#endif 
  {
    Lisp_Object font;

    font = w32_get_arg (parameters, Qfont, "font", "Font", RES_TYPE_STRING);

94432:2dd3f3069c1c



DEFUN ("w32-define-rgb-color", Fw32_define_rgb_color,
       Sw32_define_rgb_color, 4, 4, 0,
       doc: /* Convert RGB numbers to a Windows color reference and associate with NAME.
This adds or updates a named color to `w32-color-map', making it
available for use.  The original entry's RGB ref is returned, or nil
if the entry is new.  */)
    (red, green, blue, name)
    Lisp_Object red, green, blue, name;

  memset (&dummy_buf, 0, sizeof (dummy_buf));
  dummy_buf.w32msg.msg.hwnd = NULL;
  dummy_buf.w32msg.msg.message = WM_NULL;

  /* This is the initial message loop which should only exit when the
     application quits.  */
  w32_msg_pump (&dummy_buf);

  return 0;
}

     that are needed to determine window geometry.  */
#ifdef USE_FONT_BACKEND
  if (enable_font_backend)
    x_default_font_parameter (f, parameters);
  else
#endif
  {
    Lisp_Object font;

    font = w32_get_arg (parameters, Qfont, "font", "Font", RES_TYPE_STRING);