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

[Richard M . Stallman]

Index: emacs/lisp/play/tetris.el
diff -c emacs/lisp/play/tetris.el:1.13 emacs/lisp/play/tetris.el:1.14
*** emacs/lisp/play/tetris.el:1.13      Mon Jul  4 17:04:18 2005
--- emacs/lisp/play/tetris.el   Sat Jul 16 18:38:33 2005
***************
*** 601,615 ****
    (setq major-mode 'tetris-mode)
    (setq mode-name "Tetris")
  
!   (setq mode-popup-menu
!       '("Tetris Commands"
!         ["Start new game"     tetris-start-game]
!         ["End game"           tetris-end-game
!          (tetris-active-p)]
!         ["Pause"              tetris-pause-game
!          (and (tetris-active-p) (not tetris-paused))]
!         ["Resume"             tetris-pause-game
!          (and (tetris-active-p) tetris-paused)]))
  
    (setq gamegrid-use-glyphs tetris-use-glyphs)
    (setq gamegrid-use-color tetris-use-color)
--- 601,616 ----
    (setq major-mode 'tetris-mode)
    (setq mode-name "Tetris")
  
!   (unless (featurep 'emacs)
!     (setq mode-popup-menu
!         '("Tetris Commands"
!           ["Start new game"   tetris-start-game]
!           ["End game"         tetris-end-game
!            (tetris-active-p)]
!           ["Pause"            tetris-pause-game
!            (and (tetris-active-p) (not tetris-paused))]
!           ["Resume"           tetris-pause-game
!            (and (tetris-active-p) tetris-paused)])))
  
    (setq gamegrid-use-glyphs tetris-use-glyphs)
    (setq gamegrid-use-color tetris-use-color)