33 |
;; better in that case to use rxvt's initializion function. |
;; better in that case to use rxvt's initializion function. |
34 |
(if (and (getenv "COLORTERM") |
(if (and (getenv "COLORTERM") |
35 |
(string-match "\\`rxvt" (getenv "COLORTERM"))) |
(string-match "\\`rxvt" (getenv "COLORTERM"))) |
36 |
(progn |
(progn |
37 |
(load "term/rxvt") |
(eval-when-compile (load "term/rxvt")) |
38 |
(terminal-init-rxvt)) |
(terminal-init-rxvt)) |
39 |
|
|
40 |
;; The terminal intialization C code file might have initialized |
;; The terminal intialization C code file might have initialized |
98 |
(substitute-key-definition [f60] [A-f12] function-key-map) |
(substitute-key-definition [f60] [A-f12] function-key-map) |
99 |
|
|
100 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
101 |
(define-key map "\e[A" [up]) |
;; xterm from X.org 6.8.2 uses these key definitions. |
102 |
(define-key map "\e[B" [down]) |
(define-key map "\eOP" [f1]) |
103 |
(define-key map "\e[C" [right]) |
(define-key map "\eOQ" [f2]) |
104 |
(define-key map "\e[D" [left]) |
(define-key map "\eOR" [f3]) |
105 |
(define-key map "\e[1~" [home]) |
(define-key map "\eOS" [f4]) |
|
(define-key map "\e[2~" [insert]) |
|
|
(define-key map "\e[3~" [delete]) |
|
|
(define-key map "\e[4~" [select]) |
|
|
(define-key map "\e[5~" [prior]) |
|
|
(define-key map "\e[6~" [next]) |
|
|
(define-key map "\e[11~" [f1]) |
|
|
(define-key map "\e[12~" [f2]) |
|
|
(define-key map "\e[13~" [f3]) |
|
|
(define-key map "\e[14~" [f4]) |
|
106 |
(define-key map "\e[15~" [f5]) |
(define-key map "\e[15~" [f5]) |
107 |
(define-key map "\e[17~" [f6]) |
(define-key map "\e[17~" [f6]) |
108 |
(define-key map "\e[18~" [f7]) |
(define-key map "\e[18~" [f7]) |
111 |
(define-key map "\e[21~" [f10]) |
(define-key map "\e[21~" [f10]) |
112 |
(define-key map "\e[23~" [f11]) |
(define-key map "\e[23~" [f11]) |
113 |
(define-key map "\e[24~" [f12]) |
(define-key map "\e[24~" [f12]) |
|
(define-key map "\e[29~" [print]) |
|
|
|
|
|
(define-key map "\eOP" [f1]) |
|
|
(define-key map "\eOQ" [f2]) |
|
|
(define-key map "\eOR" [f3]) |
|
|
(define-key map "\eOS" [f4]) |
|
114 |
|
|
115 |
(define-key map "\eO2P" [S-f1]) |
(define-key map "\eO2P" [S-f1]) |
116 |
(define-key map "\eO2Q" [S-f2]) |
(define-key map "\eO2Q" [S-f2]) |
164 |
(define-key map "\e[23;3~" [A-f11]) |
(define-key map "\e[23;3~" [A-f11]) |
165 |
(define-key map "\e[24;3~" [A-f12]) |
(define-key map "\e[24;3~" [A-f12]) |
166 |
|
|
167 |
|
(define-key map "\eOA" [up]) |
168 |
|
(define-key map "\eOB" [down]) |
169 |
|
(define-key map "\eOC" [right]) |
170 |
|
(define-key map "\eOD" [left]) |
171 |
|
(define-key map "\eOF" [end]) |
172 |
|
(define-key map "\eOH" [home]) |
173 |
|
|
174 |
(define-key map "\e[1;2A" [S-up]) |
(define-key map "\e[1;2A" [S-up]) |
175 |
(define-key map "\e[1;2B" [S-down]) |
(define-key map "\e[1;2B" [S-down]) |
176 |
(define-key map "\e[1;2C" [S-right]) |
(define-key map "\e[1;2C" [S-right]) |
199 |
(define-key map "\e[1;3F" [A-end]) |
(define-key map "\e[1;3F" [A-end]) |
200 |
(define-key map "\e[1;3H" [A-home]) |
(define-key map "\e[1;3H" [A-home]) |
201 |
|
|
202 |
|
(define-key map "\e[2~" [insert]) |
203 |
|
(define-key map "\e[3~" [delete]) |
204 |
|
(define-key map "\e[5~" [prior]) |
205 |
|
(define-key map "\e[6~" [next]) |
206 |
|
|
207 |
(define-key map "\e[2;2~" [S-insert]) |
(define-key map "\e[2;2~" [S-insert]) |
208 |
(define-key map "\e[3;2~" [S-delete]) |
(define-key map "\e[3;2~" [S-delete]) |
209 |
(define-key map "\e[5;2~" [S-prior]) |
(define-key map "\e[5;2~" [S-prior]) |
224 |
(define-key map "\e[5;3~" [A-prior]) |
(define-key map "\e[5;3~" [A-prior]) |
225 |
(define-key map "\e[6;3~" [A-next]) |
(define-key map "\e[6;3~" [A-next]) |
226 |
|
|
227 |
(define-key map "\eOA" [up]) |
(define-key map "\e[4~" [select]) |
228 |
(define-key map "\eOB" [down]) |
(define-key map "\e[29~" [print]) |
229 |
(define-key map "\eOC" [right]) |
|
230 |
(define-key map "\eOD" [left]) |
;; Other versions of xterm might emit these. |
231 |
(define-key map "\eOF" [end]) |
(define-key map "\e[A" [up]) |
232 |
(define-key map "\eOH" [home]) |
(define-key map "\e[B" [down]) |
233 |
|
(define-key map "\e[C" [right]) |
234 |
|
(define-key map "\e[D" [left]) |
235 |
|
(define-key map "\e[1~" [home]) |
236 |
|
|
237 |
(define-key map "\eO2A" [S-up]) |
(define-key map "\eO2A" [S-up]) |
238 |
(define-key map "\eO2B" [S-down]) |
(define-key map "\eO2B" [S-down]) |
248 |
(define-key map "\eO5F" [C-end]) |
(define-key map "\eO5F" [C-end]) |
249 |
(define-key map "\eO5H" [C-home]) |
(define-key map "\eO5H" [C-home]) |
250 |
|
|
251 |
|
(define-key map "\e[11~" [f1]) |
252 |
|
(define-key map "\e[12~" [f2]) |
253 |
|
(define-key map "\e[13~" [f3]) |
254 |
|
(define-key map "\e[14~" [f4]) |
255 |
|
|
256 |
;; Use inheritance to let the main keymap override those defaults. |
;; Use inheritance to let the main keymap override those defaults. |
257 |
;; This way we don't override terminfo-derived settings or settings |
;; This way we don't override terminfo-derived settings or settings |
258 |
;; made in the .emacs file. |
;; made in the .emacs file. |