(xterm-function-map): Delete duplicated entries.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5c33c9c4db4568fd111b3d96b082c02ba253c934..bd92767ef04019bf3533e9e6b7ed8dd8cfcc30e2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-14  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * term/xterm.el (xterm-function-map): Delete duplicated entries.
+
 2007-09-14  Ulf Jasper  <ulf.jasper@web.de>
 
        * play/bubbles.el (bubbles-version): Bump value to "0.5".

diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 4c459a4b0527020b4c3b64b08f10c3bd4b927482..892759f165aa6cbdb63da22a8bc17786756d0d5e 100644 (file)
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -352,20 +352,6 @@
     (define-key map "\e[D" [left])
     (define-key map "\e[1~" [home])
 
-    (define-key map "\e[1;2A" [S-up])
-    (define-key map "\e[1;2B" [S-down])
-    (define-key map "\e[1;2C" [S-right])
-    (define-key map "\e[1;2D" [S-left])
-    (define-key map "\e[1;2F" [S-end])
-    (define-key map "\e[1;2H" [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])
-    (define-key map "\e[1;5D" [C-left])
-    (define-key map "\e[1;5F" [C-end])
-    (define-key map "\e[1;5H" [C-home])
-
     (define-key map "\e[11~" [f1])
     (define-key map "\e[12~" [f2])
     (define-key map "\e[13~" [f3])