procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Ffile_symlink_p): Let handlers handle symlinks even

Browse source 
when system does not support them.
This commit is contained in:
Jason Rumney 2003-05-07 22:14:01 +00:00
parent 81404d64b3
commit 5adcec2317
2 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -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.

13
src/fileio.c
View file

@ -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 */