Mercurial > emacs
comparison lisp/play/life.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 83e8e419d94d |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 51 " @@ " " @@ " " @@ " | 51 " @@ " " @@ " " @@ " |
| 52 " @@ " " @@ " " @@ " | 52 " @@ " " @@ " " @@ " |
| 53 " @@ " " @@ " " @@ " | 53 " @@ " " @@ " " @@ " |
| 54 " @@ " " @@ " " @@ " | 54 " @@ " " @@ " " @@ " |
| 55 " @@") | 55 " @@") |
| 56 ("@@@@@@@@@" "@ @ @" "@ @@@@@ @" "@ @ @ @" "@@@ @@@" | 56 ("@@@@@@@@@" "@ @ @" "@ @@@@@ @" "@ @ @ @" "@@@ @@@" |
| 57 "@ @ @ @" "@ @@@@@ @" "@ @ @" "@@@@@@@@@")] | 57 "@ @ @ @" "@ @@@@@ @" "@ @ @" "@@@@@@@@@")] |
| 58 "Vector of rectangles containing some Life startup patterns.") | 58 "Vector of rectangles containing some Life startup patterns.") |
| 59 | 59 |
| 60 ;; Macros are used macros for manifest constants instead of variables | 60 ;; Macros are used macros for manifest constants instead of variables |
| 61 ;; because the compiler will convert them to constants, which should | 61 ;; because the compiler will convert them to constants, which should |
| 263 (setq life-window-start (+ life-window-start fill-column 1))))) | 263 (setq life-window-start (+ life-window-start fill-column 1))))) |
| 264 | 264 |
| 265 (defun life-display-generation (sleeptime) | 265 (defun life-display-generation (sleeptime) |
| 266 (goto-char life-window-start) | 266 (goto-char life-window-start) |
| 267 (recenter 0) | 267 (recenter 0) |
| 268 | 268 |
| 269 ;; Redisplay; if the user has hit a key, exit the loop. | 269 ;; Redisplay; if the user has hit a key, exit the loop. |
| 270 (or (eq t (sit-for sleeptime)) | 270 (or (eq t (sit-for sleeptime)) |
| 271 (throw 'life-exit nil))) | 271 (throw 'life-exit nil))) |
| 272 | 272 |
| 273 (defun life-extinct-quit () | 273 (defun life-extinct-quit () |