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

S-tab and C-S-tab.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6babbfc473941ef2cb03a8f098a1b0b1d17770ec..3869f598f6525d11b94f26a6a46c0ee0765de756 100644 (file)
--- 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 3504986405e88c2fea4ba20b68f724a3ea75edf6..7622f23752b709c494d1bece59277971e3f346d6 100644 (file)
--- 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-.])