1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 12:40:49 -08:00

(x_connection_closed): If waiting_for_input, call quit_throw_to_read_char.

This commit is contained in:
Richard M. Stallman 1996-06-25 00:32:51 +00:00
parent ff85d4f3be
commit 0e81d8cdcc

View file

@ -148,6 +148,8 @@ Lisp_Object x_display_name_list;
is the frame to apply to. */
extern struct frame *updating_frame;
extern waiting_for_input;
/* This is a frame waiting to be autoraised, within XTread_socket. */
struct frame *pending_autoraise_frame;
@ -4533,6 +4535,12 @@ x_connection_closed (display, error_message)
sigunblock (sigmask (SIGALRM));
TOTALLY_UNBLOCK_INPUT;
if (waiting_for_input)
{
message ("%s", error_message);
quit_throw_to_read_char ();
}
error ("%s", error_message);
}