Mercurial > emacs

comparison lisp/term/xterm.el @ 73997:0ef65601533e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(terminal-init-xterm): Add more key bindings.
author Andreas Schwab <schwab@suse.de>
date Tue, 14 Nov 2006 11:26:07 +0000
parents 78baf6b1169a
children f7702c5f335d c71725faff1a dbe3f29e61d6
comparison
equal deleted inserted replaced
73996:80280c79d943 73997:0ef65601533e
42 ;; function keys F13->F60 from the termcap/terminfo information. On 42 ;; function keys F13->F60 from the termcap/terminfo information. On
43 ;; a PC-style keyboard these keys correspond to 43 ;; a PC-style keyboard these keys correspond to
44 ;; MODIFIER-FUNCTION_KEY, where modifier is S-, C, A-, C-S-. The 44 ;; MODIFIER-FUNCTION_KEY, where modifier is S-, C, A-, C-S-. The
45 ;; code here subsitutes the corresponding defintions in 45 ;; code here subsitutes the corresponding defintions in
46 ;; function-key-map. This substitution is needed because if a key 46 ;; function-key-map. This substitution is needed because if a key
47 ;; definition if found in function-key-map, there are no further 47 ;; definition is found in function-key-map, there are no further
48 ;; lookups in other keymaps. 48 ;; lookups in other keymaps.
49 (substitute-key-definition [f13] [S-f1] function-key-map) 49 (substitute-key-definition [f13] [S-f1] function-key-map)
50 (substitute-key-definition [f14] [S-f2] function-key-map) 50 (substitute-key-definition [f14] [S-f2] function-key-map)
51 (substitute-key-definition [f15] [S-f3] function-key-map) 51 (substitute-key-definition [f15] [S-f3] function-key-map)
52 (substitute-key-definition [f16] [S-f4] function-key-map) 52 (substitute-key-definition [f16] [S-f4] function-key-map)
115 115
116 (define-key map "\eO2P" [S-f1]) 116 (define-key map "\eO2P" [S-f1])
117 (define-key map "\eO2Q" [S-f2]) 117 (define-key map "\eO2Q" [S-f2])
118 (define-key map "\eO2R" [S-f3]) 118 (define-key map "\eO2R" [S-f3])
119 (define-key map "\eO2S" [S-f4]) 119 (define-key map "\eO2S" [S-f4])
120 (define-key map "\e[1;2P" [S-f1])
121 (define-key map "\e[1;2Q" [S-f2])
122 (define-key map "\e[1;2R" [S-f3])
123 (define-key map "\e[1;2S" [S-f4])
120 (define-key map "\e[15;2~" [S-f5]) 124 (define-key map "\e[15;2~" [S-f5])
121 (define-key map "\e[17;2~" [S-f6]) 125 (define-key map "\e[17;2~" [S-f6])
122 (define-key map "\e[18;2~" [S-f7]) 126 (define-key map "\e[18;2~" [S-f7])
123 (define-key map "\e[19;2~" [S-f8]) 127 (define-key map "\e[19;2~" [S-f8])
124 (define-key map "\e[20;2~" [S-f9]) 128 (define-key map "\e[20;2~" [S-f9])