diff options
| author | Richard M. Stallman | 2005-07-16 18:38:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-07-16 18:38:33 +0000 |
| commit | 2b632b1668bbf671c84af69db30ac8865ef6d812 (patch) | |
| tree | 6024da6b8eecf98aa4dd4a5d1c5ab673b48ce56e | |
| parent | 2f4fbe7a92ac9ebaf27c09d1db52e07c48e06ba8 (diff) | |
| download | emacs-2b632b1668bbf671c84af69db30ac8865ef6d812.tar.gz emacs-2b632b1668bbf671c84af69db30ac8865ef6d812.zip | |
(tetris-mode): Avoid warning.
| -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: | |||
| 601 | (setq major-mode 'tetris-mode) | 601 | (setq major-mode 'tetris-mode) |
| 602 | (setq mode-name "Tetris") | 602 | (setq mode-name "Tetris") |
| 603 | 603 | ||
| 604 | (setq mode-popup-menu | 604 | (unless (featurep 'emacs) |
| 605 | '("Tetris Commands" | 605 | (setq mode-popup-menu |
| 606 | ["Start new game" tetris-start-game] | 606 | '("Tetris Commands" |
| 607 | ["End game" tetris-end-game | 607 | ["Start new game" tetris-start-game] |
| 608 | (tetris-active-p)] | 608 | ["End game" tetris-end-game |
| 609 | ["Pause" tetris-pause-game | 609 | (tetris-active-p)] |
| 610 | (and (tetris-active-p) (not tetris-paused))] | 610 | ["Pause" tetris-pause-game |
| 611 | ["Resume" tetris-pause-game | 611 | (and (tetris-active-p) (not tetris-paused))] |
| 612 | (and (tetris-active-p) tetris-paused)])) | 612 | ["Resume" tetris-pause-game |
| 613 | (and (tetris-active-p) tetris-paused)]))) | ||
| 613 | 614 | ||
| 614 | (setq gamegrid-use-glyphs tetris-use-glyphs) | 615 | (setq gamegrid-use-glyphs tetris-use-glyphs) |
| 615 | (setq gamegrid-use-color tetris-use-color) | 616 | (setq gamegrid-use-color tetris-use-color) |