# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1154025083 0
# Node ID 947c480fb7e0f39425869347a92934f003660348
# Parent  2824d0383afd718681aec24d4ef568ea439fb504
(terminal-init-xterm): Fix bindings for C-tab,
S-tab and C-S-tab.

diff -r 2824d0383afd -r 947c480fb7e0 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jul 27 12:18:03 2006 +0000
+++ b/lisp/ChangeLog	Thu Jul 27 18:31:23 2006 +0000
@@ -1,3 +1,8 @@
+2006-07-27  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* term/xterm.el (terminal-init-xterm): Fix bindings for C-tab,
+	S-tab and C-S-tab.
+
 2006-07-28  Nick Roberts  <nickrob@snap.net.nz>
 
 	* progmodes/which-func.el (which-function): Fix documentation/
diff -r 2824d0383afd -r 947c480fb7e0 lisp/term/xterm.el
--- a/lisp/term/xterm.el	Thu Jul 27 12:18:03 2006 +0000
+++ b/lisp/term/xterm.el	Thu Jul 27 18:31:23 2006 +0000
@@ -230,17 +230,17 @@
       
       ;; These keys are available in xterm starting from version 214
       ;; if the modifyOtherKeys resource is set to 1.
-      (define-key map "\e[27;5;9~"  [?\C-\t])
+      (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-\t])
+      (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-\t])
+      (define-key map "\e[27;6;9~"  [(C-S-tab)])
 
       (define-key map "\e[27;13;46~" [?\C-\M-.])