[Emacs-diffs] master b898528: Add C-b/f/p/n keystrokes in `M-x snake'

[Lars Ingebrigtsen]

branch: master
commit b898528fdc69c9ac58895f8be81163dc304bd59b
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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).
---
 lisp/play/snake.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/play/snake.el b/lisp/play/snake.el
index 7c19733..d0f9457 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