(Fmake_network_process): Only support server sockets

when we can make them non-blocking.

1 files changed, 3 insertions, 1 deletions

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;