diff options
| author | Richard M. Stallman | 2005-07-16 18:35:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-07-16 18:35:08 +0000 |
| commit | 2f4fbe7a92ac9ebaf27c09d1db52e07c48e06ba8 (patch) | |
| tree | 89dc60812dcbcc92d9ca984cbd320c39975d6de2 | |
| parent | bf7f684c175660ab1a20c72732fd5d480b291753 (diff) | |
| download | emacs-2f4fbe7a92ac9ebaf27c09d1db52e07c48e06ba8.tar.gz emacs-2f4fbe7a92ac9ebaf27c09d1db52e07c48e06ba8.zip | |
(snake-mode): Avoid warning.
| -rw-r--r-- | lisp/play/snake.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lisp/play/snake.el b/lisp/play/snake.el index 8909f3fada2..a36b29eee59 100644 --- a/lisp/play/snake.el +++ b/lisp/play/snake.el | |||
| @@ -370,15 +370,16 @@ Snake mode keybindings: | |||
| 370 | (setq major-mode 'snake-mode) | 370 | (setq major-mode 'snake-mode) |
| 371 | (setq mode-name "Snake") | 371 | (setq mode-name "Snake") |
| 372 | 372 | ||
| 373 | (setq mode-popup-menu | 373 | (unless (featurep 'emacs) |
| 374 | '("Snake Commands" | 374 | (setq mode-popup-menu |
| 375 | ["Start new game" snake-start-game] | 375 | '("Snake Commands" |
| 376 | ["End game" snake-end-game | 376 | ["Start new game" snake-start-game] |
| 377 | (snake-active-p)] | 377 | ["End game" snake-end-game |
| 378 | ["Pause" snake-pause-game | 378 | (snake-active-p)] |
| 379 | (and (snake-active-p) (not snake-paused))] | 379 | ["Pause" snake-pause-game |
| 380 | ["Resume" snake-pause-game | 380 | (and (snake-active-p) (not snake-paused))] |
| 381 | (and (snake-active-p) snake-paused)])) | 381 | ["Resume" snake-pause-game |
| 382 | (and (snake-active-p) snake-paused)]))) | ||
| 382 | 383 | ||
| 383 | (setq gamegrid-use-glyphs snake-use-glyphs-flag) | 384 | (setq gamegrid-use-glyphs snake-use-glyphs-flag) |
| 384 | (setq gamegrid-use-color snake-use-color-flag) | 385 | (setq gamegrid-use-color snake-use-color-flag) |