Mercurial > emacs
changeset 72652:78baf6b1169a
(terminal-init-xterm): Add more C-M- bindings.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Tue, 05 Sep 2006 06:59:53 +0000 |
| parents | 172b33b2d7a8 |
| children | 87c011891481 |
| files | lisp/ChangeLog lisp/term/xterm.el |
| diffstat | 2 files changed, 44 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Sep 05 03:41:24 2006 +0000 +++ b/lisp/ChangeLog Tue Sep 05 06:59:53 2006 +0000 @@ -1,3 +1,7 @@ +2006-09-04 Dan Nicolaescu <dann@ics.uci.edu> + + * term/xterm.el (terminal-init-xterm): Add more C-M- bindings. + 2006-09-05 Nick Roberts <nickrob@snap.net.nz> * progmodes/gdb-ui.el (gdb-var-list-children-regexp)
--- a/lisp/term/xterm.el Tue Sep 05 03:41:24 2006 +0000 +++ b/lisp/term/xterm.el Tue Sep 05 06:59:53 2006 +0000 @@ -261,6 +261,9 @@ (define-key map "\e[27;6;62~" [?\C->]) (define-key map "\e[27;6;63~" [(C-\?)]) + ;; 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)]) @@ -298,6 +301,43 @@ (define-key map "\e[27;14;62~" [?\C-\M->]) (define-key map "\e[27;14;63~" [(C-M-\?)]) + (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;39~" [?\C-\M-\']) + (define-key map "\e[27;7;44~" [?\C-\M-,]) + (define-key map "\e[27;7;45~" [?\C-\M--]) + (define-key map "\e[27;7;46~" [?\C-\M-.]) + (define-key map "\e[27;7;47~" [?\C-\M-/]) + (define-key map "\e[27;7;48~" [?\C-\M-0]) + (define-key map "\e[27;7;49~" [?\C-\M-1]) + (define-key map "\e[27;7;50~" [?\C-\M-2]) + (define-key map "\e[27;7;51~" [?\C-\M-3]) + (define-key map "\e[27;7;52~" [?\C-\M-4]) + (define-key map "\e[27;7;53~" [?\C-\M-5]) + (define-key map "\e[27;7;54~" [?\C-\M-6]) + (define-key map "\e[27;7;55~" [?\C-\M-7]) + (define-key map "\e[27;7;56~" [?\C-\M-8]) + (define-key map "\e[27;7;57~" [?\C-\M-9]) + (define-key map "\e[27;7;59~" [?\C-\M-\;]) + (define-key map "\e[27;7;61~" [?\C-\M-=]) + (define-key map "\e[27;7;92~" [?\C-\M-\\]) + + (define-key map "\e[27;8;33~" [?\C-\M-!]) + (define-key map "\e[27;8;34~" [?\C-\M-\"]) + (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;40~" [?\C-\M-(]) + (define-key map "\e[27;8;41~" [?\C-\M-)]) + (define-key map "\e[27;8;42~" [?\C-\M-*]) + (define-key map "\e[27;8;43~" [?\C-\M-+]) + (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;2;9~" [S-tab]) (define-key map "\e[27;2;13~" [S-return])