Mercurial > emacs
changeset 17961:86ae1679df19
(sit_for): New arg initial_display.
(Fsit_for): Pass new arg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 27 May 1997 01:54:42 +0000 |
| parents | 5c31b98be973 |
| children | 8621a73a8890 |
| files | src/dispnew.c |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/dispnew.c Tue May 27 01:52:10 1997 +0000 +++ b/src/dispnew.c Tue May 27 01:54:42 1997 +0000 @@ -2381,8 +2381,8 @@ 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 @@ 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 @@ 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;