[Emacs-diffs] Changes to emacs/src/sysdep.c

[Eli Zaretskii]

Index: emacs/src/sysdep.c
diff -c emacs/src/sysdep.c:1.230 emacs/src/sysdep.c:1.231
*** emacs/src/sysdep.c:1.230    Fri Feb  8 04:44:05 2002
--- emacs/src/sysdep.c  Mon Mar  4 15:06:58 2002
***************
*** 850,857 ****
  #endif
  
  #ifdef MSDOS    /* Demacs 1.1.2 91/10/20 Manabu Higashida */
!       st = system (sh);
!       chdir (oldwd);
  #if 0 /* This is also reported if last command executed in subshell failed, 
KFS */
        if (st)
        report_file_error ("Can't execute subshell", Fcons (build_string (sh), 
Qnil));
--- 850,871 ----
  #endif
  
  #ifdef MSDOS    /* Demacs 1.1.2 91/10/20 Manabu Higashida */
!       {
!       char *old_pwd = getenv ("PWD");
! 
!       /* If PWD is set, pass it with corrected value.  */
!       if (old_pwd)
!         {
!           old_pwd = xstrdup (old_pwd);
!           if (str[len - 1] == '/')
!             str[len - 1] = '\0';
!           setenv ("PWD", str, 1);
!         }
!       st = system (sh);
!       chdir (oldwd);
!       if (old_pwd)
!         putenv (old_pwd);     /* restore previous value */
!       }
  #if 0 /* This is also reported if last command executed in subshell failed, 
KFS */
        if (st)
        report_file_error ("Can't execute subshell", Fcons (build_string (sh), 
Qnil));