From: Geoff Voelker <voelker@cs.washington.edu>
Date: Fri, 22 Jan 1999 19:38:51 +0000 (+0000)
Subject: (etags_getcwd, absolute_filename) [DOS_NT]: Canonicalize
X-Git-Tag: emacs-20.4~809
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ebca6a618a654bcb2f56bff7f9094cb2892bdaf;p=emacs.git

(etags_getcwd, absolute_filename) [DOS_NT]: Canonicalize
the case of the drive letter.
---

diff --git a/lib-src/etags.c b/lib-src/etags.c
index b838d90b636..a1059e334d1 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 ("/");