Disable pause/resume from menu in snake and tetris

* lisp/play/tetris.el (tetris--menu-def):
* lisp/play/snake.el (snake--menu-def): Disable pause/resume from
menu.

diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index 5e8a718f5a1d0695fef58eecae8dac2956d2b2cf..d645f960d1b31fd83f38c5e3232f47d469baa709 100644 (file)
--- a/lisp/play/snake.el
+++ b/lisp/play/snake.el
@@ -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

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index b5b77721ece6bc9db9265695f27ded19414f1168..ea42e1297fd21476e0b9686caea0845984e1dfd8 100644 (file)
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -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