# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1189810756 0
# Node ID 9d6c14c53c3d347ed0c10979b7289ecb0854b9e0
# Parent  76d9105e1528e3a855f56d5d14a2750b666a27de
(terminal-init-xterm): Add C-M- bindings.

diff -r 76d9105e1528 -r 9d6c14c53c3d lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 14 16:54:16 2007 +0000
+++ b/lisp/ChangeLog	Fri Sep 14 22:59:16 2007 +0000
@@ -1,3 +1,7 @@
+2007-09-14  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* term/xterm.el (terminal-init-xterm): Add C-M- bindings.
+
 2007-09-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* vc-mtn.el: New file.
diff -r 76d9105e1528 -r 9d6c14c53c3d lisp/term/xterm.el
--- a/lisp/term/xterm.el	Fri Sep 14 16:54:16 2007 +0000
+++ b/lisp/term/xterm.el	Fri Sep 14 22:59:16 2007 +0000
@@ -217,6 +217,13 @@
       (define-key map "\e[1;6F" [C-S-end])
       (define-key map "\e[1;6H" [C-S-home])
 
+      (define-key map "\e[1;7A" [C-M-up])
+      (define-key map "\e[1;7B" [C-M-down])
+      (define-key map "\e[1;7C" [C-M-right])
+      (define-key map "\e[1;7D" [C-M-left])
+      (define-key map "\e[1;7F" [C-M-end])
+      (define-key map "\e[1;7H" [C-M-home])
+
       (define-key map "\e[1;8A" [C-M-S-up])
       (define-key map "\e[1;8B" [C-M-S-down])
       (define-key map "\e[1;8C" [C-M-S-right])
@@ -256,6 +263,11 @@
       (define-key map "\e[5;6~" [C-S-prior])
       (define-key map "\e[6;6~" [C-S-next])
 
+      (define-key map "\e[2;7~" [C-M-insert])
+      (define-key map "\e[3;7~" [C-M-delete])
+      (define-key map "\e[5;7~" [C-M-prior])
+      (define-key map "\e[6;7~" [C-M-next])
+
       (define-key map "\e[2;8~" [C-M-S-insert])
       (define-key map "\e[3;8~" [C-M-S-delete])
       (define-key map "\e[5;8~" [C-M-S-prior])