[Emacs-diffs] Changes to emacs/lisp/play/life.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    06/09/09 10:43:09

Index: life.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/play/life.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- life.el     5 Feb 2006 14:10:44 -0000       1.25
+++ life.el     9 Sep 2006 10:43:09 -0000       1.26
@@ -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 ()