Mercurial > emacs
changeset 72749:e9e2ce3817ce
(life-display-generation): Test for input manually if `sleeptime' is negative
or null.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 09 Sep 2006 10:43:09 +0000 |
| parents | b9c410f26d22 |
| children | c0ce3c2d9d46 |
| files | lisp/play/life.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/life.el Sat Sep 09 10:40:27 2006 +0000 +++ b/lisp/play/life.el Sat Sep 09 10:43:09 2006 +0000 @@ -269,7 +269,8 @@ (recenter 0) ;; Redisplay; if the user has hit a key, exit the loop. - (or (eq t (sit-for sleeptime)) + (or (and (sit-for sleeptime) (< 0 sleeptime)) + (not (input-pending-p)) (throw 'life-exit nil))) (defun life-extinct-quit ()