mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Maintainer is now FSF.

Browse Source 
(life-patterns, life-neighbor-deltas, life-window-start)
(life-current-generation, life-generation-string): Use defvar instead
of defconst.
This commit is contained in:
Luc Teirlinck 2004-11-16 02:54:06 +00:00
parent a7416ec1c9
commit 4127f01512
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/play/life.el
View File

@ -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.")