/[emacs]/emacs/src/dispnew.c
ViewVC logotype

Diff of /emacs/src/dispnew.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.314 by kfstorm, Fri Mar 21 13:49:31 2003 UTC revision 1.315 by monnier, Mon Apr 14 16:29:18 2003 UTC
# Line 6256  sit_for (sec, usec, reading, display, in Line 6256  sit_for (sec, usec, reading, display, in
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

Legend:
Removed from v.1.314  
changed lines
  Added in v.1.315

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26