diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-07-16 18:38:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-07-16 18:38:33 +0000 |
| commit | c2ff35d4bf9aabeb12a7d38a54807e5efecd7b32 (patch) | |
| tree | 7c2de0a73f47a593b5e3fb3213ceb6fdcca8b9bb /lisp/play/tetris.el | |
| parent | f9502baa04ddd72028deb3f54f1d8ba97c9771c9 (diff) | |
| download | emacs-c2ff35d4bf9aabeb12a7d38a54807e5efecd7b32.tar.gz | |
(tetris-mode): Avoid warning.
Diffstat (limited to 'lisp/play/tetris.el')
| -rw-r--r-- | lisp/play/tetris.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el index 7ef997a9865..9ecb9261241 100644 --- a/lisp/play/tetris.el +++ b/lisp/play/tetris.el @@ -601,15 +601,16 @@ tetris-mode keybindings: (setq major-mode 'tetris-mode) (setq mode-name "Tetris") - (setq mode-popup-menu - '("Tetris Commands" - ["Start new game" tetris-start-game] - ["End game" tetris-end-game - (tetris-active-p)] - ["Pause" tetris-pause-game - (and (tetris-active-p) (not tetris-paused))] - ["Resume" tetris-pause-game - (and (tetris-active-p) tetris-paused)])) + (unless (featurep 'emacs) + (setq mode-popup-menu + '("Tetris Commands" + ["Start new game" tetris-start-game] + ["End game" tetris-end-game + (tetris-active-p)] + ["Pause" tetris-pause-game + (and (tetris-active-p) (not tetris-paused))] + ["Resume" tetris-pause-game + (and (tetris-active-p) tetris-paused)]))) (setq gamegrid-use-glyphs tetris-use-glyphs) (setq gamegrid-use-color tetris-use-color) |