From 75728599a0bc6903eaa538c049d96a178ba85150 Mon Sep 17 00:00:00 2001
From: Jason Rumney <jasonr@gnu.org>
Date: Fri, 3 May 2002 21:24:27 +0000
Subject: [PATCH] (Fmake_network_process): Only support server sockets when we
 can make them non-blocking.

---
 src/process.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/process.c b/src/process.c
index cdd9b61f7bc..d8f9c654c8a 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2590,7 +2590,9 @@ usage: (make-network-process &rest ARGS)  */)
   tem = Fplist_get (contact, QCserver);
   if (!NILP (tem))
     {
-#ifdef TERM
+      /* Don't support network sockets when non-blocking mode is
+	 not available, since a blocked Emacs is not useful.  */
+#if defined(TERM) || (!defined(O_NONBLOCK) && !defined(O_NDELAY))
       error ("Network servers not supported");
 #else
       is_server = 1;
-- 
2.39.5