# HG changeset patch # User Dan Nicolaescu # Date 1157388575 0 # Node ID 88c753c19400c2c71dfaa2a1e48d8c040ac54e92 # Parent 617312125cd641d2cf5dbae5899420884a08ea6f (terminal-init-xterm): Add C-M- bindings. diff -r 617312125cd6 -r 88c753c19400 lisp/ChangeLog --- a/lisp/ChangeLog Mon Sep 04 15:08:13 2006 +0000 +++ b/lisp/ChangeLog Mon Sep 04 16:49:35 2006 +0000 @@ -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 -r 617312125cd6 -r 88c753c19400 lisp/term/xterm.el --- a/lisp/term/xterm.el Mon Sep 04 15:08:13 2006 +0000 +++ b/lisp/term/xterm.el Mon Sep 04 16:49:35 2006 +0000 @@ -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;13;9~" [(C-M-tab)]) + (define-key map "\e[27;13;13~" [(C-M-return)]) - (define-key map "\e[27;2;9~" [S-tab]) - (define-key map "\e[27;2;13~" [S-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;6;9~" [(C-S-tab)]) + (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;13;46~" [?\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])