From bb68962b5325666a77cb87c7143bc5c81598728e Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 4 Sep 2006 16:49:35 +0000 Subject: [PATCH] (terminal-init-xterm): Add C-M- bindings. --- lisp/ChangeLog | 4 +++ lisp/term/xterm.el | 64 ++++++++++++++++++++++++++++++++++------------ 2 files changed, 51 insertions(+), 17 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8f300c48703..00a8d472553 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-09-04 Dan Nicolaescu + + * term/xterm.el (terminal-init-xterm): Add C-M- bindings. + 2006-09-04 Richard Stallman * simple.el (kill-region): Explicitly test there is a region. diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 9ea51a2f774..73d26b56b74 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -231,17 +231,20 @@ ;; These keys are available in xterm starting from version 216 ;; if the modifyOtherKeys resource is set to 1. + (define-key map "\e[27;5;9~" [C-tab]) + (define-key map "\e[27;5;13~" [C-return]) (define-key map "\e[27;5;39~" [?\C-\']) + (define-key map "\e[27;5;44~" [?\C-,]) (define-key map "\e[27;5;45~" [?\C--]) - + (define-key map "\e[27;5;46~" [?\C-.]) + (define-key map "\e[27;5;47~" [?\C-/]) (define-key map "\e[27;5;48~" [?\C-0]) (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-\\]) (define-key map "\e[27;6;33~" [?\C-!]) (define-key map "\e[27;6;34~" [?\C-\"]) @@ -253,26 +256,53 @@ (define-key map "\e[27;6;41~" [?\C-)]) (define-key map "\e[27;6;42~" [?\C-*]) (define-key map "\e[27;6;43~" [?\C-+]) - (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;5;9~" [C-tab]) - (define-key map "\e[27;5;13~" [C-return]) - (define-key map "\e[27;5;44~" [?\C-,]) - (define-key map "\e[27;5;46~" [?\C-.]) - (define-key map "\e[27;5;47~" [?\C-/]) - (define-key map "\e[27;5;92~" [?\C-\\]) - - (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;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-,]) + (define-key map "\e[27;13;45~" [?\C-\M--]) (define-key map "\e[27;13;46~" [?\C-\M-.]) - + (define-key map "\e[27;13;47~" [?\C-\M-/]) + (define-key map "\e[27;13;48~" [?\C-\M-0]) + (define-key map "\e[27;13;49~" [?\C-\M-1]) + (define-key map "\e[27;13;50~" [?\C-\M-2]) + (define-key map "\e[27;13;51~" [?\C-\M-3]) + (define-key map "\e[27;13;52~" [?\C-\M-4]) + (define-key map "\e[27;13;53~" [?\C-\M-5]) + (define-key map "\e[27;13;54~" [?\C-\M-6]) + (define-key map "\e[27;13;55~" [?\C-\M-7]) + (define-key map "\e[27;13;56~" [?\C-\M-8]) + (define-key map "\e[27;13;57~" [?\C-\M-9]) + (define-key map "\e[27;13;59~" [?\C-\M-\;]) + (define-key map "\e[27;13;61~" [?\C-\M-=]) + (define-key map "\e[27;13;92~" [?\C-\M-\\]) + + (define-key map "\e[27;14;33~" [?\C-\M-!]) + (define-key map "\e[27;14;34~" [?\C-\M-\"]) + (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;40~" [?\C-\M-(]) + (define-key map "\e[27;14;41~" [?\C-\M-)]) + (define-key map "\e[27;14;42~" [?\C-\M-*]) + (define-key map "\e[27;14;43~" [?\C-\M-+]) + (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;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)]) ;; Other versions of xterm might emit these. (define-key map "\e[A" [up]) -- 2.39.2