/[emacs]/emacs/src/fileio.c
ViewVC logotype

Diff of /emacs/src/fileio.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.484 by monnier, Mon May 5 18:13:08 2003 UTC revision 1.485 by jasonr, Wed May 7 22:13:04 2003 UTC
# Line 3192  Otherwise returns nil.  */) Line 3192  Otherwise returns nil.  */)
3192       (filename)       (filename)
3193       Lisp_Object filename;       Lisp_Object filename;
3194  {  {
 #ifdef S_IFLNK  
   char *buf;  
   int bufsize;  
   int valsize;  
   Lisp_Object val;  
3195    Lisp_Object handler;    Lisp_Object handler;
3196    
3197    CHECK_STRING (filename);    CHECK_STRING (filename);
# Line 3208  Otherwise returns nil.  */) Line 3203  Otherwise returns nil.  */)
3203    if (!NILP (handler))    if (!NILP (handler))
3204      return call2 (handler, Qfile_symlink_p, filename);      return call2 (handler, Qfile_symlink_p, filename);
3205    
3206    #ifdef S_IFLNK
3207      {
3208      char *buf;
3209      int bufsize;
3210      int valsize;
3211      Lisp_Object val;
3212    
3213    filename = ENCODE_FILE (filename);    filename = ENCODE_FILE (filename);
3214    
3215    bufsize = 50;    bufsize = 50;
# Line 3242  Otherwise returns nil.  */) Line 3244  Otherwise returns nil.  */)
3244    xfree (buf);    xfree (buf);
3245    val = DECODE_FILE (val);    val = DECODE_FILE (val);
3246    return val;    return val;
3247      }
3248  #else /* not S_IFLNK */  #else /* not S_IFLNK */
3249    return Qnil;    return Qnil;
3250  #endif /* not S_IFLNK */  #endif /* not S_IFLNK */

Legend:
Removed from v.1.484  
changed lines
  Added in v.1.485

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26