(etags_getcwd, absolute_filename) [DOS_NT]: Canonicalize

the case of the drive letter.

1 files changed, 9 insertions, 0 deletions

diff --git a/lib-src/etags.c b/lib-src/etags.c
index b838d90b63..a1059e334d 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -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 ("/");