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

(tetris-mode): Avoid warning.

parent 2f4fbe7a
......@@ -601,6 +601,7 @@ tetris-mode keybindings:
(setq major-mode 'tetris-mode)
(setq mode-name "Tetris")
(unless (featurep 'emacs)
(setq mode-popup-menu
'("Tetris Commands"
["Start new game" tetris-start-game]
......@@ -609,7 +610,7 @@ tetris-mode keybindings:
["Pause" tetris-pause-game
(and (tetris-active-p) (not tetris-paused))]
["Resume" tetris-pause-game
(and (tetris-active-p) tetris-paused)]))
(and (tetris-active-p) tetris-paused)])))
(setq gamegrid-use-glyphs tetris-use-glyphs)
(setq gamegrid-use-color tetris-use-color)
......
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