mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-18 00:50:44 -08:00
Code Issues Projects Releases Wiki Activity

(sit_for): New arg initial_display.

Browse source 
(Fsit_for): Pass new arg.
This commit is contained in:
Richard M. Stallman 1997-05-27 01:54:42 +00:00
parent ad66baa4c7
commit ae5a0dd403
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/dispnew.c
View file

@ -2381,8 +2381,8 @@ Emacs was built without floating point support.\n\
waiting for input as well. */
Lisp_Object
sit_for (sec, usec, reading, display)
int sec, usec, reading, display;
sit_for (sec, usec, reading, display, initial_display)
int sec, usec, reading, display, initial_display;
{
Lisp_Object read_kbd;
@ -2391,7 +2391,7 @@ sit_for (sec, usec, reading, display)
if (detect_input_pending_run_timers (display))
return Qnil;
if (display)
if (initial_display)
redisplay_preserve_echo_area ();
if (sec == 0 && usec == 0)
@ -2445,7 +2445,7 @@ Value is t if waited the full time with no input arriving.")
error ("millisecond `sit-for' not supported on %s", SYSTEM_TYPE);
#endif
return sit_for (sec, usec, 0, NILP (nodisp));
return sit_for (sec, usec, 0, NILP (nodisp), NILP (nodisp));
}
char *terminal_type;