Commit 85ffea93 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

*** empty log message ***

parent e3bd99f5
......@@ -1930,6 +1930,18 @@ created files will not have that permission enabled.")
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 @@ nil means use format `var'. This variable is meaningful only on VMS.");
defsubr (&Sread_file_name_internal);
defsubr (&Sread_file_name);
defsubr (&Sunix_sync);
}
......@@ -2864,6 +2864,8 @@ DEFUN ("x-pixel-height", Fx_pixel_height, Sx_pixel_height, 1, 1, 0,
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 @@ DEFUN ("x-select-region", Fx_select_region, Sx_select_region, 1, 1, "e",
}
#endif
#if 0
DEFUN ("x-horizontal-line", Fx_horizontal_line, Sx_horizontal_line, 1, 1, "e",
"")
(event)
......@@ -4351,10 +4352,12 @@ Values can be the symbols Always, WhenMapped, or NotUseful.");
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment