diff src/process-unix.c @ 365:30d2cfa1092a r21-1-12

Import from CVS: tag r21-1-12
author cvs
date Mon, 13 Aug 2007 11:00:12 +0200
parents 7347b34c275b
children 1d62742628b6
line wrap: on
line diff
--- a/src/process-unix.c	Mon Aug 13 10:59:30 2007 +0200
+++ b/src/process-unix.c	Mon Aug 13 11:00:12 2007 +0200
@@ -954,7 +954,9 @@
 
   if (pid < 0)
     {
+      int save_errno = errno;
       close_descriptor_pair (forkin, forkout);
+      errno = save_errno;
       report_file_error ("Doing fork", Qnil);
     }