From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 25 Jun 1995 18:57:25 +0000 (+0000)
Subject: (Fopen_network_stream): Sleep 1 sec before connect retry.
X-Git-Tag: emacs-19.34~3481
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4590788aa92a70d958977e229fa608eaf52143e5;p=emacs.git

(Fopen_network_stream): Sleep 1 sec before connect retry.
---

diff --git a/src/process.c b/src/process.c
index c37aa1ce9ef..adecb580634 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1658,6 +1658,10 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\
 	goto loop;
       if (errno == EADDRINUSE && retry < 20)
 	{
+	  /* A delay here is needed on some FreeBSD systems,
+	     and it is harmless, since this retrying takes time anyway
+	     and should be infrequent.  */
+	  Fsleep_for (make_number (1), Qnil);
 	  retry++;
 	  goto loop;
 	}