Mercurial > emacs

diff src/fileio.c @ 689:45401d45581d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** 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);
 }