1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00

(Fcall_process): Fix previous change.

This commit is contained in:
Dan Nicolaescu 2008-01-13 15:15:03 +00:00
parent cb8e5d4e6e
commit 8111ec0565
2 changed files with 10 additions and 0 deletions

View File

@ -1,3 +1,7 @@
2008-01-13 Dan Nicolaescu <dann@ics.uci.edu>
* callproc.c: (Fcall_process): Fix previous change.
2008-01-13 Dan Nicolaescu <dann@ics.uci.edu> 2008-01-13 Dan Nicolaescu <dann@ics.uci.edu>
* (unexsunos4): Remove file, system not supported anymore. * (unexsunos4): Remove file, system not supported anymore.

View File

@ -471,6 +471,12 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS) */)
else else
{ {
#ifndef MSDOS #ifndef MSDOS
errno = 0;
if (pipe (fd) == -1)
{
emacs_close (filefd);
report_file_error ("Creating process pipe", Qnil);
}
#endif #endif
#if 0 #if 0
/* Replaced by close_process_descs */ /* Replaced by close_process_descs */