Parent Directory | Revision Log | 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 */ |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |