aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman1992-06-04 23:02:37 +0000
committerRichard M. Stallman1992-06-04 23:02:37 +0000
commit4176aa4a4ef22197280ead0954f1987f21a452aa (patch)
tree87400f9f941e6f33a38fba44280b1f8790e45ef6 /src
parent85ffea93957d4103dcb5143b1391ee8c6051e10c (diff)
downloademacs-4176aa4a4ef22197280ead0954f1987f21a452aa.tar.gz
emacs-4176aa4a4ef22197280ead0954f1987f21a452aa.zip
entered into RCS
Diffstat (limited to 'src')
-rw-r--r--src/editfns.c24
1 files changed, 0 insertions, 24 deletions
diff --git a/src/editfns.c b/src/editfns.c
index 6164ef32799..04772cb945b 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -542,28 +542,6 @@ if we can figure out a reasonably easy way to get that information.")
542 542
543 return build_string (buf); 543 return build_string (buf);
544} 544}
545
546#ifdef unix
547
548DEFUN ("set-default-file-mode", Fset_default_file_mode, Sset_default_file_mode, 1, 1, "p",
549 "Set Unix `umask' value to ARGUMENT, and return old value.\n\
550The `umask' value is the default protection mode for new files.")
551 (nmask)
552 Lisp_Object nmask;
553{
554 CHECK_NUMBER (nmask, 0);
555 return make_number (umask (XINT (nmask)));
556}
557
558DEFUN ("unix-sync", Funix_sync, Sunix_sync, 0, 0, "",
559 "Tell Unix to finish all pending disk updates.")
560 ()
561{
562 sync ();
563 return Qnil;
564}
565
566#endif /* unix */
567 545
568void 546void
569insert1 (arg) 547insert1 (arg)
@@ -1278,8 +1256,6 @@ syms_of_editfns ()
1278 defsubr (&Scurrent_time); 1256 defsubr (&Scurrent_time);
1279 defsubr (&Scurrent_time_string); 1257 defsubr (&Scurrent_time_string);
1280 defsubr (&Ssystem_name); 1258 defsubr (&Ssystem_name);
1281 defsubr (&Sset_default_file_mode);
1282 defsubr (&Sunix_sync);
1283 defsubr (&Smessage); 1259 defsubr (&Smessage);
1284 defsubr (&Sformat); 1260 defsubr (&Sformat);
1285 1261