* fileio.c (Fsubstitute_in_file_name, Ffile_name_directory)