Mercurial > emacs
comparison lisp/term.el @ 34863:3ce84dcc97d3
(term-char-mode): Define all non-ascii self-inserting
characters to 'term-send-raw in term-raw-map.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 27 Dec 2000 05:25:52 +0000 |
| parents | 0bc4ff279d60 |
| children | 00b03757e45b |
comparison
equal
deleted
inserted
replaced
| 34862:354397dfb570 | 34863:3ce84dcc97d3 |
|---|---|
| 1282 (i 0)) | 1282 (i 0)) |
| 1283 (while (< i 128) | 1283 (while (< i 128) |
| 1284 (define-key map (make-string 1 i) 'term-send-raw) | 1284 (define-key map (make-string 1 i) 'term-send-raw) |
| 1285 (define-key esc-map (make-string 1 i) 'term-send-raw-meta) | 1285 (define-key esc-map (make-string 1 i) 'term-send-raw-meta) |
| 1286 (setq i (1+ i))) | 1286 (setq i (1+ i))) |
| 1287 (dolist (elm (generic-character-list)) | |
| 1288 (define-key map (vector elm) 'term-send-raw)) | |
| 1287 (define-key map "\e" esc-map) | 1289 (define-key map "\e" esc-map) |
| 1288 (setq term-raw-map map) | 1290 (setq term-raw-map map) |
| 1289 (setq term-raw-escape-map | 1291 (setq term-raw-escape-map |
| 1290 (copy-keymap (lookup-key (current-global-map) "\C-x"))) | 1292 (copy-keymap (lookup-key (current-global-map) "\C-x"))) |
| 1291 | 1293 |