Mercurial > emacs
changeset 78765:a15fded14ec7
(terminal-init-xterm): Add bindings for M-S- and
C-M-S- keys.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 12 Sep 2007 19:02:12 +0000 |
| parents | 39abfdc0bb1d |
| children | 8b1569975c4d |
| files | lisp/ChangeLog lisp/term/xterm.el |
| diffstat | 2 files changed, 42 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Sep 12 17:19:45 2007 +0000 +++ b/lisp/ChangeLog Wed Sep 12 19:02:12 2007 +0000 @@ -1,3 +1,8 @@ +2007-09-12 Dan Nicolaescu <dann@ics.uci.edu> + + * term/xterm.el (terminal-init-xterm): Add bindings for M-S- and + C-M-S- keys. + 2007-09-12 Martin Rudalics <rudalics@gmx.at> * dired.el (dired-warning): Inherit from font-lock-warning-face to
--- a/lisp/term/xterm.el Wed Sep 12 17:19:45 2007 +0000 +++ b/lisp/term/xterm.el Wed Sep 12 19:02:12 2007 +0000 @@ -169,6 +169,19 @@ (define-key map "\e[23;3~" [A-f11]) (define-key map "\e[24;3~" [A-f12]) + (define-key map "\eO4P" [M-S-f1]) + (define-key map "\eO4Q" [M-S-f2]) + (define-key map "\eO4R" [M-S-f3]) + (define-key map "\eO4S" [M-S-f4]) + (define-key map "\e[15;4~" [M-S-f5]) + (define-key map "\e[17;4~" [M-S-f6]) + (define-key map "\e[18;4~" [M-S-f7]) + (define-key map "\e[19;4~" [M-S-f8]) + (define-key map "\e[20;4~" [M-S-f9]) + (define-key map "\e[21;4~" [M-S-f10]) + (define-key map "\e[23;4~" [M-S-f11]) + (define-key map "\e[24;4~" [M-S-f12]) + (define-key map "\eOA" [up]) (define-key map "\eOB" [down]) (define-key map "\eOC" [right]) @@ -183,6 +196,13 @@ (define-key map "\e[1;2F" [S-end]) (define-key map "\e[1;2H" [S-home]) + (define-key map "\e[1;4A" [M-S-up]) + (define-key map "\e[1;4B" [M-S-down]) + (define-key map "\e[1;4C" [M-S-right]) + (define-key map "\e[1;4D" [M-S-left]) + (define-key map "\e[1;4F" [M-S-end]) + (define-key map "\e[1;4H" [M-S-home]) + (define-key map "\e[1;5A" [C-up]) (define-key map "\e[1;5B" [C-down]) (define-key map "\e[1;5C" [C-right]) @@ -197,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;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]) + (define-key map "\e[1;8D" [C-M-S-left]) + (define-key map "\e[1;8F" [C-M-S-end]) + (define-key map "\e[1;8H" [C-M-S-home]) + (define-key map "\e[1;3A" [A-up]) (define-key map "\e[1;3B" [A-down]) (define-key map "\e[1;3C" [A-right]) @@ -214,6 +241,11 @@ (define-key map "\e[5;2~" [S-prior]) (define-key map "\e[6;2~" [S-next]) + (define-key map "\e[2;4~" [M-S-insert]) + (define-key map "\e[3;4~" [M-S-delete]) + (define-key map "\e[5;4~" [M-S-prior]) + (define-key map "\e[6;4~" [M-S-next]) + (define-key map "\e[2;5~" [C-insert]) (define-key map "\e[3;5~" [C-delete]) (define-key map "\e[5;5~" [C-prior]) @@ -224,6 +256,11 @@ (define-key map "\e[5;6~" [C-S-prior]) (define-key map "\e[6;6~" [C-S-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]) + (define-key map "\e[6;8~" [C-M-S-next]) + (define-key map "\e[2;3~" [A-insert]) (define-key map "\e[3;3~" [A-delete]) (define-key map "\e[5;3~" [A-prior])