From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 25 Jun 1996 00:32:51 +0000 (+0000)
Subject: (x_connection_closed): If waiting_for_input, call quit_throw_to_read_char.
X-Git-Tag: emacs-19.34~355
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e81d8cdcca0ddac0e2b4776901c07e989405396;p=emacs.git

(x_connection_closed): If waiting_for_input, call quit_throw_to_read_char.
---

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);
 }