From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 14 Sep 2007 22:58:55 +0000 (+0000)
Subject: (xterm-function-map): Replace bindings that were
X-Git-Tag: emacs-pretest-23.0.90~10896
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da600aad2b78301836086568c4cb16a907ccf00e;p=emacs.git

(xterm-function-map): Replace bindings that were
deleted by the merge.
---

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  <dann@ics.uci.edu>
 
-	* 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  <ulf.jasper@web.de>
 
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])