procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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.
This commit is contained in:
Jim Blandy 1993-08-01 22:47:44 +00:00
parent eb6a920f20
commit b7294c7587
1 changed files with 5 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/play/blackbox.el
View file

@ -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)