From 33aba6a0e3bb41a0840b4dc0b3dd1e8a44577a0f Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 9 Sep 2006 10:43:49 +0000 Subject: [PATCH] (life-display-generation): Test for input manually if `sleeptime' is negative or null. --- lisp/ChangeLog | 3 +++ lisp/play/life.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a52ffebadf..c81c9cb895 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2006-09-09 Micha,Ak(Bl Cadilhac + * play/life.el (life-display-generation): Test for input manually if + `sleeptime' is negative or null. + * lpr.el (lpr-page-header-switches): Page title switch is one of them. (print-region-1): Substitute `%s' with the page title. diff --git a/lisp/play/life.el b/lisp/play/life.el index 263c4450c9..a034c38740 100644 --- a/lisp/play/life.el +++ b/lisp/play/life.el @@ -269,7 +269,8 @@ generations (this defaults to 1)." (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 () -- 2.20.1