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) |