From 42df8cd686f359de7a4f2d8c941ca8f8f05f4e0b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 15 Oct 2019 11:06:40 +0200 Subject: [PATCH] Revert "Remove XEmacs code from tetris.el" This reverts commit 68b91333d5a070c84afeadc273fd5c44df70f0a6. This should be ported to Emacs instead. --- lisp/play/tetris.el | 11 +++++++++++ 1 file changed, 11 insertions(+) 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) -- 2.39.5