procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(FILE_SYSTEM_CASE): Define macro if not already defined.

Browse source 
(Ffile_name_directory): Use FILE_SYSTEM_CASE unconditionally.
(Fexpand_file_name): Likewise.
This commit is contained in:
Thien-Thi Nguyen 2005-03-03 20:17:24 +00:00
parent deda0c6558
commit c155895220
2 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/ChangeLog
View file

@ -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;

11
src/fileio.c
View file

@ -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);
}