diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-21 21:52:11 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-21 21:52:11 +0200 |
commit | de30e8c0decf6b76beef332f19d3745ec162fc5b (patch) | |
tree | d678cf8fa435c8c12c3b3587caae493cb69e04b6 /lisp/play/tetris.el | |
parent | ca6c8fc72c66c7ed997801e055e5fb25374d69b5 (diff) | |
download | emacs-de30e8c0decf6b76beef332f19d3745ec162fc5b.tar.gz |
Fix logic in previous Tetris change
* lisp/play/tetris.el (tetris-new-shape): Fix logic in previous
change.
Diffstat (limited to 'lisp/play/tetris.el')
-rw-r--r-- | lisp/play/tetris.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el index af1004e0811..d9bc0dd020c 100644 --- a/lisp/play/tetris.el +++ b/lisp/play/tetris.el @@ -364,8 +364,8 @@ each one of its four blocks.") (setq tetris-shape tetris-next-shape) (setq tetris-rot 0) (setq tetris-next-shape (if tetris-allow-repetitions - (tetris--seven-bag) - (random 7))) + (random 7) + (tetris--seven-bag))) (setq tetris-pos-x (/ (- tetris-width (tetris-shape-width)) 2)) (setq tetris-pos-y 0) (if (tetris-test-shape) |