(snake-mode): Avoid warning.

diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index 8909f3fada2a25c488d9a520f7bd60a0f853e5be..a36b29eee595305192b5998262043d65f6a01cf6 100644 (file)
--- 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)