Mercurial > emacs
comparison lisp/play/life.el @ 72884:9578474ca036
(life-patterns): Add a few more interesting patterns.
(life-setup): Force `show-trailing-whitespace' to nil.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Fri, 15 Sep 2006 01:26:41 +0000 |
parents | e9e2ce3817ce |
children | e3694f1cb928 b5c13d1564a9 |
comparison
equal
deleted
inserted
replaced
72883:81a3281a862c | 72884:9578474ca036 |
---|---|
54 " @@ " " @@ " " @@ " | 54 " @@ " " @@ " " @@ " |
55 " @@ " " @@ " " @@ " | 55 " @@ " " @@ " " @@ " |
56 " @@ " " @@ " " @@ " | 56 " @@ " " @@ " " @@ " |
57 " @@") | 57 " @@") |
58 ("@@@@@@@@@" "@ @ @" "@ @@@@@ @" "@ @ @ @" "@@@ @@@" | 58 ("@@@@@@@@@" "@ @ @" "@ @@@@@ @" "@ @ @ @" "@@@ @@@" |
59 "@ @ @ @" "@ @@@@@ @" "@ @ @" "@@@@@@@@@")] | 59 "@ @ @ @" "@ @@@@@ @" "@ @ @" "@@@@@@@@@") |
60 (" @ " | |
61 " @ @ " | |
62 " @@ @@ @@" | |
63 " @ @ @@ @@" | |
64 "@@ @ @ @@ " | |
65 "@@ @ @ @@ @ @ " | |
66 " @ @ @ " | |
67 " @ @ " | |
68 " @@ ") | |
69 (" @ " | |
70 " @ @@" | |
71 " @ @ " | |
72 " @ " | |
73 " @ " | |
74 "@ @ ") | |
75 ("@@@ @" | |
76 "@ " | |
77 " @@" | |
78 " @@ @" | |
79 "@ @ @") | |
80 ("@@@@@@@@ @@@@@ @@@ @@@@@@@ @@@@@")] | |
60 "Vector of rectangles containing some Life startup patterns.") | 81 "Vector of rectangles containing some Life startup patterns.") |
61 | 82 |
62 ;; Macros are used macros for manifest constants instead of variables | 83 ;; Macros are used macros for manifest constants instead of variables |
63 ;; because the compiler will convert them to constants, which should | 84 ;; because the compiler will convert them to constants, which should |
64 ;; eval faster than symbols. | 85 ;; eval faster than symbols. |
126 (kill-all-local-variables) | 147 (kill-all-local-variables) |
127 (setq case-fold-search nil | 148 (setq case-fold-search nil |
128 mode-name "Life" | 149 mode-name "Life" |
129 major-mode 'life-mode | 150 major-mode 'life-mode |
130 truncate-lines t | 151 truncate-lines t |
152 show-trailing-whitespace nil | |
131 life-current-generation 0 | 153 life-current-generation 0 |
132 life-generation-string "0" | 154 life-generation-string "0" |
133 mode-line-buffer-identification '("Life: generation " | 155 mode-line-buffer-identification '("Life: generation " |
134 life-generation-string) | 156 life-generation-string) |
135 fill-column (1- (window-width)) | 157 fill-column (1- (window-width)) |