comparison src/keyboard.c @ 5133:16fe8285dc2a

(kbd_buffer_get_event): Handle delete_window_event's.
author Richard M. Stallman <rms@gnu.org>
date Tue, 23 Nov 1993 10:44:10 +0000
parents 698acfd3faa3
children e2ebd4e12279
comparison
equal deleted inserted replaced
5132:de089ed6966f 5133:16fe8285dc2a
1937 /* We're getting selection request events, but we don't have 1937 /* We're getting selection request events, but we don't have
1938 a window system. */ 1938 a window system. */
1939 abort (); 1939 abort ();
1940 #endif 1940 #endif
1941 } 1941 }
1942 #ifdef HAVE_X11
1943 else if (event->kind == delete_window_event)
1944 {
1945 Lisp_Object value;
1946
1947 Fdelete_frame (event->frame_or_window, Qt);
1948 kbd_fetch_ptr = event + 1;
1949
1950 value = Fvisible_frame_list ();
1951 if (! CONSP (value))
1952 kill (getpid (), SIGHUP);
1953 }
1954 #endif
1942 /* Just discard these, by returning nil. 1955 /* Just discard these, by returning nil.
1943 (They shouldn't be found in the buffer, 1956 (They shouldn't be found in the buffer,
1944 but on some machines it appears they do show up.) */ 1957 but on some machines it appears they do show up.) */
1945 else if (event->kind == no_event) 1958 else if (event->kind == no_event)
1946 kbd_fetch_ptr = event + 1; 1959 kbd_fetch_ptr = event + 1;