diff options
| -rw-r--r-- | lisp/play/snake.el | 11 |
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) |