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

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

diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index 8909f3fada2..a36b29eee59 100644
--- a/lisp/play/snake.el
+++ b/lisp/play/snake.el
@@ -370,15 +370,16 @@ Snake mode keybindings:
   (setq major-mode 'snake-mode)
   (setq mode-name "Snake")
 
-  (setq mode-popup-menu
-	'("Snake Commands"
-	  ["Start new game"	snake-start-game]
-	  ["End game"		snake-end-game
-	   (snake-active-p)]
-	  ["Pause"		snake-pause-game
-	   (and (snake-active-p) (not snake-paused))]
-	  ["Resume"		snake-pause-game
-	   (and (snake-active-p) snake-paused)]))
+  (unless (featurep 'emacs)
+    (setq mode-popup-menu
+	  '("Snake Commands"
+	    ["Start new game"	snake-start-game]
+	    ["End game"		snake-end-game
+	     (snake-active-p)]
+	    ["Pause"		snake-pause-game
+	     (and (snake-active-p) (not snake-paused))]
+	    ["Resume"		snake-pause-game
+	     (and (snake-active-p) snake-paused)])))
 
   (setq gamegrid-use-glyphs snake-use-glyphs-flag)
   (setq gamegrid-use-color snake-use-color-flag)