# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1200237303 0
# Node ID d3276439c0d38dd35aef052fcef824baf0b3ac39
# Parent  540397b43fb9e153b10c30a4a4c612583d09e6c9
(Fcall_process): Fix previous change.

diff -r 540397b43fb9 -r d3276439c0d3 src/ChangeLog
--- a/src/ChangeLog	Sun Jan 13 00:46:16 2008 +0000
+++ b/src/ChangeLog	Sun Jan 13 15:15:03 2008 +0000
@@ -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 -r 540397b43fb9 -r d3276439c0d3 src/callproc.c
--- a/src/callproc.c	Sun Jan 13 00:46:16 2008 +0000
+++ b/src/callproc.c	Sun Jan 13 15:15:03 2008 +0000
@@ -471,6 +471,12 @@
   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 */