From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 23 Nov 1993 10:44:10 +0000 (+0000)
Subject: (kbd_buffer_get_event): Handle delete_window_event's.
X-Git-Tag: emacs-19.34~10718
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=990acea371eac5e66c2f0fd918d204ae367ba665;p=emacs.git

(kbd_buffer_get_event): Handle delete_window_event's.
---

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