/[emacs]/emacs/lisp/play/tetris.el
ViewVC logotype

Diff of /emacs/lisp/play/tetris.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by lute, Mon Jul 4 17:04:18 2005 UTC revision 1.14 by rms, Sat Jul 16 18:38:33 2005 UTC
# Line 601  tetris-mode keybindings: Line 601  tetris-mode keybindings:
601    (setq major-mode 'tetris-mode)    (setq major-mode 'tetris-mode)
602    (setq mode-name "Tetris")    (setq mode-name "Tetris")
603    
604    (setq mode-popup-menu    (unless (featurep 'emacs)
605          '("Tetris Commands"      (setq mode-popup-menu
606            ["Start new game"     tetris-start-game]            '("Tetris Commands"
607            ["End game"           tetris-end-game              ["Start new game"   tetris-start-game]
608             (tetris-active-p)]              ["End game"         tetris-end-game
609            ["Pause"              tetris-pause-game               (tetris-active-p)]
610             (and (tetris-active-p) (not tetris-paused))]              ["Pause"            tetris-pause-game
611            ["Resume"             tetris-pause-game               (and (tetris-active-p) (not tetris-paused))]
612             (and (tetris-active-p) tetris-paused)]))              ["Resume"           tetris-pause-game
613                 (and (tetris-active-p) tetris-paused)])))
614    
615    (setq gamegrid-use-glyphs tetris-use-glyphs)    (setq gamegrid-use-glyphs tetris-use-glyphs)
616    (setq gamegrid-use-color tetris-use-color)    (setq gamegrid-use-color tetris-use-color)

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26