From: Ken Raeburn <raeburn@raeburn.org>
Date: Sat, 24 Jun 2000 06:06:53 +0000 (+0000)
Subject: * process.c (Fopen_network_stream): Turn off atimers for duration of call to
X-Git-Tag: emacs-pretest-21.0.90~3086
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b8c2455611f3245dffeb3e2230d8a3d101fd0323;p=emacs.git

* process.c (Fopen_network_stream): Turn off atimers for duration of call to
connect.  (Patch from Gerd.)
---

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);