# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1153503370 0
# Node ID c6bef0753a985bbacef6c60436ccc5f71a891837
# Parent  337f9ac874e64868ea6fe2e20b831006f95b4334
(terminal-init-xterm): Fix key bindings
syntax. Bind S-return, C-M-., C-TAB, S-TAB and C-S-TAB.

diff -r 337f9ac874e6 -r c6bef0753a98 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jul 21 17:28:23 2006 +0000
+++ b/lisp/ChangeLog	Fri Jul 21 17:36:10 2006 +0000
@@ -1,3 +1,8 @@
+2006-07-21  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* term/xterm.el (terminal-init-xterm): Fix key bindings
+	syntax. Bind S-return, C-M-., C-TAB, S-TAB and C-S-TAB.
+
 2006-07-21  Eli Zaretskii  <eliz@gnu.org>
 
 	* dos-w32.el (find-buffer-file-type-coding-system): Support calls
diff -r 337f9ac874e6 -r c6bef0753a98 lisp/term/xterm.el
--- 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])