mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 15:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(blackbox-redefine-key): New function.

Browse source 
(blackbox-mode-map): Use it to remap existing bindings for cursor motion
instead of binding literal keys.
This commit is contained in:
Eli Zaretskii 2005-10-25 08:40:16 +00:00
parent 05f7d868db
commit 35b1f2e99b
2 changed files with 21 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2005-10-25 Michael Cadilhac <michael.cadilhac-@t-lrde.epita.fr> (tiny change)
* play/blackbox.el (blackbox-redefine-key): New function.
(blackbox-mode-map): Use it to remap existing bindings for cursor
motion instead of binding literal keys.
2005-10-25 Glenn Morris <rgm@gnu.org>
* calendar/diary-lib.el (diary-list-entries): Prevent infloop when

27
lisp/play/blackbox.el
View file

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