53 |
" @@ " " @@ " " @@ " |
" @@ " " @@ " " @@ " |
54 |
" @@ " " @@ " " @@ " |
" @@ " " @@ " " @@ " |
55 |
" @@") |
" @@") |
56 |
("@@@@@@@@@" "@ @ @" "@ @@@@@ @" "@ @ @ @" "@@@ @@@" |
("@@@@@@@@@" "@ @ @" "@ @@@@@ @" "@ @ @ @" "@@@ @@@" |
57 |
"@ @ @ @" "@ @@@@@ @" "@ @ @" "@@@@@@@@@")] |
"@ @ @ @" "@ @@@@@ @" "@ @ @" "@@@@@@@@@")] |
58 |
"Vector of rectangles containing some Life startup patterns.") |
"Vector of rectangles containing some Life startup patterns.") |
59 |
|
|
265 |
(defun life-display-generation (sleeptime) |
(defun life-display-generation (sleeptime) |
266 |
(goto-char life-window-start) |
(goto-char life-window-start) |
267 |
(recenter 0) |
(recenter 0) |
268 |
|
|
269 |
;; Redisplay; if the user has hit a key, exit the loop. |
;; Redisplay; if the user has hit a key, exit the loop. |
270 |
(or (eq t (sit-for sleeptime)) |
(or (eq t (sit-for sleeptime)) |
271 |
(throw 'life-exit nil))) |
(throw 'life-exit nil))) |