(Fcall_process): Fix previous change.

2 files changed, 10 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 0ad3ba97e0f..a6caa49221b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 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>
+
         * (unexsunos4): Remove file, system not supported anymore.
 
         * (src/m/mips.h):
diff --git a/src/callproc.c b/src/callproc.c
index 2078c4411fd..3a725b80a0a 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -471,6 +471,12 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
   else
     {
 #ifndef MSDOS
+      errno = 0;
+      if (pipe (fd) == -1)
+        {
+          emacs_close (filefd);
+          report_file_error ("Creating process pipe", Qnil);
+        }
 #endif
 #if 0
       /* Replaced by close_process_descs */