Mercurial > emacs

changeset 75482:d08d2bb89f98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tetris-new-shape): Stop drawing if game is over.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 28 Jan 2007 19:39:58 +0000
parents 2a056be108df
children 4b3089985bc1
files lisp/play/tetris.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/tetris.el	Sun Jan 28 19:39:44 2007 +0000
+++ b/lisp/play/tetris.el	Sun Jan 28 19:39:58 2007 +0000
@@ -362,9 +362,9 @@
   (setq tetris-pos-y 0)
   (if (tetris-test-shape)
       (tetris-end-game)
-    (tetris-draw-shape))
-  (tetris-draw-next-shape)
-  (tetris-update-score))
+    (tetris-draw-shape)
+    (tetris-draw-next-shape)
+    (tetris-update-score)))
 
 (defun tetris-draw-next-shape ()
   (loop for y from 0 to 3 do