Mercurial > emacs
diff src/fileio.c @ 689:45401d45581d
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 04 Jun 1992 23:02:33 +0000 |
parents | bd3068742807 |
children | a8d94735277e |
line wrap: on
line diff
--- a/src/fileio.c Thu Jun 04 19:58:44 1992 +0000 +++ b/src/fileio.c Thu Jun 04 23:02:33 1992 +0000 @@ -1930,6 +1930,18 @@ return mask; } +#ifdef unix + +DEFUN ("unix-sync", Funix_sync, Sunix_sync, 0, 0, "", + "Tell Unix to finish all pending disk updates.") + () +{ + sync (); + return Qnil; +} + +#endif /* unix */ + DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0, "Return t if file FILE1 is newer than file FILE2.\n\ If FILE1 does not exist, the answer is nil;\n\ @@ -2875,4 +2887,6 @@ defsubr (&Sread_file_name_internal); defsubr (&Sread_file_name); + + defsubr (&Sunix_sync); }