(sit-for): Fix obsolete form for nil second argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c2a4ea2471391ebbb2743051c3cb7ef929eea95..ce1d263b0ae47f3d435ff682f13dce96336d1851 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
        * composite.el (encode-composition-rule): Fix typo in error message.
        (composition-function-table, auto-composition-mode): Doc fixes.
 
+       * subr.el (sit-for): Fix obsolete form for nil second argument.
+
 2008-02-21  Kenichi Handa  <handa@ni.aist.go.jp>
 
        * composite.el (compose-chars-after): Fix arguments for a function

diff --git a/lisp/subr.el b/lisp/subr.el
index 8c7d89591d9477aabf197c4841848d8f9d951d88..6980bf69959ed309944b262bbd4dac185ea5ec25 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1831,9 +1831,10 @@ in milliseconds; this was useful when Emacs was built without
 floating point support.
 
 \(fn SECONDS &optional NODISP)"
-  (when (or obsolete (numberp nodisp))
-    (setq seconds (+ seconds (* 1e-3 nodisp)))
-    (setq nodisp obsolete))
+  (if (numberp nodisp)
+      (setq seconds (+ seconds (* 1e-3 nodisp))
+            nodisp obsolete)
+    (if obsolete (setq nodisp obsolete)))
   (cond
    (noninteractive
     (sleep-for seconds)