diff lisp/play/tetris.el @ 75482:d08d2bb89f98

(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 e3694f1cb928
children 678584f358ef f83d17e1ace6
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