From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 15 Oct 2019 09:06:14 +0000 (+0200)
Subject: Revert "Remove XEmacs-only code from snake.el"
X-Git-Tag: emacs-27.0.90~1056
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f33965798bc4e659c0888b66853f3df3faf4e70a;p=emacs.git

Revert "Remove XEmacs-only code from snake.el"

This reverts commit 7174a2b59f4cb883beb70bb3d182d59ab425e2f1.

This should be ported to Emacs instead.
---

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)