mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

(Frename_file) [DOS_NT]: Don't try to move directory to itself on DOS_NT

Browse source 
platforms, if the old and new names are identical but for the letter-case.
This commit is contained in:
Eli Zaretskii 2006-06-23 10:19:11 +00:00
parent a1a302fda8
commit f83caf703c
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/fileio.c
View file

@ -2750,7 +2750,13 @@ This is what happens in interactive use with M-x. */)
CHECK_STRING (newname);
file = Fexpand_file_name (file, Qnil);
if (!NILP (Ffile_directory_p (newname)))
if ((!NILP (Ffile_directory_p (newname)))
#ifdef DOS_NT
/* If the file names are identical but for the case,
don't attempt to move directory to itself. */
&& (NILP (Fstring_equal (Fdowncase (file), Fdowncase (newname))))
#endif
)
newname = Fexpand_file_name (Ffile_name_nondirectory (file), newname);
else
newname = Fexpand_file_name (newname, Qnil);