[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/sysdep.c
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/src/sysdep.c |
Date: |
Mon, 04 Mar 2002 15:06:58 -0500 |
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));
- [Emacs-diffs] Changes to emacs/src/sysdep.c,
Eli Zaretskii <=