[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f339657 1/2: Revert "Remove XEmacs-only code from s
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master f339657 1/2: Revert "Remove XEmacs-only code from snake.el" |
Date: |
Tue, 15 Oct 2019 05:07:15 -0400 (EDT) |
branch: master
commit f33965798bc4e659c0888b66853f3df3faf4e70a
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Revert "Remove XEmacs-only code from snake.el"
This reverts commit 7174a2b59f4cb883beb70bb3d182d59ab425e2f1.
This should be ported to Emacs instead.
---
lisp/play/snake.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index 2769a62..d0f9457 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)