Patch X error handers so that they kill Scheme when the X connection

is lost.  This is a kludge, but is needed to fix a common problem.

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 1a9ac49bf013c7e64c0e3e0a2507bf9d42e5b61d..c8ddf571bd3a96ef6e8b63445ff5a98f26a663b4 100644 (file)
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.61 1995/09/27 16:21:46 cph Exp $
+$Id: x11base.c,v 1.62 1996/09/12 19:23:48 cph Exp $
 
 Copyright (c) 1989-95 Massachusetts Institute of Technology
 
@@ -262,7 +262,12 @@ static int
 DEFUN (x_io_error_handler, (display), Display * display)
 {
   fprintf (stderr, "\nX IO Error\n");
+  fflush (stderr);
+#if 0
   error_external_return ();
+#else
+  termination_eof ();
+#endif
 }
 
 static int
@@ -278,7 +283,11 @@ DEFUN (x_error_handler, (display, error_event),
           (error_event -> request_code));
   fprintf (stderr, "         Error serial: %x\n", (error_event -> serial));
   fflush (stderr);
+#if 0
   error_external_return ();
+#else
+  termination_eof ();
+#endif
 }
 
 typedef int EXFUN ((* x_error_handler_t), (Display *, XErrorEvent *));