From 4127f01512ddf180a4b697452fc66eda05292e0d Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Tue, 16 Nov 2004 02:54:06 +0000 Subject: [PATCH] Maintainer is now FSF. (life-patterns, life-neighbor-deltas, life-window-start) (life-current-generation, life-generation-string): Use defvar instead of defconst. --- lisp/play/life.el | 13 +++++++------ 1 file 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 +;; 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.") -- 2.39.5