From 31f88a0aeaba6c557c57202a38c298ed3f3fb35d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Sep 1990 19:50:29 +0000
Subject: [PATCH] Change `x-window-read-event-flags!' to mask its result so
 that only the least significant 3 bits are returned.

---
 v7/src/microcode/version.h | 4 ++--
 v7/src/microcode/x11base.c | 8 ++++++--
 v8/src/microcode/version.h | 4 ++--
 3 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 4e4b48ba6..400f2fe9e 100644
--- 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 b4c7a6e19..272316aff 100644
--- 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 b3c307cb2..42164b73c 100644
--- 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
-- 
2.25.1