/* MS-DOS specific Lisp utilities. Coded by Manabu Higashida, 1991.
Major changes May-July 1993 Morten Welinder (only 10% original code left)
- Copyright (C) 1991, 1993, 1996-1998, 2001-2012 Free Software Foundation, Inc.
+ Copyright (C) 1991, 1993, 1996-1998, 2001-2014 Free Software
+ Foundation, Inc.
This file is part of GNU Emacs.
#include <dos.h>
#undef gettime
#undef settime
-#include <setjmp.h>
+
#include "lisp.h"
#include "character.h"
#include "buffer.h"
{
int i;
- for (i = 0; i < sizeof (vga_colors) / sizeof (vga_colors[0]); i++)
+ for (i = 0; i < ARRAYELTS (vga_colors); i++)
if (xstrcasecmp (name, vga_colors[i]) == 0)
return i;
return build_string (unspecified_fg);
else if (idx == FACE_TTY_DEFAULT_BG_COLOR)
return build_string (unspecified_bg);
- else if (idx >= 0 && idx < sizeof (vga_colors) / sizeof (vga_colors[0]))
+ else if (idx >= 0 && idx < ARRAYELTS (vga_colors))
return build_string (vga_colors[idx]);
else
return Qunspecified; /* meaning the default */
x_set_title (struct frame *f, Lisp_Object name)
{
/* Don't change the title if it's already NAME. */
- if (EQ (name, FGET (f, title)))
+ if (EQ (name, f->title))
return;
- update_mode_lines = 1;
+ update_mode_lines = 13;
- FSET (f, title, name);
+ fset_title (f, name);
if (NILP (name))
- name = FGET (f, name);
+ name = f->name;
if (FRAME_MSDOS_P (f))
{
- BLOCK_INPUT;
+ block_input ();
w95_set_virtual_machine_title (SDATA (name));
- UNBLOCK_INPUT;
+ unblock_input ();
}
}
#endif /* !HAVE_X_WINDOWS */
void
syms_of_dosfns (void)
{
- defsubr (&Sint86);
- defsubr (&Sdos_memget);
- defsubr (&Sdos_memput);
- defsubr (&Smsdos_mouse_init);
- defsubr (&Smsdos_mouse_enable);
- defsubr (&Smsdos_set_keyboard);
- defsubr (&Sinsert_startup_screen);
- defsubr (&Smsdos_mouse_disable);
- defsubr (&Sfile_system_info);
-#ifndef HAVE_X_WINDOWS
- defsubr (&Smsdos_mouse_p);
-#endif
+#include "dosfns.x"
DEFVAR_INT ("dos-country-code", dos_country_code,
doc: /* The country code returned by Dos when Emacs was started.