# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1053111015 0
# Node ID 66b3b1b70da3c87f0999a76cce8caf1ebeb907e2
# Parent  59fa0bb3f2828121878e5853d32da4b7336b55ae
(Fdelete_file): Handle symlinks pointing to directories.

diff -r 59fa0bb3f282 -r 66b3b1b70da3 src/fileio.c
--- a/src/fileio.c	Fri May 16 13:34:07 2003 +0000
+++ b/src/fileio.c	Fri May 16 18:50:15 2003 +0000
@@ -2623,7 +2623,8 @@
   struct gcpro gcpro1;
 
   GCPRO1 (filename);
-  if (!NILP (Ffile_directory_p (filename)))
+  if (!NILP (Ffile_directory_p (filename))
+      && NILP (Ffile_symlink_p (filename)))
     Fsignal (Qfile_error,
  	     Fcons (build_string ("Removing old name: is a directory"),
  		    Fcons (filename, Qnil)));