Index: emacs/lisp/play/snake.el
diff -c emacs/lisp/play/snake.el:1.14 emacs/lisp/play/snake.el:1.15
*** emacs/lisp/play/snake.el:1.14 Mon Jul 4 17:04:18 2005
--- emacs/lisp/play/snake.el Sat Jul 16 18:35:08 2005
***************
*** 370,384 ****
(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)]))
(setq gamegrid-use-glyphs snake-use-glyphs-flag)
(setq gamegrid-use-color snake-use-color-flag)
--- 370,385 ----
(setq major-mode 'snake-mode)
(setq mode-name "Snake")
! (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)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
