1 files changed, 6 insertions, 1 deletions

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