From: Andrew Innes <andrewi@gnu.org>
Date: Wed, 17 Feb 1999 12:47:59 +0000 (+0000)
Subject: (Vw32_quit_key): New variable.
X-Git-Tag: emacs-20.4~610
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d08135584f1133151b366b5a09ddd1e259dab10;p=emacs.git

(Vw32_quit_key): New variable.
(post_character_message): Use it.
(syms_of_w32fns): DEFVAR it.
---

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\