mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 09:51:22 -08:00
Code Issues Projects Releases Wiki Activity

(kbd_buffer_get_event): For delete-window-event, do count iconified frames.

Browse source
This commit is contained in:
Richard M. Stallman 1993-12-23 00:39:25 +00:00
parent ea0d86af5b
commit 58f6c8ab02
1 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/keyboard.c
View file

@ -1942,11 +1942,22 @@ kbd_buffer_get_event ()
#ifdef HAVE_X11
else if (event->kind == delete_window_event)
{
Lisp_Object value;
Lisp_Object tail, frame;
struct frame *f;
/* If the user destroys the only frame, Emacs should exit.
Count visible frames and iconified frames. */
for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr)
{
frame = XCONS (tail)->car;
if (XTYPE (frame) != Lisp_Frame || EQ (frame, event->frame_or_window))
continue;
f = XFRAME (frame);
if (FRAME_VISIBLE_P (f) || FRAME_ICONIFIED_P (f))
break;
}
/* If the user destroys the only frame, Emacs should exit. */
value = Fvisible_frame_list ();
if (! CONSP (value) || ! CONSP (XCONS (value)->cdr))
if (! CONSP (tail))
kill (getpid (), SIGHUP);
Fdelete_frame (event->frame_or_window, Qt);