Remove XEmacs code from tetris.el

* lisp/play/tetris.el (tetris-mode): Remove XEmacs-only code.

1 files changed, 0 insertions, 11 deletions

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index a797a26d597..a8fa7b75865 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -599,17 +599,6 @@ 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)