fileio.c (Frename_file): Put symlink handling inside #ifdef S_IFLNK.

diff --git a/src/ChangeLog b/src/ChangeLog
index 9ff41a4ccc0e948c74cced2141e22bf8ad4cfccb..035aa78c24f3fe67e08876f158d9ca1fb8c2b8bb 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -2,6 +2,7 @@
 
        * fileio.c (barf_or_query_if_file_exists): Use lstat.
        (Frename_file): Handle renaming of symlinks across file systems.
+       (Frename_file): Put symlink handling inside #ifdef S_IFLNK.
 
 2004-05-04  Kim F. Storm  <storm@cua.dk>
 

diff --git a/src/fileio.c b/src/fileio.c
index 04068e25f8962f8e849cd686dbb5c3711689fe94..7d20697b87563b67dd0297e39c720d5969a5c304 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2725,15 +2725,17 @@ This is what happens in interactive use with M-x.  */)
     {
       if (errno == EXDEV)
        {
+#ifdef S_IFLNK
           symlink_target = Ffile_symlink_p (file);
-          if (NILP (symlink_target))
+          if (! NILP (symlink_target))
+            Fmake_symbolic_link (symlink_target, newname,
+                                 NILP (ok_if_already_exists) ? Qnil : Qt, Qt);
+          else
+#endif
             Fcopy_file (file, newname,
                         /* We have already prompted if it was an integer,
                            so don't have copy-file prompt again.  */
                         NILP (ok_if_already_exists) ? Qnil : Qt, Qt);
-          else
-            Fmake_symbolic_link (symlink_target, newname,
-                                 NILP (ok_if_already_exists) ? Qnil : Qt, Qt);
          Fdelete_file (file);
        }
       else