# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 707698953 0
# Node ID 45401d45581d4e55313e05cde75d32e1fbfcf229
# Parent  23cbc2c463ebcbd7967dd25faf64d13ce3eefaa9
*** empty log message ***

diff -r 23cbc2c463eb -r 45401d45581d src/fileio.c
--- 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);
 }
diff -r 23cbc2c463eb -r 45401d45581d src/xfns.c
--- a/src/xfns.c	Thu Jun 04 19:58:44 1992 +0000
+++ b/src/xfns.c	Thu Jun 04 23:02:33 1992 +0000
@@ -2864,6 +2864,8 @@
   return make_number (XSCREEN (screen)->display.x->pixel_height);
 }
 
+#if 0  /* These no longer seem like the right way to do things.  */
+
 /* Draw a rectangle on the screen with left top corner including
    the character specified by LEFT_CHAR and TOP_CHAR.  The rectangle is
    CHARS by LINES wide and long and is the color of the cursor. */
@@ -3330,7 +3332,6 @@
 }
 #endif
 
-#if 0
 DEFUN ("x-horizontal-line", Fx_horizontal_line, Sx_horizontal_line, 1, 1, "e",
   "")
   (event)
@@ -4351,10 +4352,12 @@
   defsubr (&Sx_get_resource);
   defsubr (&Sx_pixel_width);
   defsubr (&Sx_pixel_height);
+#if 0
   defsubr (&Sx_draw_rectangle);
   defsubr (&Sx_erase_rectangle);
   defsubr (&Sx_contour_region);
   defsubr (&Sx_uncontour_region);
+#endif
   defsubr (&Sx_color_display_p);
   defsubr (&Sx_defined_color);
 #if 0