From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 4 Oct 2019 12:24:36 +0000 (+0200)
Subject: Remove XEmacs code from tetris.el
X-Git-Tag: emacs-27.0.90~1295
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68b91333d5a070c84afeadc273fd5c44df70f0a6;p=emacs.git

Remove XEmacs code from tetris.el

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

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)