/* 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, 1997, 1998, 2001
- Free Software Foundation, Inc.
+ Copyright (C) 1991, 1993, 1996, 1997, 1998, 2001, 2002, 2003, 2004,
+ 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
This file is part of GNU Emacs.
GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2, or (at your option)
+the Free Software Foundation; either version 3, or (at your option)
any later version.
GNU Emacs is distributed in the hope that it will be useful,
You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
-the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA. */
-
+the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+Boston, MA 02110-1301, USA. */
#include <config.h>
CHECK_NUMBER (interrupt);
no = (unsigned long) XINT (interrupt);
CHECK_VECTOR (registers);
- if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)
+ if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)
return Qnil;
for (i = 0; i < 8; i++)
CHECK_NUMBER (XVECTOR (registers)->contents[i]);
offs = (unsigned long) XINT (address);
CHECK_VECTOR (vector);
len = XVECTOR (vector)-> size;
- if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
+ if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len)
return Qnil;
buf = alloca (len);
dosmemget (offs, len, buf);
-
+
for (i = 0; i < len; i++)
XVECTOR (vector)->contents[i] = make_number (buf[i]);
offs = (unsigned long) XINT (address);
CHECK_VECTOR (vector);
len = XVECTOR (vector)-> size;
- if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
+ if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len)
return Qnil;
buf = alloca (len);
all keys; otherwise it is only used when the ALT key is pressed.
The current keyboard layout is available in dos-keyboard-code. */)
(country_code, allkeys)
- Lisp_Object country_code;
+ Lisp_Object country_code, allkeys;
{
CHECK_NUMBER (country_code);
if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
}
#endif
-
DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "",
doc: /* Initialize and enable mouse if available. */)
()
}
DEFUN ("insert-startup-screen", Finsert_startup_screen, Sinsert_startup_screen, 0, 0, "",
- doc: /* Insert copy of screen contents prior to starting emacs.
+ doc: /* Insert copy of screen contents prior to starting Emacs.
Return nil if startup screen is not available. */)
()
{
char *s;
- int rows, cols;
- int i, j;
-
+ int rows, cols, i, j;
+
if (!dos_get_saved_screen (&s, &rows, &cols))
return Qnil;
-
+
for (i = 0; i < rows; i++)
{
for (j = 0; j < cols; j++)
delay (50);
}
#endif /* !HAVE_X_WINDOWS */
-
+
void
init_dosfns ()
{
intdos (®s, ®s);
if (regs.x.cflag)
/* Estimate code page from country code */
- switch (dos_country_code)
+ switch (dos_country_code)
{
case 45: /* Denmark */
case 47: /* Norway */
if (FRAME_MSDOS_P (f))
{
BLOCK_INPUT;
- w95_set_virtual_machine_title (XSTRING (name)->data);
+ w95_set_virtual_machine_title (SDATA (name));
UNBLOCK_INPUT;
}
}
filename = Fexpand_file_name (filename, Qnil);
encoded = ENCODE_FILE (filename);
- if (statfs (XSTRING (encoded)->data, &stfs))
+ if (statfs (SDATA (encoded), &stfs))
value = Qnil;
else
value = list3 (make_float ((double) stfs.f_bsize * stfs.f_blocks),
DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset,
doc: /* The current timezone offset to UTC in minutes.
Implicitly modified when the TZ variable is changed. */);
-
+
DEFVAR_LISP ("dos-version", &Vdos_version,
doc: /* The (MAJOR . MINOR) Dos version (subject to modification with setver). */);
The output format is: scan code:char code*modifiers. */);
Vdos_display_scancodes = Qnil;
-
+
DEFVAR_INT ("dos-hyper-key", &dos_hyper_key,
doc: /* *If set to 1, use right ALT key as hyper key.
If set to 2, use right CTRL key as hyper key. */);
dos_hyper_key = 0;
-
+
DEFVAR_INT ("dos-super-key", &dos_super_key,
doc: /* *If set to 1, use right ALT key as super key.
If set to 2, use right CTRL key as super key. */);
dos_super_key = 0;
-
+
DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode,
doc: /* *Controls what key code is returned by a key in the numeric keypad.
The `numlock ON' action is only taken if no modifier keys are pressed.
0x200 ALT-0..ALT-9 in top-row produces shifted codes. */);
dos_keypad_mode = 0x75;
-
+
DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout,
doc: /* Contains the country code for the current keyboard layout.
Use msdos-set-keyboard to select another keyboard layout. */);
dos_keyboard_layout = 1; /* US */
-
+
DEFVAR_INT ("dos-decimal-point", &dos_decimal_point,
doc: /* The character to produce when kp-decimal key is pressed.
If non-zero, this variable contains the character to be returned when the
dos_decimal_point = 0;
}
#endif /* MSDOS */
+
+/* arch-tag: f5ea8847-a014-42c9-83f5-7738ad640b17
+ (do not change this comment) */