[Emacs-diffs] Changes to emacs/lisp/play/snake.el

[Richard M . Stallman]

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)