diff options
| author | Glenn Morris <[email protected]> | 2008-02-21 08:13:14 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2008-02-21 08:13:14 +0000 |
| commit | d66bd635bd6de3952758cc604fb431094053f524 (patch) | |
| tree | 6497290a5fbe827d4d27e61e9bb4119a8fadcdbf /lisp/subr.el | |
| parent | 7d55bf043c84bd12a8a3cc0790b36e00f9e7c9f3 (diff) | |
(sit-for): Fix obsolete form for nil second argument.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 8420c8553d..329c4ca2c2 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1763,9 +1763,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) |