diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index d0f94579062..2769a621a46 100644
--- a/lisp/play/snake.el
+++ b/lisp/play/snake.el
@@ -368,17 +368,6 @@ Argument SNAKE-BUFFER is the name of the buffer."
 
   (use-local-map snake-null-map)
 
-  (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)