From 7d08135584f1133151b366b5a09ddd1e259dab10 Mon Sep 17 00:00:00 2001 From: Andrew Innes Date: Wed, 17 Feb 1999 12:47:59 +0000 Subject: [PATCH] (Vw32_quit_key): New variable. (post_character_message): Use it. (syms_of_w32fns): DEFVAR it. --- src/w32fns.c | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/w32fns.c b/src/w32fns.c index 1cfde7d0739..25bec1f90ff 100644 --- a/src/w32fns.c +++ b/src/w32fns.c @@ -63,6 +63,9 @@ Lisp_Object Vw32_pass_alt_to_system; 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 @@ post_character_message (hwnd, msg, wParam, lParam, modifiers) 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 @@ open the System menu. When nil, Emacs silently swallows alt key events."); 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\ -- 2.39.2