(kbd_buffer_get_event): Handle delete_window_event's.

1 files changed, 13 insertions, 0 deletions

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.)  */