# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754051450 0
# Node ID 16fe8285dc2a020a4bd511a0edee6b1b20ca6693
# Parent  de089ed6966fe68ac9c75c6c71c66f7e71741e40
(kbd_buffer_get_event): Handle delete_window_event's.

diff -r de089ed6966f -r 16fe8285dc2a src/keyboard.c
--- a/src/keyboard.c	Tue Nov 23 10:41:27 1993 +0000
+++ b/src/keyboard.c	Tue Nov 23 10:44:10 1993 +0000
@@ -1939,6 +1939,19 @@
 	  abort ();
 #endif
 	}
+#ifdef HAVE_X11
+      else if (event->kind == delete_window_event)
+	{
+	  Lisp_Object value;
+
+	  Fdelete_frame (event->frame_or_window, Qt);
+	  kbd_fetch_ptr = event + 1;
+
+	  value = Fvisible_frame_list ();
+	  if (! CONSP (value))
+	    kill (getpid (), SIGHUP);
+	}
+#endif
       /* Just discard these, by returning nil.
 	 (They shouldn't be found in the buffer,
 	 but on some machines it appears they do show up.)  */