1 files changed, 9 insertions, 0 deletions

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