procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(life): Rearrange code so that all calls to

Browse source 
life-display-generation are in a catch-form.
This commit is contained in:
Gerd Moellmann 2001-03-12 16:45:29 +00:00
parent 04528cda81
commit b0778a3197
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2001-03-12 Gerd Moellmann <gerd@gnu.org>
* play/life.el (life): Rearrange code so that all calls to
life-display-generation are in a catch-form.
* progmodes/etags.el (tags-loop-continue): Don't change point in a
file that isn't interesting. In an interesting file, push the old
value of point on the mark ring.

7
lisp/play/life.el
View file

@ -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)