# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1121539113 0
# Node ID 9f028db3b7690b219381e1e3fafc1f4aec031f9c
# Parent  1818c2670a66ff8924f04a9ed4023e1192fdd8f0
(tetris-mode): Avoid warning.

diff -r 1818c2670a66 -r 9f028db3b769 lisp/play/tetris.el
--- a/lisp/play/tetris.el	Sat Jul 16 18:35:08 2005 +0000
+++ b/lisp/play/tetris.el	Sat Jul 16 18:38:33 2005 +0000
@@ -601,15 +601,16 @@
   (setq major-mode 'tetris-mode)
   (setq mode-name "Tetris")
 
-  (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)]))
+  (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 gamegrid-use-glyphs tetris-use-glyphs)
   (setq gamegrid-use-color tetris-use-color)