From 990acea371eac5e66c2f0fd918d204ae367ba665 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 23 Nov 1993 10:44:10 +0000
Subject: [PATCH] (kbd_buffer_get_event): Handle delete_window_event's.

---
 src/keyboard.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/keyboard.c b/src/keyboard.c
index e7e58365491..8895c54872c 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1939,6 +1939,19 @@ kbd_buffer_get_event ()
 	  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.)  */
-- 
2.39.5