aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/fileio.c10
1 files changed, 4 insertions, 6 deletions
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 ();
102 redirector allows the six letters between 'Z' and 'a' as well. */ 102 redirector allows the six letters between 'Z' and 'a' as well. */
103#ifdef MSDOS 103#ifdef MSDOS
104#define IS_DRIVE(x) ((x) >= 'A' && (x) <= 'z') 104#define IS_DRIVE(x) ((x) >= 'A' && (x) <= 'z')
105/* Need to lower-case the drive letter, or else expanded
106 filenames will sometimes compare inequal, because
107 `expand-file-name' doesn't always down-case the drive letter. */
108#define DRIVE_LETTER(x) (tolower (x))
109#endif 105#endif
110#ifdef WINDOWSNT 106#ifdef WINDOWSNT
111#define IS_DRIVE(x) isalpha (x) 107#define IS_DRIVE(x) isalpha (x)
112extern Lisp_Object Vwin32_downcase_file_names;
113#define DRIVE_LETTER(x) (NILP (Vwin32_downcase_file_names) ? (x) : tolower (x))
114#endif 108#endif
109/* Need to lower-case the drive letter, or else expanded
110 filenames will sometimes compare inequal, because
111 `expand-file-name' doesn't always down-case the drive letter. */
112#define DRIVE_LETTER(x) (tolower (x))
115#endif 113#endif
116 114
117#ifdef VMS 115#ifdef VMS