From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Feb 1996 00:07:45 +0000 (+0000)
Subject: (Fopen_network_stream): Set immediate_quit for the connect.
X-Git-Tag: emacs-19.34~1189
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0f2ee0c1009568de0c49953acd1eb67ce0dd3de0;p=emacs.git

(Fopen_network_stream): Set immediate_quit for the connect.
---

diff --git a/src/process.c b/src/process.c
index 2dd472b463e..f9501f97838 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1720,11 +1720,17 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\
     unrequest_sigio ();
 
  loop:
+
+  immediate_quit = 1;
+  QUIT;
+
   if (connect (s, (struct sockaddr *) &address, sizeof address) == -1
       && errno != EISCONN)
     {
       int xerrno = errno;
 
+      immediate_quit = 0;
+
       if (errno == EINTR)
 	goto loop;
       if (errno == EADDRINUSE && retry < 20)
@@ -1747,6 +1753,8 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\
 			 Fcons (host, Fcons (name, Qnil)));
     }
 
+  immediate_quit = 0;
+
 #ifdef POLL_FOR_INPUT
   unbind_to (count, Qnil);
 #endif