From: Taylor R. Campbell <net/mumble/campbell>
Date: Sun, 4 Feb 2007 18:39:05 +0000 (+0000)
Subject: Reinitialize the local display modifier mask table on MappingModifier
X-Git-Tag: 20090517-FFI~743
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e013deb46c721ece85871711e07e768af4f0037d;p=mit-scheme.git

Reinitialize the local display modifier mask table on MappingModifier
requests in MappingNotify events, so that the user can reconfigure
modifier masks on the fly without confusing Scheme programs.
---

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index c2e27a193..35854db46 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.92 2007/02/04 18:36:12 riastradh Exp $
+$Id: x11base.c,v 1.93 2007/02/04 18:39:05 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -1038,8 +1038,10 @@ xw_process_event (struct xwindow * xw, XEvent * event)
     case MappingNotify:
       switch ((event->xmapping) . request)
 	{
-	case MappingKeyboard:
 	case MappingModifier:
+	  x_initialize_display_modifier_masks ((XW_XD (xw)));
+	  /* Fall through. */
+	case MappingKeyboard:
 	  XRefreshKeyboardMapping (& (event->xmapping));
 	  break;
 	}