From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 Jul 2005 18:38:33 +0000 (+0000)
Subject: (tetris-mode): Avoid warning.
X-Git-Tag: emacs-pretest-22.0.90~8085
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b632b1668bbf671c84af69db30ac8865ef6d812;p=emacs.git

(tetris-mode): Avoid warning.
---

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index 7ef997a9865..9ecb9261241 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -601,15 +601,16 @@ tetris-mode keybindings:
   (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)