From c2fcd1061e4538ba38d96f232e321754b6beacb9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Nov 1993 22:25:03 +0000
Subject: [PATCH] Patch to allow a "Configure" event to mark the window as
 "mapped". Yukk.  Whether or not the "mapped" event shows up depends on the
 geometry string!

---
 v7/src/runtime/x11graph.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm
index 41db2c14b..f34d953e7 100644
--- a/v7/src/runtime/x11graph.scm
+++ b/v7/src/runtime/x11graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: x11graph.scm,v 1.36 1993/11/01 22:06:18 cph Exp $
+$Id: x11graph.scm,v 1.37 1993/11/01 22:25:03 cph Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -440,7 +440,9 @@ MIT in each case. |#
     window
     (x-graphics-reconfigure (vector-ref event 1)
 			    (vector-ref event 2)
-			    (vector-ref event 3))))
+			    (vector-ref event 3))
+    (if (eq? 'NEVER (x-window/mapped? window))
+	(set-x-window/mapped?! window #t))))
 
 (define-event-handler event-type:delete-window
   (lambda (window event)
-- 
2.25.1