diff options
| author | Lars Ingebrigtsen | 2019-10-15 11:06:40 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-10-15 11:07:04 +0200 |
| commit | 42df8cd686f359de7a4f2d8c941ca8f8f05f4e0b (patch) | |
| tree | 4a473c8e2e1766cb56a6a7101cf2ebed9fb320a4 | |
| parent | f33965798bc4e659c0888b66853f3df3faf4e70a (diff) | |
| download | emacs-42df8cd686f359de7a4f2d8c941ca8f8f05f4e0b.tar.gz emacs-42df8cd686f359de7a4f2d8c941ca8f8f05f4e0b.zip | |
Revert "Remove XEmacs code from tetris.el"
This reverts commit 68b91333d5a070c84afeadc273fd5c44df70f0a6.
This should be ported to Emacs instead.
| -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." | |||
| 599 | 599 | ||
| 600 | (use-local-map tetris-null-map) | 600 | (use-local-map tetris-null-map) |
| 601 | 601 | ||
| 602 | (unless (featurep 'emacs) | ||
| 603 | (setq mode-popup-menu | ||
| 604 | '("Tetris Commands" | ||
| 605 | ["Start new game" tetris-start-game] | ||
| 606 | ["End game" tetris-end-game | ||
| 607 | (tetris-active-p)] | ||
| 608 | ["Pause" tetris-pause-game | ||
| 609 | (and (tetris-active-p) (not tetris-paused))] | ||
| 610 | ["Resume" tetris-pause-game | ||
| 611 | (and (tetris-active-p) tetris-paused)]))) | ||
| 612 | |||
| 602 | (setq show-trailing-whitespace nil) | 613 | (setq show-trailing-whitespace nil) |
| 603 | 614 | ||
| 604 | (setq gamegrid-use-glyphs tetris-use-glyphs) | 615 | (setq gamegrid-use-glyphs tetris-use-glyphs) |