760 |
} |
} |
761 |
|
|
762 |
/* make sure argv[0] and cmdname are both in DOS format */ |
/* make sure argv[0] and cmdname are both in DOS format */ |
763 |
cmdname = XSTRING (program)->data; |
cmdname = SDATA (program); |
764 |
unixtodos_filename (cmdname); |
unixtodos_filename (cmdname); |
765 |
argv[0] = cmdname; |
argv[0] = cmdname; |
766 |
|
|
784 |
strcpy (cmdname, egetenv ("CMDPROXY")); |
strcpy (cmdname, egetenv ("CMDPROXY")); |
785 |
else |
else |
786 |
{ |
{ |
787 |
strcpy (cmdname, XSTRING (Vinvocation_directory)->data); |
strcpy (cmdname, SDATA (Vinvocation_directory)); |
788 |
strcat (cmdname, "cmdproxy.exe"); |
strcat (cmdname, "cmdproxy.exe"); |
789 |
} |
} |
790 |
unixtodos_filename (cmdname); |
unixtodos_filename (cmdname); |
1723 |
filename = Fexpand_file_name (filename, Qnil); |
filename = Fexpand_file_name (filename, Qnil); |
1724 |
|
|
1725 |
/* luckily, this returns the short version of each element in the path. */ |
/* luckily, this returns the short version of each element in the path. */ |
1726 |
if (GetShortPathName (XSTRING (filename)->data, shortname, MAX_PATH) == 0) |
if (GetShortPathName (SDATA (filename), shortname, MAX_PATH) == 0) |
1727 |
return Qnil; |
return Qnil; |
1728 |
|
|
1729 |
CORRECT_DIR_SEPS (shortname); |
CORRECT_DIR_SEPS (shortname); |
1747 |
/* first expand it. */ |
/* first expand it. */ |
1748 |
filename = Fexpand_file_name (filename, Qnil); |
filename = Fexpand_file_name (filename, Qnil); |
1749 |
|
|
1750 |
if (!w32_get_long_filename (XSTRING (filename)->data, longname, MAX_PATH)) |
if (!w32_get_long_filename (SDATA (filename), longname, MAX_PATH)) |
1751 |
return Qnil; |
return Qnil; |
1752 |
|
|
1753 |
CORRECT_DIR_SEPS (longname); |
CORRECT_DIR_SEPS (longname); |