Mercurial > emacs
changeset 24339:e8b73c2ac4ec
(Vw32_quit_key): New variable.
(post_character_message): Use it.
(syms_of_w32fns): DEFVAR it.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Wed, 17 Feb 1999 12:47:59 +0000 |
| parents | 3e873a016458 |
| children | 9d52c9051940 |
| files | src/w32fns.c |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/w32fns.c Wed Feb 17 12:39:48 1999 +0000 +++ b/src/w32fns.c Wed Feb 17 12:47:59 1999 +0000 @@ -63,6 +63,9 @@ to alt_modifier. */ Lisp_Object Vw32_alt_is_meta; +/* If non-zero, the windows virtual key code for an alternative quit key. */ +Lisp_Object Vw32_quit_key; + /* Non nil if left window key events are passed on to Windows (this only affects whether "tapping" the key opens the Start menu). */ Lisp_Object Vw32_pass_lwindow_to_system; @@ -3619,7 +3622,9 @@ int c = wParam; if (isalpha (c) && wmsg.dwModifiers == ctrl_modifier) c = make_ctrl_char (c) & 0377; - if (c == quit_char) + if (c == quit_char + || (wmsg.dwModifiers == 0 && + XFASTINT (Vw32_quit_key) && wParam == XFASTINT (Vw32_quit_key))) { Vquit_flag = Qt; @@ -7224,6 +7229,10 @@ When nil, Emacs will translate the alt key to the Alt modifier, and not Meta."); Vw32_alt_is_meta = Qt; + DEFVAR_INT ("w32-quit-key", &Vw32_quit_key, + "If non-zero, the virtual key code for an alternative quit key."); + XSETINT (Vw32_quit_key, 0); + DEFVAR_LISP ("w32-pass-lwindow-to-system", &Vw32_pass_lwindow_to_system, "Non-nil if the left \"Windows\" key is passed on to Windows.\n\