(Fdelete_file): Handle symlinks pointing to directories.

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.

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)));