Mercurial > emacs
comparison lisp/term.el @ 102123:a6789a7d6164
Remap self-insert-command to term-send-raw in
term-raw-map. (Bug#2386)
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Thu, 19 Feb 2009 17:15:58 +0000 |
| parents | b34b0237ca1a |
| children | 1d22159e6128 |
comparison
equal
deleted
inserted
replaced
| 102122:4eb463737ac8 | 102123:a6789a7d6164 |
|---|---|
| 893 (define-key map (make-string 1 i) 'term-send-raw) | 893 (define-key map (make-string 1 i) 'term-send-raw) |
| 894 ;; Avoid O and [. They are used in escape sequences for various keys. | 894 ;; Avoid O and [. They are used in escape sequences for various keys. |
| 895 (unless (or (eq i ?O) (eq i 91)) | 895 (unless (or (eq i ?O) (eq i 91)) |
| 896 (define-key esc-map (make-string 1 i) 'term-send-raw-meta)) | 896 (define-key esc-map (make-string 1 i) 'term-send-raw-meta)) |
| 897 (setq i (1+ i))) | 897 (setq i (1+ i))) |
| 898 (define-key map [remap self-insert-command] 'term-send-raw) | |
| 898 (define-key map "\e" esc-map) | 899 (define-key map "\e" esc-map) |
| 899 (setq term-raw-map map) | 900 (setq term-raw-map map) |
| 900 (setq term-raw-escape-map | 901 (setq term-raw-escape-map |
| 901 (copy-keymap (lookup-key (current-global-map) "\C-x"))) | 902 (copy-keymap (lookup-key (current-global-map) "\C-x"))) |
| 902 | 903 |