(Fdelete_file): Handle symlinks pointing to directories.

diff --git a/src/ChangeLog b/src/ChangeLog
index 1ff5c7c..5a67533 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-16  Ralph Schleicher  <rs@nunatak.allgaeu.org>  (tiny change)
+
+       * fileio.c (Fdelete_file): Handle symlinks pointing to
+       directories.
+
 2003-05-15  Stefan Monnier  <monnier@cs.yale.edu>
 
        * keyboard.c (apply_modifiers): Don't fill the other cache.

diff --git a/src/fileio.c b/src/fileio.c
index cfaf573..c84298c 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2623,7 +2623,8 @@ If file has multiple names, it continues to exist with the other names.  */)
   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)));