From da600aad2b78301836086568c4cb16a907ccf00e Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 14 Sep 2007 22:58:55 +0000 Subject: [PATCH] (xterm-function-map): Replace bindings that were deleted by the merge. --- lisp/ChangeLog | 3 ++- lisp/term/xterm.el | 14 ++++++++++++++ 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bd92767ef04..62e9d912c14 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,7 @@ 2007-09-14 Dan Nicolaescu - * term/xterm.el (xterm-function-map): Delete duplicated entries. + * term/xterm.el (xterm-function-map): Replace bindings that were + deleted by the merge. 2007-09-14 Ulf Jasper diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 892759f165a..8e803a4534b 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -352,6 +352,20 @@ (define-key map "\e[D" [left]) (define-key map "\e[1~" [home]) + (define-key map "\eO2A" [S-up]) + (define-key map "\eO2B" [S-down]) + (define-key map "\eO2C" [S-right]) + (define-key map "\eO2D" [S-left]) + (define-key map "\eO2F" [S-end]) + (define-key map "\eO2H" [S-home]) + + (define-key map "\eO5A" [C-up]) + (define-key map "\eO5B" [C-down]) + (define-key map "\eO5C" [C-right]) + (define-key map "\eO5D" [C-left]) + (define-key map "\eO5F" [C-end]) + (define-key map "\eO5H" [C-home]) + (define-key map "\e[11~" [f1]) (define-key map "\e[12~" [f2]) (define-key map "\e[13~" [f3]) -- 2.39.5