From 2f4fbe7a92ac9ebaf27c09d1db52e07c48e06ba8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Jul 2005 18:35:08 +0000 Subject: [PATCH] (snake-mode): Avoid warning. --- lisp/play/snake.el | 19 ++++++++++--------- 1 file 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) -- 2.39.2