Minor fix for life.el.

[Michaël Cadilhac]

I usually use M-x life with zero as numerical prefix (it's lot of fun).
M-0 M-x life RET

There's a little bug: when I hit a key, life goes into an infinite
loop (not MY life) and I have to C-g to stop this.

The following patch fixes this bug (sit-for is still called because he
causes redisplay).

Index: lisp/play/life.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/life.el,v
retrieving revision 1.25
diff -c -r1.25 life.el
*** lisp/play/life.el   5 Feb 2006 14:10:44 -0000       1.25
--- lisp/play/life.el   6 Sep 2006 16:58:35 -0000
***************
*** 269,275 ****
    (recenter 0)
  
    ;; Redisplay; if the user has hit a key, exit the loop.
!   (or (eq t (sit-for sleeptime))
        (throw 'life-exit nil)))
  
  (defun life-extinct-quit ()
--- 269,276 ----
    (recenter 0)
  
    ;; Redisplay; if the user has hit a key, exit the loop.
!   (or (and (sit-for sleeptime) (< 0 sleeptime))
!       (not (input-pending-p))
        (throw 'life-exit nil)))
  
  (defun life-extinct-quit ()
Index: lisp/ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.10003
diff -c -0 -r1.10003 ChangeLog
*** lisp/ChangeLog      6 Sep 2006 02:43:00 -0000       1.10003
--- lisp/ChangeLog      6 Sep 2006 16:58:48 -0000
***************
*** 0 ****
--- 1,5 ----
+ 2006-09-06  Michaël Cadilhac  <address@hidden>
+ 
+       * play/life.el (life-display-generation): Test for input manually if
+       `sleeptime' is negative or null.
+ 

TIA

-- 
 |      Michaël `Micha' Cadilhac   |  Si les religions etaient aussi tole-  |
 |         Epita/LRDE Promo 2007   |  rantes qu'elles le pretendent, il y   |
 | http://www.lrde.org/~cadilh_m   |  a longtemps qu'il n'y en aurait plus  |
 `--  -   JID: address@hidden --'           -- Moustic              -  --'

pgp3lPYohbfDg.pgp
Description: PGP signature