diff lisp/term/xterm.el @ 72061:c6bef0753a98

(terminal-init-xterm): Fix key bindings syntax. Bind S-return, C-M-., C-TAB, S-TAB and C-S-TAB.

--- a/lisp/term/xterm.el	Fri Jul 21 17:28:23 2006 +0000
+++ b/lisp/term/xterm.el	Fri Jul 21 17:36:10 2006 +0000
@@ -229,13 +229,21 @@
       (define-key map "\e[29~" [print])
       
       ;; These keys are available in xterm starting from version 214
-      ;; if the modifyOtherKeys resource is set.
-      (define-key map "\e[27;5;9~"  [(control ?\t)])
+      ;; if the modifyOtherKeys resource is set to 1.
+      (define-key map "\e[27;5;9~"  [?\C-\t])
       (define-key map "\e[27;5;13~" [C-return])
-      (define-key map "\e[27;5;44~" [(control ?\,)])
-      (define-key map "\e[27;5;46~" [(control ?\.)])
-      (define-key map "\e[27;5;47~" [(control ?\/)])
-      (define-key map "\e[27;5;92~" [(control ?\\)])
+      (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-\t])
+      (define-key map "\e[27;2;13~" [S-return])
+
+      (define-key map "\e[27;6;9~"  [?\C-\S-\t])
+
+      (define-key map "\e[27;13;46~" [?\C-\M-.])
+
 
       ;; Other versions of xterm might emit these.
       (define-key map "\e[A" [up])