diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-11-16 02:54:06 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-11-16 02:54:06 +0000 |
| commit | 4127f01512ddf180a4b697452fc66eda05292e0d (patch) | |
| tree | e6f972db6370c930bfad3dd3fe4f351aaa27b11a /lisp/play/life.el | |
| parent | a7416ec1c94462b562242a6fef3e4fd571cd9d1d (diff) | |
| download | emacs-4127f01512ddf180a4b697452fc66eda05292e0d.tar.gz emacs-4127f01512ddf180a4b697452fc66eda05292e0d.tar.bz2 emacs-4127f01512ddf180a4b697452fc66eda05292e0d.zip | |
Maintainer is now FSF.
(life-patterns, life-neighbor-deltas, life-window-start)
(life-current-generation, life-generation-string): Use defvar instead
of defconst.
Diffstat (limited to 'lisp/play/life.el')
| -rw-r--r-- | lisp/play/life.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/play/life.el b/lisp/play/life.el index c7df1a8d017..e92ac208491 100644 --- a/lisp/play/life.el +++ b/lisp/play/life.el @@ -1,8 +1,9 @@ ;;; life.el --- John Horton Conway's `Life' game for GNU Emacs -;; Copyright (C) 1988, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1988, 2001, 2004 Free Software Foundation, Inc. ;; Author: Kyle Jones <kyleuunet.uu.net> +;; Maintainer: FSF ;; Keywords: games ;; This file is part of GNU Emacs. @@ -30,7 +31,7 @@ ;;; Code: -(defconst life-patterns +(defvar life-patterns [("@@@" " @@" "@@@") ("@@@ @@@" "@@ @@ " "@@@ @@@") ("@@@ @@@" "@@ @@" "@@@ @@@") @@ -80,16 +81,16 @@ ;; list of numbers that tell how many characters to move to get to ;; each of a cell's eight neighbors. -(defconst life-neighbor-deltas nil) +(defvar life-neighbor-deltas nil) ;; window display always starts here. Easier to deal with than ;; (scroll-up) and (scroll-down) when trying to center the display. -(defconst life-window-start nil) +(defvar life-window-start nil) ;; For mode line -(defconst life-current-generation nil) +(defvar life-current-generation nil) ;; Sadly, mode-line-format won't display numbers. -(defconst life-generation-string nil) +(defvar life-generation-string nil) (defvar life-initialized nil "Non-nil if `life' has been run at least once.") |