diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-03-12 16:45:29 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-03-12 16:45:29 +0000 |
| commit | b0778a3197ea5513f3cef2e1cd085a5230354ce4 (patch) | |
| tree | 38e215ad5b3e5beeb2f0fa87251cac3c8f99ff80 /lisp/play | |
| parent | 04528cda8169911f5723263bbf2672c8170bfbe6 (diff) | |
| download | emacs-b0778a3197ea5513f3cef2e1cd085a5230354ce4.tar.gz | |
(life): Rearrange code so that all calls to
life-display-generation are in a catch-form.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/life.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/play/life.el b/lisp/play/life.el index 5764224d1d1..5442595dcc1 100644 --- a/lisp/play/life.el +++ b/lisp/play/life.el @@ -1,6 +1,6 @@ ;;; life.el --- John Horton Conway's `Life' game for GNU Emacs -;; Copyright (C) 1988 Free Software Foundation, Inc. +;; Copyright (C) 1988, 2001 Free Software Foundation, Inc. ;; Author: Kyle Jones <kyleuunet.uu.net> ;; Keywords: games @@ -106,14 +106,13 @@ generations (this defaults to 1)." (setq life-initialized t) (or sleeptime (setq sleeptime 1)) (life-setup) - (life-display-generation sleeptime) (catch 'life-exit (while t (let ((inhibit-quit t)) + (life-display-generation sleeptime) (life-grim-reaper) (life-expand-plane-if-needed) - (life-increment-generation) - (life-display-generation sleeptime))))) + (life-increment-generation))))) (defalias 'life-mode 'life) (put 'life-mode 'mode-class 'special) |