Mercurial > emacs
changeset 64391:1818c2670a66
(snake-mode): Avoid warning.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 16 Jul 2005 18:35:08 +0000 |
| parents | d5c99d67c76d |
| children | 9f028db3b769 |
| files | lisp/play/snake.el |
| diffstat | 1 files changed, 10 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/snake.el Sat Jul 16 18:34:22 2005 +0000 +++ b/lisp/play/snake.el Sat Jul 16 18:35:08 2005 +0000 @@ -370,15 +370,16 @@ (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)