diff options
| author | Lars Ingebrigtsen | 2022-06-21 21:52:11 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-06-21 21:52:11 +0200 |
| commit | de30e8c0decf6b76beef332f19d3745ec162fc5b (patch) | |
| tree | d678cf8fa435c8c12c3b3587caae493cb69e04b6 | |
| parent | ca6c8fc72c66c7ed997801e055e5fb25374d69b5 (diff) | |
| download | emacs-de30e8c0decf6b76beef332f19d3745ec162fc5b.tar.gz emacs-de30e8c0decf6b76beef332f19d3745ec162fc5b.zip | |
Fix logic in previous Tetris change
* lisp/play/tetris.el (tetris-new-shape): Fix logic in previous
change.
| -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.") | |||
| 364 | (setq tetris-shape tetris-next-shape) | 364 | (setq tetris-shape tetris-next-shape) |
| 365 | (setq tetris-rot 0) | 365 | (setq tetris-rot 0) |
| 366 | (setq tetris-next-shape (if tetris-allow-repetitions | 366 | (setq tetris-next-shape (if tetris-allow-repetitions |
| 367 | (tetris--seven-bag) | 367 | (random 7) |
| 368 | (random 7))) | 368 | (tetris--seven-bag))) |
| 369 | (setq tetris-pos-x (/ (- tetris-width (tetris-shape-width)) 2)) | 369 | (setq tetris-pos-x (/ (- tetris-width (tetris-shape-width)) 2)) |
| 370 | (setq tetris-pos-y 0) | 370 | (setq tetris-pos-y 0) |
| 371 | (if (tetris-test-shape) | 371 | (if (tetris-test-shape) |