# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1163503567 0
# Node ID 0ef65601533eefe7e1f3f36a89be1cea82091685
# Parent  80280c79d943cae742453ac9e63a5ba2fba5ba07
(terminal-init-xterm): Add more key bindings.

diff -r 80280c79d943 -r 0ef65601533e lisp/term/xterm.el
--- a/lisp/term/xterm.el	Tue Nov 14 10:41:04 2006 +0000
+++ b/lisp/term/xterm.el	Tue Nov 14 11:26:07 2006 +0000
@@ -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])