# HG changeset patch
# User Geoff Voelker <voelker@cs.washington.edu>
# Date 875035824 0
# Node ID 685d256c8cb5575559d874bad950915e61b2cc1b
# Parent  70b47bd8c5c65444f0d4d9a2c991cd8aea1a08eb
(child_setup) [WINDOWSNT]: Change directory of
child instead of parent.

diff -r 70b47bd8c5c6 -r 685d256c8cb5 src/callproc.c
--- a/src/callproc.c	Mon Sep 22 01:56:30 1997 +0000
+++ b/src/callproc.c	Tue Sep 23 17:30:24 1997 +0000
@@ -954,6 +954,7 @@
     if (!IS_DIRECTORY_SEP (temp[i - 1])) temp[i++] = DIRECTORY_SEP;
     temp[i] = 0;
 
+#ifndef WINDOWSNT
     /* We can't signal an Elisp error here; we're in a vfork.  Since
        the callers check the current directory before forking, this
        should only return an error if the directory's permissions
@@ -961,6 +962,7 @@
        at least check.  */
     if (chdir (temp) < 0)
       _exit (errno);
+#endif
 
     /* Strip trailing slashes for PWD, but leave "/" and "//" alone.  */
     while (i > 2 && IS_DIRECTORY_SEP (temp[i - 1]))
@@ -1020,6 +1022,7 @@
   }
 #ifdef WINDOWSNT
   prepare_standard_handles (in, out, err, handles);
+  set_process_dir (XSTRING (current_dir)->data);
 #else  /* not WINDOWSNT */
   /* Make sure that in, out, and err are not actually already in
      descriptors zero, one, or two; this could happen if Emacs is