# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1152577063 0
# Node ID dbb73e0b716bcaa2020bb96a5739fd394e2f506d
# Parent  b320ad87ac92d3bbfc34833d596ee0e492054f02
(sit-for): Doc fix.  Specify normal arg list using fn-form.
Remove special case for seconds < 0.  Use (redisplay t) instead.

diff -r b320ad87ac92 -r dbb73e0b716b lisp/subr.el
--- a/lisp/subr.el	Tue Jul 11 00:15:23 2006 +0000
+++ b/lisp/subr.el	Tue Jul 11 00:17:43 2006 +0000
@@ -1708,22 +1708,21 @@
 
 If optional arg NODISP is t, don't redisplay, just wait for input.
 Redisplay does not happen if input is available before it starts.
-However, as a special exception, redisplay will occur even when
-input is available if SECONDS is negative.
 
 Value is t if waited the full time with no input arriving, and nil otherwise.
 
-An obsolete but still supported form is
+An obsolete, but still supported form is
 \(sit-for SECONDS &optional MILLISECONDS NODISP)
-Where the optional arg MILLISECONDS specifies an additional wait period,
+where the optional arg MILLISECONDS specifies an additional wait period,
 in milliseconds; this was useful when Emacs was built without
-floating point support."
+floating point support.
+
+\(fn SECONDS &optional NODISP)"
   (when (or obsolete (numberp nodisp))
     (setq seconds (+ seconds (* 1e-3 nodisp)))
     (setq nodisp obsolete))
   (unless nodisp
-    (let ((redisplay-dont-pause (or (< seconds 0) redisplay-dont-pause)))
-      (redisplay)))
+    (redisplay))
   (or (<= seconds 0)
       (let ((timer (timer-create))
 	    (echo-keystrokes 0))