* blackbox.el (blackbox-mode-map): Now that we have

terminal-independent function-key facilities, we ought to use
them.  Remove hack which looks for all bindings for the simple
motion keys and locally binds them to blackbox keys; add bindings
for the [up], [down], [left], and [right] keys.

1 files changed, 5 insertions, 12 deletions

diff --git a/lisp/play/blackbox.el b/lisp/play/blackbox.el
index ba6600cc581..81bd3063145 100644
--- a/lisp/play/blackbox.el
+++ b/lisp/play/blackbox.el
@@ -74,26 +74,19 @@
   (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)
   (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)
-
-  ;; This is a kludge.  What we really want is a general
-  ;; feature for reminding terminal keys to the functions
-  ;; corresponding to them in local maps.
-  (mapcar (function
-	   (lambda (funk)
-	     (mapcar (function
-		      (lambda (key)
-			(define-key blackbox-mode-map key funk)))
-		     (where-is-internal funk))))
-	  '(previous-line next-line backward-character forward-character)))
+  (define-key blackbox-mode-map [kp-enter] 'bb-done))
 
 ;; Blackbox mode is suitable only for specially formatted data.
 (put 'blackbox-mode 'mode-class 'special)