(FILE_SYSTEM_CASE): New macro.

diff --git a/src/s/vms.h b/src/s/vms.h
index e95212c5624e459f406fa7de6a32e65df1db45a1..aa4f0991dfe6e9d7fd35c09a2a67e78702a7a6dd 100644 (file)
--- a/src/s/vms.h
+++ b/src/s/vms.h
@@ -130,11 +130,14 @@ Boston, MA 02111-1307, USA.  */
 #define LINK_CRTL_SHARE
 
 /* Define this if you want to read the file SYS$SYSTEM:SYSUAF.DAT for user
-   information.  If you do use this, you must either make SYSUAF.DAT world 
+   information.  If you do use this, you must either make SYSUAF.DAT world
    readable or install Emacs with SYSPRV.  */
 
 /* #define READ_SYSUAF */
 
+/* Traditionally, filenames on VMS are always upper case.  */
+#define FILE_SYSTEM_CASE Fupcase
+
 /* On VMS these have a different name */
 
 #define index strchr
@@ -192,7 +195,7 @@ extern double mth$dmod(double, double);
 
 /* If user asks for TERM, check first for EMACS_TERM.  */
 #define getenv sys_getenv
-  
+
 /* Standard C abort is less useful than it should be. */
 #define abort sys_abort