From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 22 Nov 1993 03:21:08 +0000 (+0000)
Subject: Fix bug in x_window_to_xw: it was not checking that the entry in the
X-Git-Tag: 20090517-FFI~7446
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=503a874af4fb3b978ca1df53ed33c40db111cd78;p=mit-scheme.git

Fix bug in x_window_to_xw: it was not checking that the entry in the
x_window_table was valid before extracting the window handle.
---

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 4c06f266c..a0457998d 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.51 1993/08/17 21:25:39 cph Exp $
+$Id: x11base.c,v 1.52 1993/11/22 03:21:08 gjr Exp $
 
 Copyright (c) 1989-93 Massachusetts Institute of Technology
 
@@ -167,7 +167,7 @@ DEFUN (x_window_to_xw, (window), Window window)
   while (scan < end)
     {
       struct xwindow * xw = (*scan++);
-      if ((XW_WINDOW (xw)) == window)
+      if ((xw != 0) && ((XW_WINDOW (xw)) == window))
 	return (xw);
     }
   return (0);