From d46b940851f2529a1ffd1cd198db2b158aa19b37 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 28 Jan 2007 19:39:58 +0000 Subject: [PATCH] (tetris-new-shape): Stop drawing if game is over. --- lisp/play/tetris.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.39.2