[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Minor fix for life.el.
From: |
Michaël Cadilhac |
Subject: |
Minor fix for life.el. |
Date: |
Wed, 06 Sep 2006 19:05:46 +0200 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.50 (gnu/linux) |
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
- Minor fix for life.el.,
Michaël Cadilhac <=
- Re: Minor fix for life.el., David Kastrup, 2006/09/06
- Re: Minor fix for life.el., Michaël Cadilhac, 2006/09/06
- Re: Minor fix for life.el., David Kastrup, 2006/09/06
- Broken sit-for [was: Re: Minor fix for life.el.], Kim F. Storm, 2006/09/07
- Re: Broken sit-for, Michaël Cadilhac, 2006/09/08
- Re: Broken sit-for [was: Re: Minor fix for life.el.], Kim F. Storm, 2006/09/09
- Re: Broken sit-for, David Kastrup, 2006/09/09
- Re: Broken sit-for, Michaël Cadilhac, 2006/09/10
- Re: Broken sit-for, Kim F. Storm, 2006/09/10
- Re: Broken sit-for, Michaël Cadilhac, 2006/09/11