Mercurial > emacs
changeset 78793:9d6c14c53c3d
(terminal-init-xterm): Add C-M- bindings.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 14 Sep 2007 22:59:16 +0000 |
| parents | 76d9105e1528 |
| children | 5f7e08d29d9f |
| files | lisp/ChangeLog lisp/term/xterm.el |
| diffstat | 2 files changed, 16 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Sep 14 16:54:16 2007 +0000 +++ b/lisp/ChangeLog Fri Sep 14 22:59:16 2007 +0000 @@ -1,3 +1,7 @@ +2007-09-14 Dan Nicolaescu <dann@ics.uci.edu> + + * term/xterm.el (terminal-init-xterm): Add C-M- bindings. + 2007-09-14 Stefan Monnier <monnier@iro.umontreal.ca> * vc-mtn.el: New file.
--- a/lisp/term/xterm.el Fri Sep 14 16:54:16 2007 +0000 +++ b/lisp/term/xterm.el Fri Sep 14 22:59:16 2007 +0000 @@ -217,6 +217,13 @@ (define-key map "\e[1;6F" [C-S-end]) (define-key map "\e[1;6H" [C-S-home]) + (define-key map "\e[1;7A" [C-M-up]) + (define-key map "\e[1;7B" [C-M-down]) + (define-key map "\e[1;7C" [C-M-right]) + (define-key map "\e[1;7D" [C-M-left]) + (define-key map "\e[1;7F" [C-M-end]) + (define-key map "\e[1;7H" [C-M-home]) + (define-key map "\e[1;8A" [C-M-S-up]) (define-key map "\e[1;8B" [C-M-S-down]) (define-key map "\e[1;8C" [C-M-S-right]) @@ -256,6 +263,11 @@ (define-key map "\e[5;6~" [C-S-prior]) (define-key map "\e[6;6~" [C-S-next]) + (define-key map "\e[2;7~" [C-M-insert]) + (define-key map "\e[3;7~" [C-M-delete]) + (define-key map "\e[5;7~" [C-M-prior]) + (define-key map "\e[6;7~" [C-M-next]) + (define-key map "\e[2;8~" [C-M-S-insert]) (define-key map "\e[3;8~" [C-M-S-delete]) (define-key map "\e[5;8~" [C-M-S-prior])