(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 67215ee5176e2ee1d99929d97bd7ac1767abef83..1e8aed6a54fb59c4cb0da5c9a4ff46d05e10f2d0 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 e8a4ad09101285d92d60971893130f8cf5cb62ac..196bb9243414537eb157d4c50b408e4a4e9306de 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -148,6 +148,10 @@ extern int use_file_dialog;
 #  define lstat stat
 #endif
 
+#ifndef FILE_SYSTEM_CASE
+#define FILE_SYSTEM_CASE(filename)  (filename)
+#endif
+
 /* Nonzero during writing of auto-save files */
 int auto_saving;
 
@@ -413,9 +417,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 = SDATA (filename);
 #ifdef DOS_NT
   beg = strcpy (alloca (strlen (beg) + 1), beg);
@@ -1124,10 +1126,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 = SDATA (name);
 
 #ifdef DOS_NT
@@ -6385,7 +6384,7 @@ and `read-file-name-function'.  */)
     {
        Lisp_Object val1 = double_dollars (val);
        tem = Fsymbol_value (Qfile_name_history);
-       if (history_delete_duplicates) 
+       if (history_delete_duplicates)
         XSETCDR (tem, Fdelete (val1, XCDR(tem)));
        XSETCAR (tem, val1);
     }