Mercurial > emacs
comparison lisp/play/blackbox.el @ 87657:d83fb5ce6160
Tom Tromey <tromey at redhat.com>
(blackbox-mode-map): Add `q' and [return] bindings.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 09 Jan 2008 04:18:27 +0000 |
parents | 107ccd98fa12 |
children | c70e45a7acfd 949bd6ad1ba4 |
comparison
equal
deleted
inserted
replaced
87656:2cd474c4b233 | 87657:d83fb5ce6160 |
---|---|
104 (blackbox-redefine-key map 'previous-line 'bb-up) | 104 (blackbox-redefine-key map 'previous-line 'bb-up) |
105 (blackbox-redefine-key map 'next-line 'bb-down) | 105 (blackbox-redefine-key map 'next-line 'bb-down) |
106 (blackbox-redefine-key map 'move-end-of-line 'bb-eol) | 106 (blackbox-redefine-key map 'move-end-of-line 'bb-eol) |
107 (blackbox-redefine-key map 'move-beginning-of-line 'bb-bol) | 107 (blackbox-redefine-key map 'move-beginning-of-line 'bb-bol) |
108 (define-key map " " 'bb-romp) | 108 (define-key map " " 'bb-romp) |
109 (define-key map "q" 'bury-buffer) | |
109 (define-key map [insert] 'bb-romp) | 110 (define-key map [insert] 'bb-romp) |
111 (define-key map [return] 'bb-done) | |
110 (blackbox-redefine-key map 'newline 'bb-done) | 112 (blackbox-redefine-key map 'newline 'bb-done) |
111 map)) | 113 map)) |
112 | 114 |
113 ;; Blackbox mode is suitable only for specially formatted data. | 115 ;; Blackbox mode is suitable only for specially formatted data. |
114 (put 'blackbox-mode 'mode-class 'special) | 116 (put 'blackbox-mode 'mode-class 'special) |