mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(etags_getcwd, absolute_filename) [DOS_NT]: Canonicalize

Browse Source 
the case of the drive letter.
This commit is contained in:
Geoff Voelker 1999-01-22 19:38:51 +00:00
parent 05dad1e652
commit 7ebca6a618
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib-src/etags.c
View File

@ -4664,6 +4664,9 @@ etags_getcwd ()
for (p = path; *p != '\0'; p++)
if (*p == '\\')
*p = '/';
/* Canonicalize drive letter case. */
if (islower (path[0]))
path[0] = toupper (path[0]);
}
#endif
@ -4790,6 +4793,12 @@ absolute_filename (file, cwd)
slashp = etags_strchr (slashp + 1, '/');
}
#ifdef DOS_NT
/* Canonicalize drive letter case. */
if (res[0] && islower (res[0]))
res[0] = toupper (res[0]);
#endif
if (res[0] == '\0')
return savestr ("/");