From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 20 Apr 2000 20:49:08 +0000 (+0000)
Subject: Change test in `process_keydown' so that it specifies what modifiers
X-Git-Tag: 20090517-FFI~3999
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a5242e1791bf604e21b15c44d4d257c3d38d3de;p=mit-scheme.git

Change test in `process_keydown' so that it specifies what modifiers
we _are_ interested in, rather than those that we aren't.
---

diff --git a/v7/src/microcode/ntscreen.c b/v7/src/microcode/ntscreen.c
index 622ee5d7c..fbcc61de4 100644
--- a/v7/src/microcode/ntscreen.c
+++ b/v7/src/microcode/ntscreen.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntscreen.c,v 1.43 2000/04/20 04:09:19 cph Exp $
+$Id: ntscreen.c,v 1.44 2000/04/20 20:49:08 cph Exp $
 
 Copyright (c) 1993-2000 Massachusetts Institute of Technology
 
@@ -2095,13 +2095,9 @@ process_keydown (HWND handle, UINT message, WPARAM wparam, LPARAM lparam)
       return (1);
     }
 
-  /* If no modifiers other than shift or the lock keys are involved,
-     TranslateMessage will do something reasonable, so use it.  */
+  /* Let TranslateMessage handle anything not involving Alt or Ctrl.  */
   if (((get_modifiers ())
-       &~ (SCREEN_SHIFT_PRESSED
-	   | SCREEN_CAPSLOCK_ON
-	   | SCREEN_NUMLOCK_ON
-	   | SCREEN_SCROLLLOCK_ON))
+       & (SCREEN_ALT_PRESSED | SCREEN_CONTROL_PRESSED))
       == 0)
     {
       use_translate_message (handle, message, wparam, lparam);