From: Sam Steingold <sds@gnu.org>
Date: Thu, 2 May 2019 14:17:04 +0000 (-0400)
Subject: tetris-null-map: bind "q" to `quit-window`
X-Git-Tag: emacs-27.0.90~3020
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c555d10d0feee51dfe45305d3aae60490f425447;p=emacs.git

tetris-null-map: bind "q" to `quit-window`
---

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index 1e0681d7ff1..a797a26d597 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -277,6 +277,7 @@ each one of its four blocks.")
 (defvar tetris-null-map
   (let ((map (make-sparse-keymap 'tetris-null-map)))
     (define-key map "n"		'tetris-start-game)
+    (define-key map "q"         'quit-window)
     map))
 
 ;; ;;;;;;;;;;;;;;;; game functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;