(terminal-init-xterm): Fix key bindings

syntax. Bind S-return, C-M-., C-TAB, S-TAB and C-S-TAB.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a75f47677b96de9571cf77e8dbfa9c426e642961..538a4ce88c35cfc87eccfeb951640907fedf0dbc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 0da804a56afa5b53ccf85bf51dac1b60962d3864..3504986405e88c2fea4ba20b68f724a3ea75edf6 100644 (file)
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -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])