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)