# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1157798589 0
# Node ID e9e2ce3817ce354cf2bdbba08a0aaa53572e3eaf
# Parent  b9c410f26d22f1b82c32c96a36b75b89cbbba979
(life-display-generation): Test for input manually if `sleeptime' is negative
or null.

diff -r b9c410f26d22 -r e9e2ce3817ce lisp/play/life.el
--- 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 ()