* lisp/play/snake.el (snake-null-map): Quit on `q'. (Bug#42731)

diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index d7c0683a05f89cf4249c6f787bc48728010d27da..70d80c464fcbfa1b87c1a841db1205a5ed08b844 100644 (file)
--- a/lisp/play/snake.el
+++ b/lisp/play/snake.el
@@ -192,6 +192,7 @@ and then start moving it leftwards.")
 (defvar snake-null-map
   (let ((map (make-sparse-keymap 'snake-null-map)))
     (define-key map "n"                'snake-start-game)
+    (define-key map "q"         'quit-window)
     map)
   "Keymap for finished Snake games.")