# HG changeset patch # User Richard M. Stallman # Date 707698957 0 # Node ID be66b03cbeadc03832fff9f3bdd1408345e9cf7e # Parent 45401d45581d4e55313e05cde75d32e1fbfcf229 entered into RCS diff -r 45401d45581d -r be66b03cbead src/editfns.c --- a/src/editfns.c Thu Jun 04 23:02:33 1992 +0000 +++ b/src/editfns.c Thu Jun 04 23:02:37 1992 +0000 @@ -542,28 +542,6 @@ return build_string (buf); } - -#ifdef unix - -DEFUN ("set-default-file-mode", Fset_default_file_mode, Sset_default_file_mode, 1, 1, "p", - "Set Unix `umask' value to ARGUMENT, and return old value.\n\ -The `umask' value is the default protection mode for new files.") - (nmask) - Lisp_Object nmask; -{ - CHECK_NUMBER (nmask, 0); - return make_number (umask (XINT (nmask))); -} - -DEFUN ("unix-sync", Funix_sync, Sunix_sync, 0, 0, "", - "Tell Unix to finish all pending disk updates.") - () -{ - sync (); - return Qnil; -} - -#endif /* unix */ void insert1 (arg) @@ -1278,8 +1256,6 @@ defsubr (&Scurrent_time); defsubr (&Scurrent_time_string); defsubr (&Ssystem_name); - defsubr (&Sset_default_file_mode); - defsubr (&Sunix_sync); defsubr (&Smessage); defsubr (&Sformat);