From: Andreas Schwab Date: Tue, 14 Nov 2006 11:26:20 +0000 (+0000) Subject: (terminal-init-xterm): Add more key bindings. X-Git-Tag: emacs-pretest-22.0.91~64 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5efe831f08457d0eb4d3ac0f6d5b719c14e61f30;p=emacs.git (terminal-init-xterm): Add more key bindings. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bb1297f653c..5b7814d2c49 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-11-14 Andreas Schwab + + * term/xterm.el (terminal-init-xterm): Add more key bindings. + 2006-11-13 Kim F. Storm * 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 018841fe168..fac25d86699 100644 --- 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])