From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 28 Jan 2007 19:39:58 +0000 (+0000)
Subject: (tetris-new-shape): Stop drawing if game is over.
X-Git-Tag: emacs-pretest-22.0.94~557
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d46b940851f2529a1ffd1cd198db2b158aa19b37;p=emacs.git

(tetris-new-shape): Stop drawing if game is over.
---

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index 45e5af94ea0..53305a08e66 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -362,9 +362,9 @@ Element 0 is ignored."
   (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