/[emacs]/emacs/lisp/play/life.el
ViewVC logotype

Diff of /emacs/lisp/play/life.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by gerd, Mon Mar 12 16:44:56 2001 UTC revision 1.18.16.1 by miles, Fri Apr 4 06:20:31 2003 UTC
# Line 53  Line 53 
53      "         @@      " "          @@     " "           @@    "      "         @@      " "          @@     " "           @@    "
54      "            @@   " "             @@  " "              @@ "      "            @@   " "             @@  " "              @@ "
55      "               @@")      "               @@")
56     ("@@@@@@@@@" "@   @   @" "@ @@@@@ @" "@ @   @ @" "@@@   @@@"     ("@@@@@@@@@" "@   @   @" "@ @@@@@ @" "@ @   @ @" "@@@   @@@"
57      "@ @   @ @" "@ @@@@@ @" "@   @   @" "@@@@@@@@@")]      "@ @   @ @" "@ @@@@@ @" "@   @   @" "@@@@@@@@@")]
58    "Vector of rectangles containing some Life startup patterns.")    "Vector of rectangles containing some Life startup patterns.")
59    
# Line 265  generations (this defaults to 1)." Line 265  generations (this defaults to 1)."
265  (defun life-display-generation (sleeptime)  (defun life-display-generation (sleeptime)
266    (goto-char life-window-start)    (goto-char life-window-start)
267    (recenter 0)    (recenter 0)
268      
269    ;; Redisplay; if the user has hit a key, exit the loop.    ;; Redisplay; if the user has hit a key, exit the loop.
270    (or (eq t (sit-for sleeptime))    (or (eq t (sit-for sleeptime))
271        (throw 'life-exit nil)))        (throw 'life-exit nil)))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.18.16.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26