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

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index 1e0681d7ff167549c946b56e5e5e92dda78b9ea9..a797a26d59761affead46d6ccb0d67ac978043a9 100644 (file)
--- 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;