From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 20 Aug 2000 08:30:05 +0000 (+0000)
Subject: (canonicalize_filename) [DOS_NT]: Upcase the first
X-Git-Tag: emacs-pretest-21.0.90~2162
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b5414898bbd86cca29a6736cd8f72243457b588;p=emacs.git

(canonicalize_filename) [DOS_NT]: Upcase the first
letter only if it is a drive letter.
---

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index 23bdde2f9e1..3c1f63c70e2 100644
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-20  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* etags.c (canonicalize_filename) [DOS_NT]: Upcase the first
+	letter only if it is a drive letter.
+
 2000-07-14  Gerd Moellmann  <gerd@gnu.org>
 
 	* ebrowse.c (xrealloc, xmalloc): Renamed from yrealloc and
diff --git a/lib-src/etags.c b/lib-src/etags.c
index 3cbdfca1b56..4a24bbfa375 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -5484,7 +5484,7 @@ canonicalize_filename (fn)
 {
 #ifdef DOS_NT
   /* Canonicalize drive letter case.  */
-  if (islower (fn[0]))
+  if (fn[0] && fn[1] == ':' && islower (fn[0]))
     fn[0] = toupper (fn[0]);
   /* Convert backslashes to slashes.  */
   for (; *fn != '\0'; fn++)