diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-04-08 14:33:32 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-04-08 14:33:32 +0000 |
| commit | a71f4eeb3a682345abaa910b893a7d88416443f9 (patch) | |
| tree | 9e65c8883d3d1ce9dfaa95e29135f4c4681bd3a9 /lisp | |
| parent | ad9044d3f24be1f2d9e1950d87858b0686e0e3e4 (diff) | |
| download | emacs-a71f4eeb3a682345abaa910b893a7d88416443f9.tar.gz | |
(terminal-init-xterm): Fix key definitions. Add binding for C-M-SPC.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/term/xterm.el | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 2b4cf90ad25..297ee7df5cd 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -262,7 +262,7 @@ (define-key map "\e[27;5;49~" [?\C-1]) ;; Not all C-DIGIT keys have a distinct binding. (define-key map "\e[27;5;57~" [?\C-9]) - (define-key map "\e[27;5;59~" [(C-\;)]) + (define-key map "\e[27;5;59~" [?\C-\;]) (define-key map "\e[27;5;61~" [?\C-=]) (define-key map "\e[27;5;92~" [?\C-\\]) @@ -271,7 +271,7 @@ (define-key map "\e[27;6;35~" [?\C-#]) (define-key map "\e[27;6;36~" [?\C-$]) (define-key map "\e[27;6;37~" [?\C-%]) - (define-key map "\e[27;6;38~" [(C-&)]) + (define-key map "\e[27;6;38~" [?\C-&]) (define-key map "\e[27;6;40~" [?\C-(]) (define-key map "\e[27;6;41~" [?\C-)]) (define-key map "\e[27;6;42~" [?\C-*]) @@ -279,13 +279,13 @@ (define-key map "\e[27;6;58~" [?\C-:]) (define-key map "\e[27;6;60~" [?\C-<]) (define-key map "\e[27;6;62~" [?\C->]) - (define-key map "\e[27;6;63~" [(C-\?)]) + (define-key map "\e[27;6;63~" [(control ??)]) ;; These are the strings emitted for various C-M- combinations ;; for keyboards that the Meta and Alt modifiers are on the same ;; key (usually labeled "Alt"). - (define-key map "\e[27;13;9~" [(C-M-tab)]) - (define-key map "\e[27;13;13~" [(C-M-return)]) + (define-key map "\e[27;13;9~" [C-M-tab]) + (define-key map "\e[27;13;13~" [C-M-return]) (define-key map "\e[27;13;39~" [?\C-\M-\']) (define-key map "\e[27;13;44~" [?\C-\M-,]) @@ -311,7 +311,7 @@ (define-key map "\e[27;14;35~" [?\C-\M-#]) (define-key map "\e[27;14;36~" [?\C-\M-$]) (define-key map "\e[27;14;37~" [?\C-\M-%]) - (define-key map "\e[27;14;38~" [(C-M-&)]) + (define-key map "\e[27;14;38~" [?\C-\M-&]) (define-key map "\e[27;14;40~" [?\C-\M-(]) (define-key map "\e[27;14;41~" [?\C-\M-)]) (define-key map "\e[27;14;42~" [?\C-\M-*]) @@ -319,11 +319,12 @@ (define-key map "\e[27;14;58~" [?\C-\M-:]) (define-key map "\e[27;14;60~" [?\C-\M-<]) (define-key map "\e[27;14;62~" [?\C-\M->]) - (define-key map "\e[27;14;63~" [(C-M-\?)]) + (define-key map "\e[27;14;63~" [(control meta ??)]) - (define-key map "\e[27;7;9~" [(C-M-tab)]) - (define-key map "\e[27;7;13~" [(C-M-return)]) + (define-key map "\e[27;7;9~" [C-M-tab]) + (define-key map "\e[27;7;13~" [C-M-return]) + (define-key map "\e[27;7;32~" [?\C-\M-\s]) (define-key map "\e[27;7;39~" [?\C-\M-\']) (define-key map "\e[27;7;44~" [?\C-\M-,]) (define-key map "\e[27;7;45~" [?\C-\M--]) @@ -348,7 +349,7 @@ (define-key map "\e[27;8;35~" [?\C-\M-#]) (define-key map "\e[27;8;36~" [?\C-\M-$]) (define-key map "\e[27;8;37~" [?\C-\M-%]) - (define-key map "\e[27;8;38~" [(C-M-&)]) + (define-key map "\e[27;8;38~" [?\C-\M-&]) (define-key map "\e[27;8;40~" [?\C-\M-(]) (define-key map "\e[27;8;41~" [?\C-\M-)]) (define-key map "\e[27;8;42~" [?\C-\M-*]) @@ -356,13 +357,13 @@ (define-key map "\e[27;8;58~" [?\C-\M-:]) (define-key map "\e[27;8;60~" [?\C-\M-<]) (define-key map "\e[27;8;62~" [?\C-\M->]) - (define-key map "\e[27;8;63~" [(C-M-\?)]) + (define-key map "\e[27;8;63~" [(control meta ??)]) (define-key map "\e[27;2;9~" [S-tab]) (define-key map "\e[27;2;13~" [S-return]) - (define-key map "\e[27;6;9~" [(C-S-tab)]) - (define-key map "\e[27;6;13~" [(C-S-return)]) + (define-key map "\e[27;6;9~" [C-S-tab]) + (define-key map "\e[27;6;13~" [C-S-return]) ;; Other versions of xterm might emit these. (define-key map "\e[A" [up]) |