(terminal-init-xterm): Add more key bindings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb1297f653cfbb10194dd77ce1782426718757ff..5b7814d2c496748f281bbfa255cfda2fcecabc7a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-11-14  Andreas Schwab  <schwab@suse.de>
+
+       * term/xterm.el (terminal-init-xterm): Add more key bindings.
+
 2006-11-13  Kim F. Storm  <storm@cua.dk>
 
        * ido.el (ido-copy-current-word): C-o copies region if active.

diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 018841fe16892c651f04996c2dc5a3c142baf39a..fac25d866994d3f20bd51979fc8cb90a2c27b31e 100644 (file)
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -44,7 +44,7 @@
     ;; MODIFIER-FUNCTION_KEY, where modifier is S-, C, A-, C-S-.  The
     ;; code here subsitutes the corresponding defintions in
     ;; function-key-map. This substitution is needed because if a key
-    ;; definition if found in function-key-map, there are no further
+    ;; definition is found in function-key-map, there are no further
     ;; lookups in other keymaps.
     (substitute-key-definition [f13] [S-f1] function-key-map)
     (substitute-key-definition [f14] [S-f2] function-key-map)
@@ -117,6 +117,10 @@
       (define-key map "\eO2Q" [S-f2])
       (define-key map "\eO2R" [S-f3])
       (define-key map "\eO2S" [S-f4])
+      (define-key map "\e[1;2P" [S-f1])
+      (define-key map "\e[1;2Q" [S-f2])
+      (define-key map "\e[1;2R" [S-f3])
+      (define-key map "\e[1;2S" [S-f4])
       (define-key map "\e[15;2~" [S-f5])
       (define-key map "\e[17;2~" [S-f6])
       (define-key map "\e[18;2~" [S-f7])