changeset 84545:4abcc15327e8

(xterm-function-map): Add C-M- bindings.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 14 Sep 2007 02:09:19 +0000
parents ad1f1cc765cf
children 18b43a3dce6c
files lisp/ChangeLog lisp/term/xterm.el
diffstat 2 files changed, 16 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Sep 13 22:25:13 2007 +0000
+++ b/lisp/ChangeLog	Fri Sep 14 02:09:19 2007 +0000
@@ -1,3 +1,7 @@
+2007-09-14  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* term/xterm.el (xterm-function-map): Add C-M- bindings.
+
 2007-09-13  Sascha Wilde  <wilde@sha-bang.de>  (tiny change)
 
 	* play/bubbles.el (bubbles--initialize-images): Fix bug:
--- a/lisp/term/xterm.el	Thu Sep 13 22:25:13 2007 +0000
+++ b/lisp/term/xterm.el	Fri Sep 14 02:09:19 2007 +0000
@@ -148,6 +148,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])
@@ -187,6 +194,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])