Mercurial > emacs
comparison lisp/play/life.el @ 21166:acffd9b0ac6d
(life-grim-reaper): store-match-data => set-match-data.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 14 Mar 1998 04:52:44 +0000 |
| parents | 852464ce5d6a |
| children | 83e8e419d94d |
comparison
equal
deleted
inserted
replaced
| 21165:480d7479ccac | 21166:acffd9b0ac6d |
|---|---|
| 186 (setq life-generation-string (int-to-string life-current-generation))) | 186 (setq life-generation-string (int-to-string life-current-generation))) |
| 187 | 187 |
| 188 (defun life-grim-reaper () | 188 (defun life-grim-reaper () |
| 189 ;; Clear the match information. Later we check to see if it | 189 ;; Clear the match information. Later we check to see if it |
| 190 ;; is still clear, if so then all the cells have died. | 190 ;; is still clear, if so then all the cells have died. |
| 191 (store-match-data nil) | 191 (set-match-data nil) |
| 192 (goto-char (point-min)) | 192 (goto-char (point-min)) |
| 193 ;; For speed declare all local variable outside the loop. | 193 ;; For speed declare all local variable outside the loop. |
| 194 (let (point char pivot living-neighbors list) | 194 (let (point char pivot living-neighbors list) |
| 195 (while (search-forward (life-life-string) nil t) | 195 (while (search-forward (life-life-string) nil t) |
| 196 (setq list life-neighbor-deltas | 196 (setq list life-neighbor-deltas |