diff options
| author | Vasilij Schneidermann <v.schneidermann@gmail.com> | 2015-09-08 13:55:50 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-09-08 13:55:50 -0400 |
| commit | d6d545bf7636b7b7678ea85e58a41b6bf0b860ec (patch) | |
| tree | 1ad0fc44ddbbb70a51dfae8ef0ecbeaf49bfd818 | |
| parent | 48857075c96c00bdbf8536e25234d33ed1b6e3b9 (diff) | |
| download | emacs-d6d545bf7636b7b7678ea85e58a41b6bf0b860ec.tar.gz | |
* lisp/play/tetris.el (tetris-move-down): New command (bug#21360)
(tetris-mode-map): Use it.
Copyright-paperwork-exempt: yes
| -rw-r--r-- | lisp/play/tetris.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el index 586d1d5d462..0f3b7586153 100644 --- a/lisp/play/tetris.el +++ b/lisp/play/tetris.el @@ -265,7 +265,7 @@ each one of its four blocks.") (define-key map [left] 'tetris-move-left) (define-key map [right] 'tetris-move-right) (define-key map [up] 'tetris-rotate-prev) - (define-key map [down] 'tetris-rotate-next) + (define-key map [down] 'tetris-move-down) map)) (defvar tetris-null-map @@ -524,6 +524,16 @@ Drops the shape one square, testing for collision." (setq tetris-pos-x (1- tetris-pos-x))) (tetris-draw-shape))) +(defun tetris-move-down () + "Move the shape one square to the bottom." + (interactive) + (unless tetris-paused + (tetris-erase-shape) + (setq tetris-pos-y (1+ tetris-pos-y)) + (if (tetris-test-shape) + (setq tetris-pos-y (1- tetris-pos-y))) + (tetris-draw-shape))) + (defun tetris-rotate-prev () "Rotate the shape clockwise." (interactive) |