* fileio.c (Frename_file): Correctly rename symlinks to directories (Bug#5496).

1 files changed, 6 insertions, 1 deletions

diff --git a/src/fileio.c b/src/fileio.c
index 72f695acb68..50f8cb14bfb 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2300,7 +2300,12 @@ This is what happens in interactive use with M-x.  */)
 
           count = SPECPDL_INDEX ();
           specbind (Qdelete_by_moving_to_trash, Qnil);
-          if (!NILP (Ffile_directory_p (file)))
+
+          if (!NILP (Ffile_directory_p (file))
+#ifdef S_IFLNK
+              && NILP (symlink_target)
+#endif
+              )
             call2 (Qdelete_directory, file, Qt);
           else
             Fdelete_file (file);