From adf6a42938bc0177388f525c1089ad9f09d797d5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 12 Feb 2008 04:05:29 +0000 Subject: [PATCH] (read_avail_input): Call Fdelete_terminal. --- src/ChangeLog | 1 + src/keyboard.c | 9 +++++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index da46657e2f6..0f47ead5f1f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,6 @@ 2008-02-12 Stefan Monnier + * keyboard.c (read_avail_input): * frame.c (Fdelete_frame): Call Fdelete_terminal. 2008-02-11 Stefan Monnier diff --git a/src/keyboard.c b/src/keyboard.c index 78298b96681..21904bf9c28 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -7134,10 +7134,11 @@ read_avail_input (expected) kill (getpid (), SIGHUP); /* XXX Is calling delete_terminal safe here? It calls Fdelete_frame. */ - if (t->delete_terminal_hook) - (*t->delete_terminal_hook) (t); - else - delete_terminal (t); + { + Lisp_Object tmp; + XSETTERMINAL (tmp, t); + Fdelete_terminal (tmp, Qnoelisp); + } } if (hold_quit.kind != NO_EVENT) -- 2.39.5