# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866708024 0
# Node ID ddaafa596bf528b9b5a20596cc37e87eb8a9e7ef
# Parent  0295bbed3c398a76e79118e8a72f02f07a3724eb
(Fprocess_send_eof): Prooperly conditionalize prev. change.

diff -r 0295bbed3c39 -r ddaafa596bf5 src/process.c
--- a/src/process.c	Thu Jun 19 03:03:08 1997 +0000
+++ b/src/process.c	Thu Jun 19 08:13:44 1997 +0000
@@ -3618,6 +3618,7 @@
     send_process (proc, "\004", 1, Qnil);
   else
     {
+#ifdef HAVE_SHUTDOWN
       /* If this is a network connection, or socketpair is used
 	 for communication with the subprocess, call shutdown to cause EOF.
 	 (In some old system, shutdown to socketpair doesn't work.
@@ -3628,6 +3629,9 @@
       /* In case of socketpair, outfd == infd, so don't close it.  */
       if (XINT (XPROCESS (proc)->outfd) != XINT (XPROCESS (proc)->infd))
 	close (XINT (XPROCESS (proc)->outfd));
+#else /* not HAVE_SHUTDOWN */
+      close (XINT (XPROCESS (proc)->outfd));
+#endif /* not HAVE_SHUTDOWN */
       XSETINT (XPROCESS (proc)->outfd, open (NULL_DEVICE, O_WRONLY));
     }
 #endif /* VMS */