Mercurial > emacs
changeset 73997:0ef65601533e
(terminal-init-xterm): Add more key bindings.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Tue, 14 Nov 2006 11:26:07 +0000 |
| parents | 80280c79d943 |
| children | 28d963d6dc8e |
| files | lisp/term/xterm.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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])