[Emacs-diffs] Changes to emacs/lisp/term/xterm.el, v [EMACS_22_BASE]

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Dan Nicolaescu <dann>   07/09/12 19:02:14

Index: term/xterm.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/xterm.el,v
retrieving revision 1.38.2.2
retrieving revision 1.38.2.3
diff -u -b -r1.38.2.2 -r1.38.2.3
--- term/xterm.el       25 Jul 2007 04:23:07 -0000      1.38.2.2
+++ term/xterm.el       12 Sep 2007 19:02:11 -0000      1.38.2.3
@@ -169,6 +169,19 @@
       (define-key map "\e[23;3~" [A-f11])
       (define-key map "\e[24;3~" [A-f12])
 
+      (define-key map "\eO4P" [M-S-f1])
+      (define-key map "\eO4Q" [M-S-f2])
+      (define-key map "\eO4R" [M-S-f3])
+      (define-key map "\eO4S" [M-S-f4])
+      (define-key map "\e[15;4~" [M-S-f5])
+      (define-key map "\e[17;4~" [M-S-f6])
+      (define-key map "\e[18;4~" [M-S-f7])
+      (define-key map "\e[19;4~" [M-S-f8])
+      (define-key map "\e[20;4~" [M-S-f9])
+      (define-key map "\e[21;4~" [M-S-f10])
+      (define-key map "\e[23;4~" [M-S-f11])
+      (define-key map "\e[24;4~" [M-S-f12])
+
       (define-key map "\eOA" [up])
       (define-key map "\eOB" [down])
       (define-key map "\eOC" [right])
@@ -183,6 +196,13 @@
       (define-key map "\e[1;2F" [S-end])
       (define-key map "\e[1;2H" [S-home])
 
+      (define-key map "\e[1;4A" [M-S-up])
+      (define-key map "\e[1;4B" [M-S-down])
+      (define-key map "\e[1;4C" [M-S-right])
+      (define-key map "\e[1;4D" [M-S-left])
+      (define-key map "\e[1;4F" [M-S-end])
+      (define-key map "\e[1;4H" [M-S-home])
+
       (define-key map "\e[1;5A" [C-up])
       (define-key map "\e[1;5B" [C-down])
       (define-key map "\e[1;5C" [C-right])
@@ -197,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;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])
+      (define-key map "\e[1;8D" [C-M-S-left])
+      (define-key map "\e[1;8F" [C-M-S-end])
+      (define-key map "\e[1;8H" [C-M-S-home])
+
       (define-key map "\e[1;3A" [A-up])
       (define-key map "\e[1;3B" [A-down])
       (define-key map "\e[1;3C" [A-right])
@@ -214,6 +241,11 @@
       (define-key map "\e[5;2~" [S-prior])
       (define-key map "\e[6;2~" [S-next])
 
+      (define-key map "\e[2;4~" [M-S-insert])
+      (define-key map "\e[3;4~" [M-S-delete])
+      (define-key map "\e[5;4~" [M-S-prior])
+      (define-key map "\e[6;4~" [M-S-next])
+
       (define-key map "\e[2;5~" [C-insert])
       (define-key map "\e[3;5~" [C-delete])
       (define-key map "\e[5;5~" [C-prior])
@@ -224,6 +256,11 @@
       (define-key map "\e[5;6~" [C-S-prior])
       (define-key map "\e[6;6~" [C-S-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])
+      (define-key map "\e[6;8~" [C-M-S-next])
+
       (define-key map "\e[2;3~" [A-insert])
       (define-key map "\e[3;3~" [A-delete])
       (define-key map "\e[5;3~" [A-prior])