Commit c1558952 authored by Thien-Thi Nguyen's avatar Thien-Thi Nguyen

(FILE_SYSTEM_CASE): Define macro if not already defined.

(Ffile_name_directory): Use FILE_SYSTEM_CASE unconditionally.
(Fexpand_file_name): Likewise.
parent deda0c65
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;
......
......@@ -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);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment