mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

* fileio.c (Fmake_symbolic_link): Surround code by #ifdef S_IFLNK

Browse source 
only after check for file name handler functions. Signal, when
native functionality is not supported.
(syms_of_fileio): Declare it unconditionally.
This commit is contained in:
Michael Albinus 2008-04-10 20:35:54 +00:00
parent 31403b2446
commit e89b536d4b
2 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/ChangeLog
View file

@ -1,3 +1,10 @@
2008-04-10 Michael Albinus <michael.albinus@gmx.de>
* fileio.c (Fmake_symbolic_link): Surround code by #ifdef S_IFLNK
only after check for file name handler functions. Signal, when
native functionality is not supported.
(syms_of_fileio): Declare it unconditionally.
2008-04-10 Jason Rumney <jasonr@gnu.org>
* w32menu.c (is_simple_dialog, simple_dialog_show): New functions.

11
src/fileio.c
View file

@ -2878,7 +2878,6 @@ This is what happens in interactive use with M-x. */)
return Qnil;
}
#ifdef S_IFLNK
DEFUN ("make-symbolic-link", Fmake_symbolic_link, Smake_symbolic_link, 2, 3,
"FMake symbolic link to file: \nGMake symbolic link to file %s: \np",
doc: /* Make a symbolic link to FILENAME, named LINKNAME.
@ -2923,6 +2922,7 @@ This happens for interactive use with M-x. */)
RETURN_UNGCPRO (call4 (handler, Qmake_symbolic_link, filename,
linkname, ok_if_already_exists));
#ifdef S_IFLNK
encoded_filename = ENCODE_FILE (filename);
encoded_linkname = ENCODE_FILE (linkname);
@ -2949,8 +2949,13 @@ This happens for interactive use with M-x. */)
}
UNGCPRO;
return Qnil;
}
#else
UNGCPRO;
xsignal1 (Qfile_error, build_string ("Symbolic links are not supported"));
#endif /* S_IFLNK */
}
#ifdef VMS
@ -6637,9 +6642,7 @@ A non-nil value may result in data loss! */);
defsubr (&Sdelete_file);
defsubr (&Srename_file);
defsubr (&Sadd_name_to_file);
#ifdef S_IFLNK
defsubr (&Smake_symbolic_link);
#endif /* S_IFLNK */
#ifdef VMS
defsubr (&Sdefine_logical_name);
#endif /* VMS */