From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Thu, 3 Mar 2005 21:17:44 +0000 (+0000)
Subject: (Fexpand_file_name) [VMS]: Don't upcase the name "manually";
X-Git-Tag: ttn-vms-21-2-B2~20
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0fe6ab5fc996da35cb40a354847ade3da2283f81;p=emacs.git

(Fexpand_file_name) [VMS]: Don't upcase the name "manually";
this is now handled generally via FILE_SYSTEM_CASE.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 24a2e7ea098..fc9e157700b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2005-03-03  Thien-Thi Nguyen  <ttn@gnu.org>
+
+	* s/vms.h (FILE_SYSTEM_CASE): New macro.
+	* fileio.c (Fexpand_file_name) [VMS]: Don't upcase the name
+	"manually"; this is now handled generally via FILE_SYSTEM_CASE.
+
 2005-03-03  Thien-Thi Nguyen  <ttn@gnu.org>
 
 	* fileio.c (FILE_SYSTEM_CASE): Define macro if not already defined.
diff --git a/src/fileio.c b/src/fileio.c
index 3ea474cf94a..7b07a1cdaa4 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -1081,10 +1081,6 @@ See also the function `substitute-in-file-name'.")
       UNGCPRO;
     }
 
-#ifdef VMS
-  /* Filenames on VMS are always upper case.  */
-  name = Fupcase (name);
-#endif
   name = FILE_SYSTEM_CASE (name);
   nm = XSTRING (name)->data;