(Fcall_process): Fix previous change.

diff --git a/src/ChangeLog b/src/ChangeLog
index 0ad3ba97e0f7bbdaffcde18243951b045e77ee77..a6caa49221b1f4289c5b4738d5a896ab15b5c352 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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>
 
        * (unexsunos4): Remove file, system not supported anymore.

diff --git a/src/callproc.c b/src/callproc.c
index 2078c4411fdc426999d66c84329969a644c6f410..3a725b80a0a69f965ac70be80417a49bdad118f2 100644 (file)
--- 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 */