Lines Matching +defs:string +defs:char
90 (defmacro life-life-char () ?@)
91 (defmacro life-death-char () (1+ (life-life-char)))
92 (defmacro life-birth-char () 3)
93 (defmacro life-void-char () ?\ )
95 (defmacro life-life-string () (char-to-string (life-life-char)))
96 (defmacro life-death-string () (char-to-string (life-death-char)))
97 (defmacro life-birth-string () (char-to-string (life-birth-char)))
98 (defmacro life-void-string () (char-to-string (life-void-char)))
99 (defmacro life-not-void-regexp () (concat "[^" (life-void-string) "\n]"))
115 (defvar life-generation-string nil)
154 life-generation-string "0"
156 life-generation-string)
162 ;; make sure (life-life-char) is used throughout
163 (goto-char (point-min))
165 (replace-match (life-life-string) t t))
167 (goto-char (point-min))
176 (goto-char (point-min))
178 (goto-char (point-max))
181 (goto-char (point-min))
209 (setq life-generation-string (int-to-string life-current-generation)))
215 (goto-char (point-min))
217 (let (point char pivot living-neighbors list)
218 (while (search-forward (life-life-string) nil t)
224 char (char-after point))
225 (cond ((eq char (life-void-char))
226 (subst-char-in-region point (1+ point)
227 (life-void-char) 1 t))
228 ((< char 3)
229 (subst-char-in-region point (1+ point) char (1+ char) t))
230 ((< char 9)
231 (subst-char-in-region point (1+ point) char 9 t))
232 ((>= char (life-life-char))
237 (subst-char-in-region pivot (1+ pivot)
238 (life-life-char) (life-death-char) t))))
241 (subst-char-in-region 1 (point-max) 9 (life-void-char) t)
242 (subst-char-in-region 1 (point-max) 1 (life-void-char) t)
243 (subst-char-in-region 1 (point-max) 2 (life-void-char) t)
244 (subst-char-in-region 1 (point-max) (life-birth-char) (life-life-char) t)
245 (subst-char-in-region 1 (point-max) (life-death-char) (life-void-char) t))
249 (goto-char (point-min))
253 (cond ((or (eq (following-char) (life-life-char))
254 (eq (progn (end-of-line) (preceding-char)) (life-life-char)))
255 (goto-char (point-min))
257 (insert (life-void-char))
259 (insert (life-void-char))
260 (forward-char))
266 (goto-char (point-min))
269 (cond ((search-forward (life-life-string)
271 (goto-char (point-min))
272 (insert-char (life-void-char) fill-column)
274 (insert-char (life-void-char) fill-column)
277 (goto-char (point-max))
280 (cond ((search-backward (life-life-string)
282 (goto-char (point-max))
283 (insert-char (life-void-char) fill-column)
285 (insert-char (life-void-char) fill-column)
290 (goto-char life-window-start)