# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 836324758 0
# Node ID 5158196887891a58f0d1deb19c7873cc65645f33
# Parent  96a050ad79e0dd1c2310a42c5df11b3d21f03f48
(DRIVE_LETTER) [MSDOS]: Lower-case drive letters.

diff -r 96a050ad79e0 -r 515819688789 src/fileio.c
--- a/src/fileio.c	Tue Jul 02 16:25:41 1996 +0000
+++ b/src/fileio.c	Tue Jul 02 16:25:58 1996 +0000
@@ -102,7 +102,10 @@
    redirector allows the six letters between 'Z' and 'a' as well. */
 #ifdef MSDOS
 #define IS_DRIVE(x) ((x) >= 'A' && (x) <= 'z')
-#define DRIVE_LETTER(x) (x)
+/* Need to lower-case the drive letter, or else expanded
+   filenames will sometimes compare inequal, because
+   `expand-file-name' doesn't always down-case the drive letter.  */
+#define DRIVE_LETTER(x) (tolower (x))
 #endif
 #ifdef WINDOWSNT
 #define IS_DRIVE(x) isalpha (x)