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

[Eli Zaretskii]

Index: emacs/src/sysdep.c
diff -c emacs/src/sysdep.c:1.231 emacs/src/sysdep.c:1.232
*** emacs/src/sysdep.c:1.231    Mon Mar  4 15:06:58 2002
--- emacs/src/sysdep.c  Mon Mar  4 15:15:56 2002
***************
*** 851,869 ****
  
  #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 */
--- 851,870 ----
  
  #ifdef MSDOS    /* Demacs 1.1.2 91/10/20 Manabu Higashida */
        {
!       char *epwd = getenv ("PWD");
!       char old_pwd[MAXPATHLEN+1+4];
  
        /* If PWD is set, pass it with corrected value.  */
!       if (epwd)
          {
!           strcpy (old_pwd, epwd);
            if (str[len - 1] == '/')
              str[len - 1] = '\0';
            setenv ("PWD", str, 1);
          }
        st = system (sh);
        chdir (oldwd);
!       if (epwd)
          putenv (old_pwd);     /* restore previous value */
        }
  #if 0 /* This is also reported if last command executed in subshell failed, 
KFS */