mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Miles Bader 1996-07-07 01:59:35 +00:00
parent 1bcd16f2c1
commit f54b565c87
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/fileio.c
View File

@ -102,17 +102,15 @@ extern char *strerror ();
redirector allows the six letters between 'Z' and 'a' as well. */
#ifdef MSDOS
#define IS_DRIVE(x) ((x) >= 'A' && (x) <= 'z')
#endif
#ifdef WINDOWSNT
#define IS_DRIVE(x) isalpha (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 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
#endif
#ifdef VMS
#include <file.h>