diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-15 11:06:40 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-15 11:07:04 +0200 |
| commit | 42df8cd686f359de7a4f2d8c941ca8f8f05f4e0b (patch) | |
| tree | 4a473c8e2e1766cb56a6a7101cf2ebed9fb320a4 /lisp/play/tetris.el | |
| parent | f33965798bc4e659c0888b66853f3df3faf4e70a (diff) | |
| download | emacs-42df8cd686f359de7a4f2d8c941ca8f8f05f4e0b.tar.gz | |
Revert "Remove XEmacs code from tetris.el"
This reverts commit 68b91333d5a070c84afeadc273fd5c44df70f0a6.
This should be ported to Emacs instead.
Diffstat (limited to 'lisp/play/tetris.el')
| -rw-r--r-- | lisp/play/tetris.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el index a8fa7b75865..a797a26d597 100644 --- a/lisp/play/tetris.el +++ b/lisp/play/tetris.el @@ -599,6 +599,17 @@ Drops the shape one square, testing for collision." (use-local-map tetris-null-map) + (unless (featurep 'emacs) + (setq mode-popup-menu + '("Tetris Commands" + ["Start new game" tetris-start-game] + ["End game" tetris-end-game + (tetris-active-p)] + ["Pause" tetris-pause-game + (and (tetris-active-p) (not tetris-paused))] + ["Resume" tetris-pause-game + (and (tetris-active-p) tetris-paused)]))) + (setq show-trailing-whitespace nil) (setq gamegrid-use-glyphs tetris-use-glyphs) |