[Emacs-diffs] Changes to emacs/lisp/play/life.el [lexbind]

[Miles Bader]

Index: emacs/lisp/play/life.el
diff -c emacs/lisp/play/life.el:1.18.16.2 emacs/lisp/play/life.el:1.18.16.3
*** emacs/lisp/play/life.el:1.18.16.2   Tue Oct 14 23:42:16 2003
--- emacs/lisp/play/life.el     Wed Dec  8 23:31:46 2004
***************
*** 1,8 ****
  ;;; life.el --- John Horton Conway's `Life' game for GNU Emacs
  
! ;; Copyright (C) 1988, 2001 Free Software Foundation, Inc.
  
  ;; Author: Kyle Jones <kyleuunet.uu.net>
  ;; Keywords: games
  
  ;; This file is part of GNU Emacs.
--- 1,9 ----
  ;;; life.el --- John Horton Conway's `Life' game for GNU Emacs
  
! ;; 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,36 ****
  
  ;;; Code:
  
! (defconst life-patterns
    [("@@@" " @@" "@@@")
     ("@@@ @@@" "@@  @@ " "@@@ @@@")
     ("@@@ @@@" "@@   @@" "@@@ @@@")
--- 31,37 ----
  
  ;;; Code:
  
! (defvar life-patterns
    [("@@@" " @@" "@@@")
     ("@@@ @@@" "@@  @@ " "@@@ @@@")
     ("@@@ @@@" "@@   @@" "@@@ @@@")
***************
*** 80,95 ****
  
  ;; 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)
  
  ;; 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)
  
  ;; For mode line
! (defconst life-current-generation nil)
  ;; Sadly, mode-line-format won't display numbers.
! (defconst life-generation-string nil)
  
  (defvar life-initialized nil
    "Non-nil if `life' has been run at least once.")
--- 81,96 ----
  
  ;; list of numbers that tell how many characters to move to get to
  ;; each of a cell's eight neighbors.
! (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.
! (defvar life-window-start nil)
  
  ;; For mode line
! (defvar life-current-generation nil)
  ;; Sadly, mode-line-format won't display numbers.
! (defvar life-generation-string nil)
  
  (defvar life-initialized nil
    "Non-nil if `life' has been run at least once.")