From 0f2ee0c1009568de0c49953acd1eb67ce0dd3de0 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 26 Feb 1996 00:07:45 +0000
Subject: [PATCH] (Fopen_network_stream): Set immediate_quit for the connect.

---
 src/process.c | 8 ++++++++
 1 file changed, 8 insertions(+)

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
-- 
2.39.2