comparison src/dosfns.c @ 15393:55f9d648be36

(Fset_mouse_position): Remove the DOS-specific definition (it's defined on `frame.c'). (syms_of_dosfns): Remove defsubr of `Fset_mouse_position'.

15392:ac7e878c5526

{
  if (have_mouse)
    return Qt;
  else
    return Qnil;
}

DEFUN ("set-mouse-position", Fset_mouse_position, Sset_mouse_position, 3, 3, 0,
  "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\
WARNING:  If you use this under X windows,\n\
you should call `unfocus-frame' afterwards.")
  (frame, x, y)
     Lisp_Object frame, x, y;
{
  mouse_moveto (XINT (x), XINT (y));
  return Qnil;
}

/* Function to translate colour names to integers.  See lisp/term/pc-win.el
   for its definition.  */

  defsubr (&Smsdos_set_keyboard);
  defsubr (&Sinsert_startup_screen);
  defsubr (&Smsdos_mouse_disable);
#ifndef HAVE_X_WINDOWS
  defsubr (&Smsdos_mouse_p);
  defsubr (&Sset_mouse_position);

  Qmsdos_color_translate = intern ("msdos-color-translate");
  staticpro (&Qmsdos_color_translate);
#endif

  DEFVAR_INT ("dos-country-code", &dos_country_code,

15393:55f9d648be36

{
  if (have_mouse)
    return Qt;
  else
    return Qnil;
}

/* Function to translate colour names to integers.  See lisp/term/pc-win.el
   for its definition.  */

  defsubr (&Smsdos_set_keyboard);
  defsubr (&Sinsert_startup_screen);
  defsubr (&Smsdos_mouse_disable);
#ifndef HAVE_X_WINDOWS
  defsubr (&Smsdos_mouse_p);
  Qmsdos_color_translate = intern ("msdos-color-translate");
  staticpro (&Qmsdos_color_translate);
#endif

  DEFVAR_INT ("dos-country-code", &dos_country_code,