Commit f83caf70 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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

platforms, if the old and new names are identical but for the letter-case.
parent a1a302fd
...@@ -2750,7 +2750,13 @@ This is what happens in interactive use with M-x. */) ...@@ -2750,7 +2750,13 @@ This is what happens in interactive use with M-x. */)
CHECK_STRING (newname); CHECK_STRING (newname);
file = Fexpand_file_name (file, Qnil); 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); newname = Fexpand_file_name (Ffile_name_nondirectory (file), newname);
else else
newname = Fexpand_file_name (newname, Qnil); newname = Fexpand_file_name (newname, Qnil);
......
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