Mercurial > emacs
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; |