*** fileio.c.~1.609.~ 2008-03-29 20:27:38.000000000 +0100 --- fileio.c 2008-04-03 21:37:26.000000000 +0200 *************** *** 2878,2884 **** 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. --- 2878,2883 ---- *************** *** 2923,2928 **** --- 2922,2928 ---- 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,2956 **** } UNGCPRO; return Qnil; ! } #endif /* S_IFLNK */ #ifdef VMS --- 2949,2961 ---- } UNGCPRO; return Qnil; ! ! #else ! UNGCPRO; ! xsignal1 (Qfile_error, build_string ("Symbolic links are not supported")); ! #endif /* S_IFLNK */ + } #ifdef VMS *************** *** 6766,6774 **** 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 */ --- 6771,6777 ----