* process.c (Fopen_network_stream): Turn off atimers for duration of call to

connect.  (Patch from Gerd.)

2 files changed, 14 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 40baf532ef9..3681d3dddae 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2000-06-24  Ken Raeburn  <raeburn@gnu.org>
+
+        * process.c (Fopen_network_stream): Turn off atimers for duration
+        of call to connect.  (Patch from Gerd.)
+
 2000-06-23  Dave Love  <fx@gnu.org>
 
         * ralloc.c: Maybe include unistd.h
diff --git a/src/process.c b/src/process.c
index 6972ba0c255..26f3f5e429a 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1862,7 +1862,16 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\
       immediate_quit = 1;
       QUIT;
 
+      /* This turns off all alarm-based interrupts; the
+         bind_polling_period call above doesn't always turn all the
+         short-interval ones off, especially if interrupt_input is
+         set.
+
+         It'd be nice to be able to control the connect timeout
+         though.  Would non-blocking connect calls be portable?  */
+      turn_on_atimers (0);
       ret = connect (s, lres->ai_addr, lres->ai_addrlen);
+      turn_on_atimers (1);
       if (ret == 0)
         break;
       emacs_close (s);