From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Thu, 3 Mar 2005 20:56:40 +0000 (+0000)
Subject: (FILE_SYSTEM_CASE): New macro.
X-Git-Tag: ttn-vms-21-2-B2~21
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=030d4f6224c52dadfd63faf7d061effcb2c89f7f;p=emacs.git

(FILE_SYSTEM_CASE): New macro.
---

diff --git a/src/s/vms.h b/src/s/vms.h
index e95212c5624..aa4f0991dfe 100644
--- 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