From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 15 Aug 2019 01:15:22 +0000 (-0700)
Subject: Add C-b/f/p/n keystrokes in `M-x snake'
X-Git-Tag: emacs-27.0.90~1624
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b898528fdc69c9ac58895f8be81163dc304bd59b;p=emacs.git

Add C-b/f/p/n keystrokes in `M-x snake'

* lisp/play/snake.el (snake-mode-map): Add the C-b/f/p/n in
addition to the cursor keys (bug#16720).
---

diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index 7c19733f3d2..d0f94579062 100644
--- a/lisp/play/snake.el
+++ b/lisp/play/snake.el
@@ -179,8 +179,13 @@ and then start moving it leftwards.")
 
     (define-key map [left]	'snake-move-left)
     (define-key map [right]	'snake-move-right)
-    (define-key map [up]		'snake-move-up)
+    (define-key map [up]	'snake-move-up)
     (define-key map [down]	'snake-move-down)
+
+    (define-key map "\C-b"	'snake-move-left)
+    (define-key map "\C-f"	'snake-move-right)
+    (define-key map "\C-p"	'snake-move-up)
+    (define-key map "\C-n"	'snake-move-down)
     map))
 
 (defvar snake-null-map