From: Miles Bader <miles@gnu.org>
Date: Sun, 7 Jul 1996 01:59:35 +0000 (+0000)
Subject: (DRIVE_LETTER) [WINDOWSNT]: Lower-case drive letters.
X-Git-Tag: emacs-19.34~245
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f54b565c8756f85e2ac46d47be8c4c55a7cff3ba;p=emacs.git

(DRIVE_LETTER) [WINDOWSNT]: Lower-case drive letters.
---

diff --git a/src/fileio.c b/src/fileio.c
index 9801948d356..6f99f002cad 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -102,16 +102,14 @@ extern char *strerror ();
    redirector allows the six letters between 'Z' and 'a' as well. */
 #ifdef MSDOS
 #define IS_DRIVE(x) ((x) >= 'A' && (x) <= 'z')
-/* 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)
-extern Lisp_Object Vwin32_downcase_file_names;
-#define DRIVE_LETTER(x) (NILP (Vwin32_downcase_file_names) ? (x) : tolower (x))
 #endif
+/* 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 VMS