diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-01-28 19:39:58 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-01-28 19:39:58 +0000 |
| commit | d46b940851f2529a1ffd1cd198db2b158aa19b37 (patch) | |
| tree | 7c23604f6cd80f6ceddbe231a58ad17c922b72fd | |
| parent | 2f028807fdcf5d95f48c9d08279a02e7bc48586f (diff) | |
| download | emacs-d46b940851f2529a1ffd1cd198db2b158aa19b37.tar.gz | |
(tetris-new-shape): Stop drawing if game is over.
| -rw-r--r-- | lisp/play/tetris.el | 6 |
1 files 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 |