(Fopen_network_stream): Set immediate_quit for the connect.

1 files changed, 8 insertions, 0 deletions

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