INTERRUPT should be an integer in the range 0 to 255.
REGISTERS should be a vector produced by `make-register' and
`set-register-value'. */)
- (interrupt, registers)
- Lisp_Object interrupt, registers;
+ (Lisp_Object interrupt, Lisp_Object registers)
{
register int i;
int no;
DEFUN ("msdos-memget", Fdos_memget, Sdos_memget, 2, 2, 0,
doc: /* Read DOS memory at offset ADDRESS into VECTOR.
Return the updated VECTOR. */)
- (address, vector)
- Lisp_Object address, vector;
+ (Lisp_Object address, Lisp_Object vector)
{
register int i;
int offs, len;
DEFUN ("msdos-memput", Fdos_memput, Sdos_memput, 2, 2, 0,
doc: /* Write DOS memory at offset ADDRESS from VECTOR. */)
- (address, vector)
- Lisp_Object address, vector;
+ (Lisp_Object address, Lisp_Object vector)
{
register int i;
int offs, len;
If the optional argument ALLKEYS is non-nil, the keyboard is mapped for
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, allkeys;
+ (Lisp_Object country_code, Lisp_Object allkeys)
{
CHECK_NUMBER (country_code);
if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
DEFUN ("msdos-mouse-p", Fmsdos_mouse_p, Smsdos_mouse_p, 0, 0, 0,
doc: /* Report whether a mouse is present. */)
- ()
+ (void)
{
if (have_mouse)
return Qt;
DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "",
doc: /* Initialize and enable mouse if available. */)
- ()
+ (void)
{
if (have_mouse)
{
DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable, Smsdos_mouse_enable, 0, 0, "",
doc: /* Enable mouse if available. */)
- ()
+ (void)
{
if (have_mouse)
{
DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable, Smsdos_mouse_disable, 0, 0, "",
doc: /* Disable mouse if available. */)
- ()
+ (void)
{
mouse_off ();
if (have_mouse) have_mouse = -1;
DEFUN ("insert-startup-screen", Finsert_startup_screen, Sinsert_startup_screen, 0, 0, "",
doc: /* Insert copy of screen contents prior to starting Emacs.
Return nil if startup screen is not available. */)
- ()
+ (void)
{
char *s;
int rows, cols, i, j;
storage of the file system, FREE is the free storage, and AVAIL is the
storage available to a non-superuser. All 3 numbers are in bytes.
If the underlying system call fails, value is nil. */)
- (filename)
- Lisp_Object filename;
+ (Lisp_Object filename)
{
struct statfs stfs;
Lisp_Object encoded, value;