From 652bf3a19f5b1c8b72a0053b4d8fcb7879054285 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Tue, 5 Sep 2006 06:59:53 +0000 Subject: [PATCH] (terminal-init-xterm): Add more C-M- bindings. --- lisp/ChangeLog | 4 ++++ lisp/term/xterm.el | 40 ++++++++++++++++++++++++++++++++++++++++ 2 files changed, 44 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b2575f87122..be5a4d872de 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-09-04 Dan Nicolaescu + + * term/xterm.el (terminal-init-xterm): Add more C-M- bindings. + 2006-09-05 Nick Roberts * progmodes/gdb-ui.el (gdb-var-list-children-regexp) diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 73d26b56b74..018841fe168 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -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]) -- 2.39.2