[Emacs-diffs] master 42df8cd 2/2: Revert "Remove XEmacs code from tetris.el"

[Lars Ingebrigtsen]

branch: master
commit 42df8cd686f359de7a4f2d8c941ca8f8f05f4e0b
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 a8fa7b7..a797a26 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)