diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-07-16 18:35:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-07-16 18:35:08 +0000 |
| commit | 2f4fbe7a92ac9ebaf27c09d1db52e07c48e06ba8 (patch) | |
| tree | 89dc60812dcbcc92d9ca984cbd320c39975d6de2 /lisp/play | |
| parent | bf7f684c175660ab1a20c72732fd5d480b291753 (diff) | |
| download | emacs-2f4fbe7a92ac9ebaf27c09d1db52e07c48e06ba8.tar.gz | |
(snake-mode): Avoid warning.
Diffstat (limited to 'lisp/play')
| -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: (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) |