1 /* MS-DOS specific Lisp utilities. Coded by Manabu Higashida, 1991.
2 Major changes May-July 1993 Morten Welinder (only 10% original code left)
3 Copyright (C) 1991, 1993, 1996, 1997, 1998, 2001, 2002, 2003, 2004,
4 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
24 /* The entire file is within this conditional */
34 #include "termhooks.h"
35 #include "blockinput.h"
39 #include "dispextern.h"
40 #include "character.h"
51 DEFUN ("int86", Fint86
, Sint86
, 2, 2, 0,
52 doc
: /* Call specific MS-DOS interrupt number INTERRUPT with REGISTERS.
53 Return the updated REGISTER vector.
55 INTERRUPT should be an integer in the range 0 to 255.
56 REGISTERS should be a vector produced by `make-register' and
57 `set-register-value'. */)
58 (interrupt
, registers
)
59 Lisp_Object interrupt
, registers
;
63 union REGS inregs
, outregs
;
66 CHECK_NUMBER (interrupt
);
67 no
= (unsigned long) XINT (interrupt
);
68 CHECK_VECTOR (registers
);
69 if (no
< 0 || no
> 0xff || XVECTOR (registers
)-> size
!= 8)
71 for (i
= 0; i
< 8; i
++)
72 CHECK_NUMBER (XVECTOR (registers
)->contents
[i
]);
74 inregs
.x
.ax
= (unsigned long) XFASTINT (XVECTOR (registers
)->contents
[0]);
75 inregs
.x
.bx
= (unsigned long) XFASTINT (XVECTOR (registers
)->contents
[1]);
76 inregs
.x
.cx
= (unsigned long) XFASTINT (XVECTOR (registers
)->contents
[2]);
77 inregs
.x
.dx
= (unsigned long) XFASTINT (XVECTOR (registers
)->contents
[3]);
78 inregs
.x
.si
= (unsigned long) XFASTINT (XVECTOR (registers
)->contents
[4]);
79 inregs
.x
.di
= (unsigned long) XFASTINT (XVECTOR (registers
)->contents
[5]);
80 inregs
.x
.cflag
= (unsigned long) XFASTINT (XVECTOR (registers
)->contents
[6]);
81 inregs
.x
.flags
= (unsigned long) XFASTINT (XVECTOR (registers
)->contents
[7]);
83 int86 (no
, &inregs
, &outregs
);
85 XVECTOR (registers
)->contents
[0] = make_number (outregs
.x
.ax
);
86 XVECTOR (registers
)->contents
[1] = make_number (outregs
.x
.bx
);
87 XVECTOR (registers
)->contents
[2] = make_number (outregs
.x
.cx
);
88 XVECTOR (registers
)->contents
[3] = make_number (outregs
.x
.dx
);
89 XVECTOR (registers
)->contents
[4] = make_number (outregs
.x
.si
);
90 XVECTOR (registers
)->contents
[5] = make_number (outregs
.x
.di
);
91 XVECTOR (registers
)->contents
[6] = make_number (outregs
.x
.cflag
);
92 XVECTOR (registers
)->contents
[7] = make_number (outregs
.x
.flags
);
97 DEFUN ("msdos-memget", Fdos_memget
, Sdos_memget
, 2, 2, 0,
98 doc
: /* Read DOS memory at offset ADDRESS into VECTOR.
99 Return the updated VECTOR. */)
101 Lisp_Object address
, vector
;
108 CHECK_NUMBER (address
);
109 offs
= (unsigned long) XINT (address
);
110 CHECK_VECTOR (vector
);
111 len
= XVECTOR (vector
)-> size
;
112 if (len
< 1 || len
> 2048 || offs
< 0 || offs
> 0xfffff - len
)
115 dosmemget (offs
, len
, buf
);
117 for (i
= 0; i
< len
; i
++)
118 XVECTOR (vector
)->contents
[i
] = make_number (buf
[i
]);
123 DEFUN ("msdos-memput", Fdos_memput
, Sdos_memput
, 2, 2, 0,
124 doc
: /* Write DOS memory at offset ADDRESS from VECTOR. */)
126 Lisp_Object address
, vector
;
133 CHECK_NUMBER (address
);
134 offs
= (unsigned long) XINT (address
);
135 CHECK_VECTOR (vector
);
136 len
= XVECTOR (vector
)-> size
;
137 if (len
< 1 || len
> 2048 || offs
< 0 || offs
> 0xfffff - len
)
141 for (i
= 0; i
< len
; i
++)
143 CHECK_NUMBER (XVECTOR (vector
)->contents
[i
]);
144 buf
[i
] = (unsigned char) XFASTINT (XVECTOR (vector
)->contents
[i
]) & 0xFF;
147 dosmemput (buf
, len
, offs
);
151 DEFUN ("msdos-set-keyboard", Fmsdos_set_keyboard
, Smsdos_set_keyboard
, 1, 2, 0,
152 doc
: /* Set keyboard layout according to COUNTRY-CODE.
153 If the optional argument ALLKEYS is non-nil, the keyboard is mapped for
154 all keys; otherwise it is only used when the ALT key is pressed.
155 The current keyboard layout is available in dos-keyboard-code. */)
156 (country_code
, allkeys
)
157 Lisp_Object country_code
, allkeys
;
159 CHECK_NUMBER (country_code
);
160 if (!dos_set_keyboard (XINT (country_code
), !NILP (allkeys
)))
165 #ifndef HAVE_X_WINDOWS
166 /* Later we might want to control the mouse interface with this function,
167 e.g., with respect to non-80 column screen modes. */
169 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p
, Smsdos_mouse_p
, 0, 0, 0,
170 doc
: /* Report whether a mouse is present. */)
180 DEFUN ("msdos-mouse-init", Fmsdos_mouse_init
, Smsdos_mouse_init
, 0, 0, "",
181 doc
: /* Initialize and enable mouse if available. */)
193 DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable
, Smsdos_mouse_enable
, 0, 0, "",
194 doc
: /* Enable mouse if available. */)
202 return have_mouse
? Qt
: Qnil
;
205 DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable
, Smsdos_mouse_disable
, 0, 0, "",
206 doc
: /* Disable mouse if available. */)
210 if (have_mouse
) have_mouse
= -1;
214 DEFUN ("insert-startup-screen", Finsert_startup_screen
, Sinsert_startup_screen
, 0, 0, "",
215 doc
: /* Insert copy of screen contents prior to starting Emacs.
216 Return nil if startup screen is not available. */)
220 int rows
, cols
, i
, j
;
222 if (!dos_get_saved_screen (&s
, &rows
, &cols
))
225 for (i
= 0; i
< rows
; i
++)
227 for (j
= 0; j
< cols
; j
++)
239 EMACS_INT dos_country_code
;
240 EMACS_INT dos_codepage
;
241 EMACS_INT dos_timezone_offset
;
242 EMACS_INT dos_decimal_point
;
243 EMACS_INT dos_keyboard_layout
;
244 unsigned char dos_country_info
[DOS_COUNTRY_INFO
];
245 static unsigned char usa_country_info
[DOS_COUNTRY_INFO
] = {
246 0, 0, /* date format */
247 '$', 0, 0, 0, 0, /* currency string */
248 ',', 0, /* thousands separator */
249 '.', 0, /* decimal separator */
250 '/', 0, /* date separator */
251 ':', 0, /* time separator */
252 0, /* currency format */
253 2, /* digits after decimal in currency */
255 0, 0, 0, 0, /* address of case map routine, GPF if used */
256 ' ', 0, /* data-list separator (?) */
257 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /* reserved */
260 EMACS_INT dos_hyper_key
;
261 EMACS_INT dos_super_key
;
262 EMACS_INT dos_keypad_mode
;
264 Lisp_Object Vdos_version
;
265 Lisp_Object Vdos_display_scancodes
;
267 #ifndef HAVE_X_WINDOWS
268 static unsigned dos_windows_version
;
269 Lisp_Object Vdos_windows_version
;
271 char parent_vm_title
[50]; /* Ralf Brown says 30 is enough */
272 int w95_set_virtual_machine_title (const char *);
275 restore_parent_vm_title (void)
277 if (NILP (Vdos_windows_version
))
279 if ((dos_windows_version
& 0xff) >= 4 && parent_vm_title
[0])
280 w95_set_virtual_machine_title (parent_vm_title
);
283 #endif /* !HAVE_X_WINDOWS */
289 _go32_dpmi_registers dpmiregs
;
290 unsigned long xbuf
= _go32_info_block
.linear_address_of_transfer_buffer
;
292 #ifndef SYSTEM_MALLOC
293 get_lim_data (); /* why the hell isn't this called elsewhere? */
297 intdos (®s
, ®s
);
298 Vdos_version
= Fcons (make_number (regs
.h
.al
), make_number (regs
.h
.ah
));
300 /* Obtain the country code via DPMI, use DJGPP transfer buffer. */
301 dpmiregs
.x
.ax
= 0x3800;
302 dpmiregs
.x
.ds
= xbuf
>> 4;
304 dpmiregs
.x
.ss
= dpmiregs
.x
.sp
= dpmiregs
.x
.flags
= 0;
305 _go32_dpmi_simulate_int (0x21, &dpmiregs
);
306 if (dpmiregs
.x
.flags
& 1)
308 dos_country_code
= 1; /* assume USA if 213800 failed */
309 memcpy (dos_country_info
, usa_country_info
, DOS_COUNTRY_INFO
);
313 dos_country_code
= dpmiregs
.x
.bx
;
314 dosmemget (xbuf
, DOS_COUNTRY_INFO
, dos_country_info
);
317 dos_set_keyboard (dos_country_code
, 0);
320 intdos (®s
, ®s
);
322 /* Estimate code page from country code */
323 switch (dos_country_code
)
325 case 45: /* Denmark */
326 case 47: /* Norway */
334 dos_codepage
= regs
.x
.bx
& 0xffff;
336 #ifndef HAVE_X_WINDOWS
337 parent_vm_title
[0] = '\0';
339 /* If we are running from DOS box on MS-Windows, get Windows version. */
340 dpmiregs
.x
.ax
= 0x1600; /* enhanced mode installation check */
341 dpmiregs
.x
.ss
= dpmiregs
.x
.sp
= dpmiregs
.x
.flags
= 0;
342 _go32_dpmi_simulate_int (0x2f, &dpmiregs
);
343 /* We only support Windows-specific features when we run on Windows 9X
344 or on Windows 3.X/enhanced mode.
346 Int 2Fh/AX=1600h returns:
348 AL = 00: no Windows at all;
349 AL = 01: Windows/386 2.x;
350 AL = 80h: Windows 3.x in mode other than enhanced;
351 AL = FFh: Windows/386 2.x
353 We also check AH > 0 (Windows 3.1 or later), in case AL tricks us. */
354 if (dpmiregs
.h
.al
> 2 && dpmiregs
.h
.al
!= 0x80 && dpmiregs
.h
.al
!= 0xff
355 && (dpmiregs
.h
.al
> 3 || dpmiregs
.h
.ah
> 0))
357 dos_windows_version
= dpmiregs
.x
.ax
;
358 Vdos_windows_version
=
359 Fcons (make_number (dpmiregs
.h
.al
), make_number (dpmiregs
.h
.ah
));
361 /* Save the current title of this virtual machine, so we can restore
362 it before exiting. Otherwise, Windows 95 will continue to use
363 the title we set even after we are history, stupido... */
364 if (dpmiregs
.h
.al
>= 4)
366 dpmiregs
.x
.ax
= 0x168e;
367 dpmiregs
.x
.dx
= 3; /* get VM title */
368 dpmiregs
.x
.cx
= sizeof(parent_vm_title
) - 1;
369 dpmiregs
.x
.es
= __tb
>> 4;
370 dpmiregs
.x
.di
= __tb
& 15;
371 dpmiregs
.x
.sp
= dpmiregs
.x
.ss
= dpmiregs
.x
.flags
= 0;
372 _go32_dpmi_simulate_int (0x2f, &dpmiregs
);
373 if (dpmiregs
.x
.ax
== 1)
374 dosmemget (__tb
, sizeof(parent_vm_title
), parent_vm_title
);
379 dos_windows_version
= 0;
380 Vdos_windows_version
= Qnil
;
382 #endif /* !HAVE_X_WINDOWS */
384 /* Without this, we never see hidden files.
385 Don't OR it with the previous value, so the value recorded at dump
386 time, possibly with `preserve-case' flags set, won't get through. */
387 __opendir_flags
= __OPENDIR_FIND_HIDDEN
;
389 #if __DJGPP_MINOR__ == 0
390 /* Under LFN, preserve the case of files as recorded in the directory
391 (in DJGPP 2.01 and later this is automagically done by the library). */
392 if (!NILP (Fmsdos_long_file_names ()))
393 __opendir_flags
|= __OPENDIR_PRESERVE_CASE
;
394 #endif /* __DJGPP_MINOR__ == 0 */
397 #ifndef HAVE_X_WINDOWS
399 /* Emulation of some X window features from xfns.c and xfaces.c. */
401 /* Standard VGA colors, in the order of their standard numbering
402 in the default VGA palette. */
403 static char *vga_colors
[16] = {
404 "black", "blue", "green", "cyan", "red", "magenta", "brown",
405 "lightgray", "darkgray", "lightblue", "lightgreen", "lightcyan",
406 "lightred", "lightmagenta", "yellow", "white"
409 /* Given a color name, return its index, or -1 if not found. Note
410 that this only performs case-insensitive comparison against the
411 standard names. For anything more sophisticated, like matching
412 "gray" with "grey" or translating X color names into their MSDOS
413 equivalents, call the Lisp function Qtty_color_desc (defined
414 on lisp/term/tty-colors.el). */
416 msdos_stdcolor_idx (const char *name
)
420 for (i
= 0; i
< sizeof (vga_colors
) / sizeof (vga_colors
[0]); i
++)
421 if (xstrcasecmp (name
, vga_colors
[i
]) == 0)
425 strcmp (name
, unspecified_fg
) == 0 ? FACE_TTY_DEFAULT_FG_COLOR
426 : strcmp (name
, unspecified_bg
) == 0 ? FACE_TTY_DEFAULT_BG_COLOR
427 : FACE_TTY_DEFAULT_COLOR
;
430 /* Given a color index, return its standard name. */
432 msdos_stdcolor_name (int idx
)
434 extern Lisp_Object Qunspecified
;
436 if (idx
== FACE_TTY_DEFAULT_FG_COLOR
)
437 return build_string (unspecified_fg
);
438 else if (idx
== FACE_TTY_DEFAULT_BG_COLOR
)
439 return build_string (unspecified_bg
);
440 else if (idx
>= 0 && idx
< sizeof (vga_colors
) / sizeof (vga_colors
[0]))
441 return build_string (vga_colors
[idx
]);
443 return Qunspecified
; /* meaning the default */
446 /* Support for features that are available when we run in a DOS box
449 ms_windows_version (void)
451 return dos_windows_version
;
454 /* Set the title of the current virtual machine, to appear on
455 the caption bar of that machine's window. */
458 w95_set_virtual_machine_title (const char *title_string
)
460 /* Only Windows 9X (version 4 and higher) support this function. */
461 if (!NILP (Vdos_windows_version
)
462 && (dos_windows_version
& 0xff) >= 4)
464 _go32_dpmi_registers regs
;
465 dosmemput (title_string
, strlen (title_string
) + 1, __tb
);
468 regs
.x
.es
= __tb
>> 4;
469 regs
.x
.di
= __tb
& 15;
470 regs
.x
.sp
= regs
.x
.ss
= regs
.x
.flags
= 0;
471 _go32_dpmi_simulate_int (0x2f, ®s
);
472 return regs
.x
.ax
== 1;
477 /* Change the title of frame F to NAME.
478 If NAME is nil, use the frame name as the title.
480 If Emacs is not run from a DOS box on Windows 9X, this only
481 sets the name in the frame struct, but has no other effects. */
484 x_set_title (struct frame
*f
, Lisp_Object name
)
486 /* Don't change the title if it's already NAME. */
487 if (EQ (name
, f
->title
))
490 update_mode_lines
= 1;
497 if (FRAME_MSDOS_P (f
))
500 w95_set_virtual_machine_title (SDATA (name
));
504 #endif /* !HAVE_X_WINDOWS */
506 DEFUN ("file-system-info", Ffile_system_info
, Sfile_system_info
, 1, 1, 0,
507 doc
: /* Return storage information about the file system FILENAME is on.
508 Value is a list of floats (TOTAL FREE AVAIL), where TOTAL is the total
509 storage of the file system, FREE is the free storage, and AVAIL is the
510 storage available to a non-superuser. All 3 numbers are in bytes.
511 If the underlying system call fails, value is nil. */)
513 Lisp_Object filename
;
516 Lisp_Object encoded
, value
;
518 CHECK_STRING (filename
);
519 filename
= Fexpand_file_name (filename
, Qnil
);
520 encoded
= ENCODE_FILE (filename
);
522 if (statfs (SDATA (encoded
), &stfs
))
525 value
= list3 (make_float ((double) stfs
.f_bsize
* stfs
.f_blocks
),
526 make_float ((double) stfs
.f_bsize
* stfs
.f_bfree
),
527 make_float ((double) stfs
.f_bsize
* stfs
.f_bavail
));
532 /* System depended enumeration of and access to system processes a-la
533 ps(1). Here, we only return info about the running Emacs process.
534 (There are no other processes on DOS, right?) */
537 list_system_processes (void)
539 Lisp_Object proclist
= Qnil
;
541 proclist
= Fcons (make_fixnum_or_float (getpid ()), proclist
);
547 system_process_attributes (Lisp_Object pid
)
550 Lisp_Object attrs
= Qnil
;
552 CHECK_NUMBER_OR_FLOAT (pid
);
553 proc_id
= FLOATP (pid
) ? XFLOAT_DATA (pid
) : XINT (pid
);
555 if (proc_id
== getpid ())
560 char cmd
[FILENAME_MAX
];
561 char *cmdline
= NULL
, *p
, *q
;
562 size_t cmdline_size
= 0;
564 Lisp_Object cmd_str
, decoded_cmd
, tem
;
566 #ifndef SYSTEM_MALLOC
567 extern unsigned long ret_lim_data ();
571 attrs
= Fcons (Fcons (Qeuid
, make_fixnum_or_float (uid
)), attrs
);
574 attrs
= Fcons (Fcons (Quser
, build_string (usr
)), attrs
);
576 attrs
= Fcons (Fcons (Qegid
, make_fixnum_or_float (gid
)), attrs
);
579 attrs
= Fcons (Fcons (Qgroup
, build_string (gr
->gr_name
)), attrs
);
580 strcpy (cmd
, basename (__crt0_argv
[0]));
581 /* Command name is encoded in locale-coding-system; decode it. */
582 cmd_str
= make_unibyte_string (cmd
, strlen (cmd
));
583 decoded_cmd
= code_convert_string_norecord (cmd_str
,
584 Vlocale_coding_system
, 0);
585 attrs
= Fcons (Fcons (Qcomm
, decoded_cmd
), attrs
);
586 /* Pretend we have 0 as PPID. */
587 attrs
= Fcons (Fcons (Qppid
, make_number (0)), attrs
);
588 attrs
= Fcons (Fcons (Qpgrp
, pid
), attrs
);
589 attrs
= Fcons (Fcons (Qttname
, build_string ("/dev/tty")), attrs
);
590 /* We are never idle! */
591 tem
= Fget_internal_run_time ();
592 attrs
= Fcons (Fcons (Qtime
, tem
), attrs
);
593 attrs
= Fcons (Fcons (Qthcount
, make_number (1)), attrs
);
594 attrs
= Fcons (Fcons (Qstart
,
595 Fsymbol_value (intern ("before-init-time"))),
597 attrs
= Fcons (Fcons (Qvsize
,
598 make_fixnum_or_float ((unsigned long)sbrk(0)/1024)),
600 attrs
= Fcons (Fcons (Qetime
, tem
), attrs
);
601 #ifndef SYSTEM_MALLOC
602 /* ret_lim_data is on vm-limit.c, which is not compiled in under
604 pmem
= (double)((unsigned long) sbrk (0)) / ret_lim_data () * 100.0;
608 attrs
= Fcons (Fcons (Qpmem
, make_float (pmem
)), attrs
);
609 /* Pass 1: Count how much storage we need. */
610 for (i
= 0; i
< __crt0_argc
; i
++)
612 cmdline_size
+= strlen (__crt0_argv
[i
]) + 1; /* +1 for blank delim */
613 if (strpbrk (__crt0_argv
[i
], " \t\n\r\v\f"))
616 for (p
= __crt0_argv
[i
]; *p
; p
++)
623 /* Pass 2: Allocate storage and concatenate argv[]. */
624 cmdline
= xmalloc (cmdline_size
+ 1);
625 for (i
= 0, q
= cmdline
; i
< __crt0_argc
; i
++)
627 if (strpbrk (__crt0_argv
[i
], " \t\n\r\v\f"))
630 for (p
= __crt0_argv
[i
]; *p
; p
++)
640 strcpy (q
, __crt0_argv
[i
]);
641 q
+= strlen (__crt0_argv
[i
]);
645 /* Remove the trailing blank. */
649 /* Command line is encoded in locale-coding-system; decode it. */
650 cmd_str
= make_unibyte_string (cmdline
, strlen (cmdline
));
651 decoded_cmd
= code_convert_string_norecord (cmd_str
,
652 Vlocale_coding_system
, 0);
654 attrs
= Fcons (Fcons (Qargs
, decoded_cmd
), attrs
);
663 struct tty_display_info
*tty
;
665 #ifndef HAVE_X_WINDOWS
666 restore_parent_vm_title ();
668 /* Make sure the termscript file is committed, in case we are
669 crashing and some vital info was written there. */
670 if (FRAMEP (selected_frame
))
672 struct frame
*sf
= XFRAME (selected_frame
);
674 if (FRAME_LIVE_P (sf
)
675 && (FRAME_MSDOS_P (sf
) || FRAME_TERMCAP_P (sf
)))
680 fflush (tty
->termscript
);
681 fsync (fileno (tty
->termscript
));
691 syms_of_dosfns (void)
694 defsubr (&Sdos_memget
);
695 defsubr (&Sdos_memput
);
696 defsubr (&Smsdos_mouse_init
);
697 defsubr (&Smsdos_mouse_enable
);
698 defsubr (&Smsdos_set_keyboard
);
699 defsubr (&Sinsert_startup_screen
);
700 defsubr (&Smsdos_mouse_disable
);
701 defsubr (&Sfile_system_info
);
702 #ifndef HAVE_X_WINDOWS
703 defsubr (&Smsdos_mouse_p
);
706 DEFVAR_INT ("dos-country-code", &dos_country_code
,
707 doc
: /* The country code returned by Dos when Emacs was started.
708 Usually this is the international telephone prefix. */);
710 DEFVAR_INT ("dos-codepage", &dos_codepage
,
711 doc
: /* The codepage active when Emacs was started.
712 The following are known:
714 850 Multilingual (Latin I)
715 852 Slavic (Latin II)
720 865 Norway/Denmark */);
722 DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset
,
723 doc
: /* The current timezone offset to UTC in minutes.
724 Implicitly modified when the TZ variable is changed. */);
726 DEFVAR_LISP ("dos-version", &Vdos_version
,
727 doc
: /* The (MAJOR . MINOR) Dos version (subject to modification with setver). */);
729 #ifndef HAVE_X_WINDOWS
730 DEFVAR_LISP ("dos-windows-version", &Vdos_windows_version
,
731 doc
: /* The (MAJOR . MINOR) Windows version for DOS session on MS-Windows. */);
734 DEFVAR_LISP ("dos-display-scancodes", &Vdos_display_scancodes
,
735 doc
: /* *Controls whether DOS raw keyboard events are displayed as you type.
736 When non-nil, the keyboard scan-codes are displayed at the bottom right
737 corner of the display (typically at the end of the mode line).
738 The output format is: scan code:char code*modifiers. */);
740 Vdos_display_scancodes
= Qnil
;
742 DEFVAR_INT ("dos-hyper-key", &dos_hyper_key
,
743 doc
: /* *If set to 1, use right ALT key as hyper key.
744 If set to 2, use right CTRL key as hyper key. */);
747 DEFVAR_INT ("dos-super-key", &dos_super_key
,
748 doc
: /* *If set to 1, use right ALT key as super key.
749 If set to 2, use right CTRL key as super key. */);
752 DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode
,
753 doc
: /* *Controls what key code is returned by a key in the numeric keypad.
754 The `numlock ON' action is only taken if no modifier keys are pressed.
755 The value is an integer constructed by adding the following bits together:
757 0x00 Digit key returns digit (if numlock ON)
758 0x01 Digit key returns kp-digit (if numlock ON)
759 0x02 Digit key returns M-digit (if numlock ON)
760 0x03 Digit key returns edit key (if numlock ON)
762 0x00 Grey key returns char (if numlock ON)
763 0x04 Grey key returns kp-key (if numlock ON)
765 0x00 Digit key returns digit (if numlock OFF)
766 0x10 Digit key returns kp-digit (if numlock OFF)
767 0x20 Digit key returns M-digit (if numlock OFF)
768 0x30 Digit key returns edit key (if numlock OFF)
770 0x00 Grey key returns char (if numlock OFF)
771 0x40 Grey key returns kp-key (if numlock OFF)
773 0x200 ALT-0..ALT-9 in top-row produces shifted codes. */);
774 dos_keypad_mode
= 0x75;
776 DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout
,
777 doc
: /* Contains the country code for the current keyboard layout.
778 Use msdos-set-keyboard to select another keyboard layout. */);
779 dos_keyboard_layout
= 1; /* US */
781 DEFVAR_INT ("dos-decimal-point", &dos_decimal_point
,
782 doc
: /* The character to produce when kp-decimal key is pressed.
783 If non-zero, this variable contains the character to be returned when the
784 decimal point key in the numeric keypad is pressed when Num Lock is on.
785 If zero, the decimal point key returns the country code specific value. */);
786 dos_decimal_point
= 0;
790 /* arch-tag: f5ea8847-a014-42c9-83f5-7738ad640b17
791 (do not change this comment) */