# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1147130494 0
# Node ID 1a9cbaf1fc03031a710b30ff2cb79bb9baeb097e
# Parent  c8171c0fa382865912ead8b41154032a1e8d6d7e
(terminal-init-xterm): Add more key bindings.

diff -r c8171c0fa382 -r 1a9cbaf1fc03 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon May 08 15:14:26 2006 +0000
+++ b/lisp/ChangeLog	Mon May 08 23:21:34 2006 +0000
@@ -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 -r c8171c0fa382 -r 1a9cbaf1fc03 lisp/term/xterm.el
--- a/lisp/term/xterm.el	Mon May 08 15:14:26 2006 +0000
+++ b/lisp/term/xterm.el	Mon May 08 23:21:34 2006 +0000
@@ -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])