1 files changed, 11 insertions, 0 deletions

diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index 2769a621a46..d0f94579062 100644
--- a/lisp/play/snake.el
+++ b/lisp/play/snake.el
@@ -368,6 +368,17 @@ 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)