Commit 4176aa4a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

entered into RCS

parent 85ffea93
...@@ -542,28 +542,6 @@ if we can figure out a reasonably easy way to get that information.") ...@@ -542,28 +542,6 @@ if we can figure out a reasonably easy way to get that information.")
return build_string (buf); 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 void
insert1 (arg) insert1 (arg)
...@@ -1278,8 +1256,6 @@ syms_of_editfns () ...@@ -1278,8 +1256,6 @@ syms_of_editfns ()
defsubr (&Scurrent_time); defsubr (&Scurrent_time);
defsubr (&Scurrent_time_string); defsubr (&Scurrent_time_string);
defsubr (&Ssystem_name); defsubr (&Ssystem_name);
defsubr (&Sset_default_file_mode);
defsubr (&Sunix_sync);
defsubr (&Smessage); defsubr (&Smessage);
defsubr (&Sformat); defsubr (&Sformat);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment