Change `x-window-read-event-flags!' to mask its result so that only

the least significant 3 bits are returned.

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 4e4b48ba6e40730c32952076546efc683e745cfa..400f2fe9e38088a5c5f52aff680bd5490e9b9353 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.43 1990/09/08 00:10:48 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.44 1990/09/11 19:50:29 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     43
+#define SUBVERSION     44
 #endif
 
 #ifndef UCODE_TABLES_FILENAME

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index b4c7a6e19596af6d5f2e4878dcffd23ebd11e688..272316aff12e99769a0bfc61670ae84d21585961 100644 (file)
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11base.c,v 1.13 1990/09/11 05:16:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11base.c,v 1.14 1990/09/11 19:49:54 cph Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -830,7 +830,11 @@ DEFINE_PRIMITIVE ("X-WINDOW-READ-EVENT-FLAGS!", Prim_x_window_read_event_flags,
   xw = (WINDOW_ARG (1));
   old = (XW_EVENT_FLAGS (xw));
   (XW_EVENT_FLAGS (xw)) = 0;
-  PRIMITIVE_RETURN (long_to_integer (old));
+  /* Mask the result so that only three bits of information are
+     returned.  This primitive is only used for maintaining the old
+     version of Edwin -- newer versions use a different interface that
+     supplies more event types. */
+  PRIMITIVE_RETURN (long_to_integer (old & 0x7));
 }
 
 DEFINE_PRIMITIVE ("X-DEQUEUE-GLOBAL-EVENT", Prim_x_dequeue_global_event, 0, 0,

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index b3c307cb2ff3ddd18881302c0db50f54fbba3c2b..42164b73c0b639b194d7e05e7f59393a661f066d 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.43 1990/09/08 00:10:48 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.44 1990/09/11 19:50:29 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     43
+#define SUBVERSION     44
 #endif
 
 #ifndef UCODE_TABLES_FILENAME