From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 27 Apr 1993 09:57:21 +0000 (+0000)
Subject: Fix bug caused by error in Xlib man page (and all of the books I've
X-Git-Tag: 20090517-FFI~8375
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d01188bc8d01172775838ac28ac59f37b534d2f5;p=mit-scheme.git

Fix bug caused by error in Xlib man page (and all of the books I've
seen too): Xlib IO error handlers take only one arg, not two.
---

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 9137b7226..979727a34 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.49 1993/04/27 08:38:16 cph Exp $
+$Id: x11base.c,v 1.50 1993/04/27 09:57:21 cph Exp $
 
 Copyright (c) 1989-93 Massachusetts Institute of Technology
 
@@ -251,9 +251,7 @@ DEFUN (deallocate_x_colormap, (xcm), struct xcolormap * xcm)
 /* Error Handlers */
 
 static int
-DEFUN (x_io_error_handler, (display, error_event),
-       Display * display AND
-       XErrorEvent * error_event)
+DEFUN (x_io_error_handler, (display), Display * display)
 {
   fprintf (stderr, "\nX IO Error\n");
   error_external_return ();
@@ -528,9 +526,7 @@ DEFUN (x_make_window, (xd, window, x_size, y_size, attributes, methods, extra),
 static jmp_buf x_close_window_jmp_buf;
 
 static int
-DEFUN (x_close_window_io_error, (display, error_event),
-       Display * display AND
-       XErrorEvent * error_event)
+DEFUN (x_close_window_io_error, (display), Display * display)
 {
   longjmp (x_close_window_jmp_buf, 1);
 }