diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/w32proc.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/w32proc.c b/src/w32proc.c index 66a9761ad13..d861edeb78b 100644 --- a/src/w32proc.c +++ b/src/w32proc.c | |||
| @@ -1815,7 +1815,17 @@ sys_spawnve (int mode, char *cmdname, char **argv, char **envp) | |||
| 1815 | if (egetenv ("CMDPROXY")) | 1815 | if (egetenv ("CMDPROXY")) |
| 1816 | strcpy (cmdname, egetenv ("CMDPROXY")); | 1816 | strcpy (cmdname, egetenv ("CMDPROXY")); |
| 1817 | else | 1817 | else |
| 1818 | strcpy (lispstpcpy (cmdname, Vinvocation_directory), "cmdproxy.exe"); | 1818 | { |
| 1819 | char *q = lispstpcpy (cmdname, Vexec_directory); | ||
| 1820 | /* If we are run from the source tree, use cmdproxy.exe from | ||
| 1821 | the same source tree. */ | ||
| 1822 | for (p = q - 2; p > cmdname; p--) | ||
| 1823 | if (*p == '/') | ||
| 1824 | break; | ||
| 1825 | if (*p == '/' && xstrcasecmp (p, "/lib-src/") == 0) | ||
| 1826 | q = stpcpy (p, "/nt/"); | ||
| 1827 | strcpy (q, "cmdproxy.exe"); | ||
| 1828 | } | ||
| 1819 | 1829 | ||
| 1820 | /* Can't use unixtodos_filename here, since that needs its file | 1830 | /* Can't use unixtodos_filename here, since that needs its file |
| 1821 | name argument encoded in UTF-8. */ | 1831 | name argument encoded in UTF-8. */ |