diff options
author | Miles Bader <[email protected]> | 1996-07-07 01:59:35 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 1996-07-07 01:59:35 +0000 |
commit | f54b565c8756f85e2ac46d47be8c4c55a7cff3ba (patch) | |
tree | 6fcf9d79cfecbba1c0ed8e34881e038c59476e33 /src | |
parent | 1bcd16f2c1ccfd7700c88da7311cf2020fbc96ca (diff) |
(DRIVE_LETTER) [WINDOWSNT]: Lower-case drive letters.
Diffstat (limited to 'src')
-rw-r--r-- | src/fileio.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/fileio.c b/src/fileio.c index 9801948d35..6f99f002ca 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 |