From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Thu, 3 Mar 2005 21:29:57 +0000 (+0000)
Subject: (Fexpand_file_name) [VMS]: Don't upcase the name "manually";
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ede0461a63431a2f4e81e77db8a411115f8b1da;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 2384b07b428..56f07d13b37 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 d73976d2226..cd4328b3f96 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -1098,10 +1098,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;