From e1b19750b67c2aeaeebf0b950406fc851d7de806 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 14 Sep 2007 02:09:19 +0000 Subject: [PATCH] (xterm-function-map): Add C-M- bindings. --- lisp/ChangeLog | 4 ++++ lisp/term/xterm.el | 12 ++++++++++++ 2 files changed, 16 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 797aa8c1169..66552fd5409 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-09-14 Dan Nicolaescu + + * term/xterm.el (xterm-function-map): Add C-M- bindings. + 2007-09-13 Sascha Wilde (tiny change) * play/bubbles.el (bubbles--initialize-images): Fix bug: 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]) -- 2.39.2