6256 |
DEFUN ("sit-for", Fsit_for, Ssit_for, 1, 3, 0, |
DEFUN ("sit-for", Fsit_for, Ssit_for, 1, 3, 0, |
6257 |
doc: /* Perform redisplay, then wait for SECONDS seconds or until input is available. |
doc: /* Perform redisplay, then wait for SECONDS seconds or until input is available. |
6258 |
SECONDS may be a floating-point value, meaning that you can wait for a |
SECONDS may be a floating-point value, meaning that you can wait for a |
6259 |
fraction of a second. Optional second arg MILLISECONDS specifies an |
fraction of a second. |
|
additional wait period, in milliseconds; this may be useful if your |
|
|
Emacs was built without floating point support. |
|
6260 |
\(Not all operating systems support waiting for a fraction of a second.) |
\(Not all operating systems support waiting for a fraction of a second.) |
6261 |
Optional third arg NODISP non-nil means don't redisplay, just wait for input. |
Optional arg NODISP non-nil means don't redisplay, just wait for input. |
6262 |
Redisplay is preempted as always if input arrives, and does not happen |
Redisplay is preempted as always if input arrives, and does not happen |
6263 |
if input is available before it starts. |
if input is available before it starts. |
6264 |
Value is t if waited the full time with no input arriving. */) |
Value is t if waited the full time with no input arriving. |
6265 |
|
|
6266 |
|
An obsolete but still supported form is |
6267 |
|
\(sit-for SECONDS &optional MILLISECONDS NODISP) |
6268 |
|
Where the optional arg MILLISECONDS specifies an additional wait period, |
6269 |
|
in milliseconds; this was useful when Emacs was built without |
6270 |
|
floating point support. |
6271 |
|
usage: (sit-for SECONDS &optional NODISP) */) |
6272 |
(seconds, milliseconds, nodisp) |
(seconds, milliseconds, nodisp) |
6273 |
Lisp_Object seconds, milliseconds, nodisp; |
Lisp_Object seconds, milliseconds, nodisp; |
6274 |
{ |
{ |
6275 |
int sec, usec; |
int sec, usec; |
6276 |
|
|
6277 |
|
if (NILP (nodisp) && !NUMBERP (milliseconds)) |
6278 |
|
{ /* New style. */ |
6279 |
|
nodisp = milliseconds; |
6280 |
|
milliseconds = Qnil; |
6281 |
|
} |
6282 |
|
|
6283 |
if (NILP (milliseconds)) |
if (NILP (milliseconds)) |
6284 |
XSETINT (milliseconds, 0); |
XSETINT (milliseconds, 0); |
6285 |
else |
else |