(terminal-init-xterm): Add more key bindings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7437f4aed990c781c5a5c073ddeb023c7896a55d..e4179428136a944a81d02c49d1b541d0eef00d81 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-05-08  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * term/xterm.el (terminal-init-xterm): Add more key bindings.
+
 2006-05-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * mwheel.el (mwheel-scroll): Make sure that when scrolling multiple

diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 9cb7253b6420955ece3f431d4f0a89fa417697e1..9ce9f34da9661d8ffb3fb6838197cba5a1b431d3 100644 (file)
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -227,6 +227,14 @@
 
       (define-key map "\e[4~" [select])
       (define-key map "\e[29~" [print])
+      
+      ;; These keys will be available xterm starting probably from
+      ;; version 214.
+      (define-key map "\e[27;5;8~"  [(control ?\t)])
+      (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 ?\\)])
 
       ;; Other versions of xterm might emit these.
       (define-key map "\e[A" [up])