From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 29 Jan 1996 04:52:15 +0000 (+0000)
Subject: (create_process): Set outchannel to be non-blocking.
X-Git-Tag: emacs-19.34~1455
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=038328930df6c0bf12eea61e5ab6ed57b6e94b40;p=emacs.git

(create_process): Set outchannel to be non-blocking.
---

diff --git a/src/process.c b/src/process.c
index 2dd1a46c32d..59bcd8cb11d 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1,5 +1,6 @@
 /* Asynchronous subprocess control for GNU Emacs.
-   Copyright (C) 1985, 86, 87, 88, 93, 94, 95 Free Software Foundation, Inc.
+   Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 1996
+      Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -1290,9 +1291,11 @@ create_process (process, new_argv, current_dir)
 
 #ifdef O_NONBLOCK
   fcntl (inchannel, F_SETFL, O_NONBLOCK);
+  fcntl (outchannel, F_SETFL, O_NONBLOCK);
 #else
 #ifdef O_NDELAY
   fcntl (inchannel, F_SETFL, O_NDELAY);
+  fcntl (outchannel, F_SETFL, O_NDELAY);
 #endif
 #endif