# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1130229574 0
# Node ID 4f54bc74153321f59d6a94f11c0704e366928a60
# Parent  91990416d14492f1fd927e94afee5aa5e12ae056
(blackbox-redefine-key): New function.
(blackbox-mode-map): Use it to remap existing bindings for cursor motion
instead of binding literal keys.

diff -r 91990416d144 -r 4f54bc741533 lisp/play/blackbox.el
--- a/lisp/play/blackbox.el	Tue Oct 25 08:13:44 2005 +0000
+++ b/lisp/play/blackbox.el	Tue Oct 25 08:39:34 2005 +0000
@@ -89,23 +89,26 @@
 (defvar bb-balls-placed nil
   "List of already placed balls.")
 
+;; This is used below to remap existing bindings for cursor motion to
+;; blackbox-specific bindings in blackbox-mode-map.  This is so that
+;; users who prefer non-default key bindings for cursor motion don't
+;; lose that when they play Blackbox.
+(defun blackbox-redefine-key (oldfun newfun)
+  "Redefine keys that run the function OLDFUN to run NEWFUN instead."
+  (define-key blackbox-mode-map (vector 'remap oldfun) newfun))
+
 (unless blackbox-mode-map
   (setq blackbox-mode-map (make-keymap))
   (suppress-keymap blackbox-mode-map t)
-  (define-key blackbox-mode-map "\C-f" 'bb-right)
-  (define-key blackbox-mode-map [right] 'bb-right)
-  (define-key blackbox-mode-map "\C-b" 'bb-left)
-  (define-key blackbox-mode-map [left] 'bb-left)
-  (define-key blackbox-mode-map "\C-p" 'bb-up)
-  (define-key blackbox-mode-map [up] 'bb-up)
-  (define-key blackbox-mode-map "\C-n" 'bb-down)
-  (define-key blackbox-mode-map [down] 'bb-down)
-  (define-key blackbox-mode-map "\C-e" 'bb-eol)
-  (define-key blackbox-mode-map "\C-a" 'bb-bol)
+  (blackbox-redefine-key 'backward-char 'bb-left)
+  (blackbox-redefine-key 'forward-char 'bb-right)
+  (blackbox-redefine-key 'previous-line 'bb-up)
+  (blackbox-redefine-key 'next-line 'bb-down)
+  (blackbox-redefine-key 'move-end-of-line 'bb-eol)
+  (blackbox-redefine-key 'move-beginning-of-line 'bb-bol)
   (define-key blackbox-mode-map " " 'bb-romp)
   (define-key blackbox-mode-map [insert] 'bb-romp)
-  (define-key blackbox-mode-map "\C-m" 'bb-done)
-  (define-key blackbox-mode-map [kp-enter] 'bb-done))
+  (blackbox-redefine-key 'newline 'bb-done))
 
 ;; Blackbox mode is suitable only for specially formatted data.
 (put 'blackbox-mode 'mode-class 'special)