mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

entered into RCS

Browse Source
This commit is contained in:
Richard M. Stallman 1992-06-04 23:02:37 +00:00
parent 85ffea9395
commit 4176aa4a4e
1 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/editfns.c
View File

@ -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 ()
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);