Commit 2f4fbe7a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(snake-mode): Avoid warning.

parent bf7f684c
......@@ -370,15 +370,16 @@ Snake mode keybindings:
(setq major-mode 'snake-mode)
(setq mode-name "Snake")
(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)]))
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment