From 6f29ac0393bb0bb70c8122d9f1bda0ae5d8cee24 Mon Sep 17 00:00:00 2001

From: Peter Oliver <git@mavit.org.uk>

Date: Thu, 26 Sep 2024 13:20:06 +0100

Subject: [PATCH] Pong and Tetris are excluded.

---

 doc/emacs/ack.texi    | 2 +-

 doc/emacs/misc.texi   | 7 +------

 lisp/menu-bar.el      | 6 ------

 test/src/doc-tests.el | 4 ++--

 4 files changed, 4 insertions(+), 15 deletions(-)

diff --git a/doc/emacs/ack.texi b/doc/emacs/ack.texi

index 5ec5cd53fa6..26f174831ca 100644

--- a/doc/emacs/ack.texi

+++ b/doc/emacs/ack.texi

@@ -228,7 +228,7 @@ Acknowledgments

 @item

 Glynn Clements provided @file{gamegrid.el} and a couple of games that

-use it, Snake and Tetris.

+use it, including Snake.

 @item

 Andrew Cohen wrote @file{spam-wash.el}, to decode and clean email before

diff --git a/doc/emacs/misc.texi b/doc/emacs/misc.texi

index 41e37fd094e..38e281bf59c 100644

--- a/doc/emacs/misc.texi

+++ b/doc/emacs/misc.texi

@@ -3248,14 +3248,9 @@ Amusements

 nato-region} converts the text in the region to NATO phonetic

 alphabet; @kbd{M-x denato-region} converts it back.

-@findex pong

-@cindex Pong game

-@findex tetris

-@cindex Tetris

 @findex snake

 @cindex Snake

-  @kbd{M-x pong}, @kbd{M-x snake} and @kbd{M-x tetris} are

-implementations of the well-known Pong, Snake and Tetris games.

+  @kbd{M-x snake} is an implementation of the well-known Snake game.

 @findex solitaire

 @cindex solitaire

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el

index bcfa83cf8e4..1b0a0bce6a5 100644

--- a/lisp/menu-bar.el

+++ b/lisp/menu-bar.el

@@ -1658,18 +1658,12 @@ menu-bar-games-menu

     (bindings--define-key menu [zone]

       '(menu-item "Zone Out" zone

                   :help "Play tricks with Emacs display when Emacs is idle"))

-    (bindings--define-key menu [tetris]

-      '(menu-item "Tetris" tetris

-                  :help "Falling blocks game"))

     (bindings--define-key menu [solitaire]

       '(menu-item "Solitaire" solitaire

                   :help "Get rid of all the stones"))

     (bindings--define-key menu [snake]

       '(menu-item "Snake" snake

                   :help "Move snake around avoiding collisions"))

-    (bindings--define-key menu [pong]

-      '(menu-item "Pong" pong

-                  :help "Bounce the ball to your opponent"))

     (bindings--define-key menu [mult]

       '(menu-item "Multiplication Puzzle"  mpuz

                   :help "Exercise brain with multiplication"))

diff --git a/test/src/doc-tests.el b/test/src/doc-tests.el

index b41a7ac5fb6..24befb737bc 100644

--- a/test/src/doc-tests.el

+++ b/test/src/doc-tests.el

@@ -34,8 +34,8 @@ doc-tests-documentation/autoloaded-macro

 (ert-deftest doc-tests-documentation/autoloaded-defun ()

   (skip-unless noninteractive)

-  (should (autoloadp (symbol-function 'tetris)))

-  (should (stringp (documentation 'tetris)))) ; See Bug#52969.

+  (should (autoloadp (symbol-function 'doctor)))

+  (should (stringp (documentation 'doctor)))) ; See Bug#52969.

 (ert-deftest doc-tests-quoting-style ()

   (should (memq (text-quoting-style) '(grave straight curve))))

-- 

2.46.1