procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Disable pause/resume from menu in snake and tetris

Browse source 
* lisp/play/tetris.el (tetris--menu-def):
* lisp/play/snake.el (snake--menu-def): Disable pause/resume from
menu.
This commit is contained in:
Stefan Kangas 2019-10-20 19:01:33 +02:00
parent 5ddbd8d191
commit b0af024bb7
2 changed files with 22 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/play/snake.el
View file

@ -202,12 +202,17 @@ and then start moving it leftwards.")
["End game" snake-end-game
:active (snake-active-p)
:help "End the current Snake game"]
["Pause" snake-pause-game
:active (and (snake-active-p) (not snake-paused))
:help "Pause running Snake game"]
["Resume" snake-pause-game
:active (and (snake-active-p) snake-paused)
:help "Resume paused Snake game"])
;; FIXME: Pause and resume from the menu currently doesn't work
;; very well and is therefore disabled. The game continues
;; running while navigating the menu. See also
;; `tetris--menu-def' which has the same problem.
;; ["Pause" snake-pause-game
;; :active (and (snake-active-p) (not snake-paused))
;; :help "Pause running Snake game"]
;; ["Resume" snake-pause-game
;; :active (and (snake-active-p) snake-paused)
;; :help "Resume paused Snake game"]
)
"Menu for `snake'. Used to initialize menus.")
(easy-menu-define

17
lisp/play/tetris.el
View file

@ -289,12 +289,17 @@ each one of its four blocks.")
["End game" tetris-end-game
:active (tetris-active-p)
:help "End the current Tetris game"]
["Pause" tetris-pause-game
:active (and (tetris-active-p) (not tetris-paused))
:help "Pause running Tetris game"]
["Resume" tetris-pause-game
:active (and (tetris-active-p) tetris-paused)
:help "Resume paused Tetris game"])
;; FIXME: Pause and resume from the menu currently doesn't work
;; very well and is therefore disabled. The game continues
;; running while navigating the menu. See also
;; `snake--menu-def' which has the same problem.
;; ["Pause" tetris-pause-game
;; :active (and (tetris-active-p) (not tetris-paused))
;; :help "Pause running Tetris game"]
;; ["Resume" tetris-pause-game
;; :active (and (tetris-active-p) tetris-paused)
;; :help "Resume paused Tetris game"]
)
"Menu for `tetris'. Used to initialize menus.")
(easy-menu-define