(Ffile_symlink_p): Let handlers handle symlinks even

when system does not support them.

diff --git a/src/ChangeLog b/src/ChangeLog
index f1869a7334a8305f2f44b0a53079836883df30c4..a7add6733e3a3b1b180e87221db1b4b777647684 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-07  Jason Rumney  <jasonr@gnu.org>
+
+       * fileio.c (Ffile_symlink_p): Let handlers handle symlinks even
+       when system does not support them.
+
 2003-05-05  Stefan Monnier  <monnier@cs.yale.edu>
 
        * fileio.c (Qwrite_region_annotate_functions): New var.

diff --git a/src/fileio.c b/src/fileio.c
index 71036912bbcb1254a3bbfe76eb0af5110c76391f..cfaf5738a5e58d9f4a3604a4ad94366244e4f5f9 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3192,11 +3192,6 @@ Otherwise returns nil.  */)
      (filename)
      Lisp_Object filename;
 {
-#ifdef S_IFLNK
-  char *buf;
-  int bufsize;
-  int valsize;
-  Lisp_Object val;
   Lisp_Object handler;
 
   CHECK_STRING (filename);
@@ -3208,6 +3203,13 @@ Otherwise returns nil.  */)
   if (!NILP (handler))
     return call2 (handler, Qfile_symlink_p, filename);
 
+#ifdef S_IFLNK
+  {
+  char *buf;
+  int bufsize;
+  int valsize;
+  Lisp_Object val;
+
   filename = ENCODE_FILE (filename);
 
   bufsize = 50;
@@ -3242,6 +3244,7 @@ Otherwise returns nil.  */)
   xfree (buf);
   val = DECODE_FILE (val);
   return val;
+  }
 #else /* not S_IFLNK */
   return Qnil;
 #endif /* not S_IFLNK */