mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-26 07:00:35 -08:00
Code Issues Projects Releases Wiki Activity

(Fprocess_send_eof): Prooperly conditionalize prev. change.

Browse source
This commit is contained in:
Richard M. Stallman 1997-06-19 08:13:44 +00:00
parent 02f55c4bd4
commit 93853f3d0c
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/process.c
View file

@ -3618,6 +3618,7 @@ text to PROCESS after you call this function.")
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 @@ text to PROCESS after you call this function.")
/* 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 */