(terminal-init-xterm): Fix bindings for C-tab,

S-tab and C-S-tab.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6babbfc4739..3869f598f65 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 3504986405e..7622f23752b 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -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-.])