summaryrefslogtreecommitdiff
path: root/lisp/term
diff options
context:
space:
mode:
authorDan Nicolaescu <dann@ics.uci.edu>2007-09-14 02:09:19 +0000
committerDan Nicolaescu <dann@ics.uci.edu>2007-09-14 02:09:19 +0000
commite1b19750b67c2aeaeebf0b950406fc851d7de806 (patch)
treea2a6179f46138bfd4159ee6faac3d599fea91cc1 /lisp/term
parent09b69f0142c0e8f5edaa98a6f4f3a6f9520ba74b (diff)
downloademacs-e1b19750b67c2aeaeebf0b950406fc851d7de806.tar.gz
(xterm-function-map): Add C-M- bindings.
Diffstat (limited to 'lisp/term')
-rw-r--r--lisp/term/xterm.el12
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index c5f6ba665dd..4c459a4b052 100644
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -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])