# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1052345584 0
# Node ID 85431fbc6ac5ccc5b904ef0d9743cfaf06b707c4
# Parent  97867a590ad46de4886952d2b50676d3d5365cf8
(Ffile_symlink_p): Let handlers handle symlinks even
when system does not support them.

diff -r 97867a590ad4 -r 85431fbc6ac5 src/fileio.c
--- a/src/fileio.c	Wed May 07 22:12:02 2003 +0000
+++ b/src/fileio.c	Wed May 07 22:13:04 2003 +0000
@@ -3192,11 +3192,6 @@
      (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 @@
   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 @@
   xfree (buf);
   val = DECODE_FILE (val);
   return val;
+  }
 #else /* not S_IFLNK */
   return Qnil;
 #endif /* not S_IFLNK */