Mercurial > emacs

comparison src/fileio.c @ 15587:515819688789

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(DRIVE_LETTER) [MSDOS]: Lower-case drive letters.
author Miles Bader <miles@gnu.org>
date Tue, 02 Jul 1996 16:25:58 +0000
parents a749d414efbb
children 69c516d109e7
comparison
equal deleted inserted replaced
15586:96a050ad79e0 15587:515819688789
100 } while (0) 100 } while (0)
101 /* On Windows, drive letters must be alphabetic - on DOS, the Netware 101 /* On Windows, drive letters must be alphabetic - on DOS, the Netware
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 #define DRIVE_LETTER(x) (x) 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))
106 #endif 109 #endif
107 #ifdef WINDOWSNT 110 #ifdef WINDOWSNT
108 #define IS_DRIVE(x) isalpha (x) 111 #define IS_DRIVE(x) isalpha (x)
109 extern Lisp_Object Vwin32_downcase_file_names; 112 extern Lisp_Object Vwin32_downcase_file_names;
110 #define DRIVE_LETTER(x) (NILP (Vwin32_downcase_file_names) ? (x) : tolower (x)) 113 #define DRIVE_LETTER(x) (NILP (Vwin32_downcase_file_names) ? (x) : tolower (x))