Commit f54b565c authored by Miles Bader's avatar Miles Bader

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

parent 1bcd16f2
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment