# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756704970 0
# Node ID c559b3d1b9e49bf7940ce81be721661df55a53fa
# Parent  a74ffe260236eda25ed697e7da1520bd3b4f1e67
(Fopen_network_stream): Turn off SIGIO while connecting.

diff -r a74ffe260236 -r c559b3d1b9e4 src/process.c
--- a/src/process.c	Fri Dec 24 03:43:13 1993 +0000
+++ b/src/process.c	Fri Dec 24 03:49:30 1993 +0000
@@ -1446,6 +1446,15 @@
   if (s < 0) 
     report_file_error ("error creating socket", Fcons (name, Qnil));
 
+  /* Kernel bugs (on Ultrix at least) cause lossage (not just EINTR)
+     when connect is interrupted.  So let's not let it get interrupted.
+     Note we do not turn off polling, because polling is only used
+     when not interrupt_input, and thus not normally used on the systems
+     which have this bug.  On systems which use polling, there's no way
+     to quit if polling is turned off.  */
+  if (interrupt_input)
+    unrequest_sigio ();
+
  loop:
   if (connect (s, (struct sockaddr *) &address, sizeof address) == -1)
     {
@@ -1453,10 +1462,18 @@
       if (errno == EINTR)
 	goto loop;
       close (s);
+
+      if (interrupt_input)
+	request_sigio ();
+
       errno = xerrno;
       report_file_error ("connection failed",
 			 Fcons (host, Fcons (name, Qnil)));
     }
+
+  if (interrupt_input)
+    request_sigio ();
+
 #else /* TERM */
   s = connect_server (0);
   if (s < 0)