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 7c19733f3d2ef78bea5b89b05d99459b5b21fec3..d0f945790625879bf72f22934a1ff14bc8524cae 100644 (file)
--- 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