1 files changed, 4 insertions, 0 deletions

diff --git a/src/process.c b/src/process.c
index bdbdefabb64..bc2ac451c9d 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3185,6 +3185,8 @@ connect_network_socket (Lisp_Object proc, Lisp_Object addrinfos,
               xerrno = errno;
               emacs_close (s);
               s = -1;
+              if (socket_to_use < 0)
+                break;
               continue;
             }
         }
@@ -3312,6 +3314,8 @@ connect_network_socket (Lisp_Object proc, Lisp_Object addrinfos,
       specpdl_ptr = specpdl + count1;
       emacs_close (s);
       s = -1;
+      if (socket_to_use < 0)
+        break;
 
 #ifdef WINDOWSNT
       if (xerrno == EINTR)