(FILE_SYSTEM_CASE): Define macro if not already defined.

(Ffile_name_directory): Use FILE_SYSTEM_CASE unconditionally.
(Fexpand_file_name): Likewise.

diff --git a/src/ChangeLog b/src/ChangeLog
index 230a72d903e7956e844573ccc9d86ae450c18b6f..24a2e7ea0984b041983d24ee8e8d85c9e9b9a528 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2005-03-03  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * fileio.c (FILE_SYSTEM_CASE): Define macro if not already defined.
+       (Ffile_name_directory): Use FILE_SYSTEM_CASE unconditionally.
+       (Fexpand_file_name): Likewise.
+
 2005-03-03  Thien-Thi Nguyen  <ttn@gnu.org>
 
        * emacs.c (Fkill_emacs): Use EXIT_SUCCESS;

diff --git a/src/fileio.c b/src/fileio.c
index 219ad375e4d229f42a3ef4fcff1bdb50e8de3145..3ea474cf94ada3a3092c9c7c688e8d35ba92d6fd 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -159,6 +159,10 @@ extern int use_dialog_box;
 #  define lstat stat
 #endif
 
+#ifndef FILE_SYSTEM_CASE
+#define FILE_SYSTEM_CASE(filename)  (filename)
+#endif
+
 #define min(a, b) ((a) < (b) ? (a) : (b))
 #define max(a, b) ((a) > (b) ? (a) : (b))
 
@@ -394,9 +398,7 @@ on VMS, perhaps instead a string ending in `:', `]' or `>'.")
   if (!NILP (handler))
     return call2 (handler, Qfile_name_directory, filename);
 
-#ifdef FILE_SYSTEM_CASE
   filename = FILE_SYSTEM_CASE (filename);
-#endif
   beg = XSTRING (filename)->data;
 #ifdef DOS_NT
   beg = strcpy (alloca (strlen (beg) + 1), beg);
@@ -1083,10 +1085,7 @@ See also the function `substitute-in-file-name'.")
   /* Filenames on VMS are always upper case.  */
   name = Fupcase (name);
 #endif
-#ifdef FILE_SYSTEM_CASE
   name = FILE_SYSTEM_CASE (name);
-#endif
-
   nm = XSTRING (name)->data;
 
 #ifdef DOS_NT