(x_connection_closed): If waiting_for_input, call quit_throw_to_read_char.

1 files changed, 8 insertions, 0 deletions

diff --git a/src/xterm.c b/src/xterm.c
index d217f169fee..991b66995cf 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -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);
 }