From b7294c7587dfb8bc987881247bb295c06b3114b3 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sun, 1 Aug 1993 22:47:44 +0000 Subject: [PATCH] * 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. --- lisp/play/blackbox.el | 17 +++++------------ 1 file 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) -- 2.11.4.GIT