From: Peder O. Klingenberg <peder@klingenberg.no>
Date: Thu, 6 Aug 2020 12:32:52 +0000 (+0200)
Subject: * lisp/play/snake.el (snake-null-map): Quit on `q'. (Bug#42731)
X-Git-Tag: emacs-28.0.90~6771
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c4fe522860e733778531167c7ed6532840f40d4;p=emacs.git

* 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 d7c0683a05f..70d80c464fc 100644
--- 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.")