26 |
|
|
27 |
;;; Code: |
;;; Code: |
28 |
|
|
29 |
|
;;; The terminal intialization C code file might have initialized |
30 |
|
;;; function keys F13->F60 from the termcap/terminfo information. On |
31 |
|
;;; a PC-style keyboard these keys correspond to |
32 |
|
;;; MODIFIER-FUNCTION_KEY, where modifier is S-, C, A-, C-S-. The |
33 |
|
;;; code here subsitutes the corresponding defintions in |
34 |
|
;;; function-key-map. This substitution is needed because if a key |
35 |
|
;;; definition if found in function-key-map, there are no further |
36 |
|
;;; lookups in other keymaps. |
37 |
|
(substitute-key-definition [f13] [S-f1] function-key-map) |
38 |
|
(substitute-key-definition [f14] [S-f2] function-key-map) |
39 |
|
(substitute-key-definition [f15] [S-f3] function-key-map) |
40 |
|
(substitute-key-definition [f16] [S-f4] function-key-map) |
41 |
|
(substitute-key-definition [f17] [S-f5] function-key-map) |
42 |
|
(substitute-key-definition [f18] [S-f6] function-key-map) |
43 |
|
(substitute-key-definition [f19] [S-f7] function-key-map) |
44 |
|
(substitute-key-definition [f20] [S-f8] function-key-map) |
45 |
|
(substitute-key-definition [f21] [S-f9] function-key-map) |
46 |
|
(substitute-key-definition [f22] [S-f10] function-key-map) |
47 |
|
(substitute-key-definition [f23] [S-f11] function-key-map) |
48 |
|
(substitute-key-definition [f24] [S-f12] function-key-map) |
49 |
|
|
50 |
|
(substitute-key-definition [f25] [C-f1] function-key-map) |
51 |
|
(substitute-key-definition [f26] [C-f2] function-key-map) |
52 |
|
(substitute-key-definition [f27] [C-f3] function-key-map) |
53 |
|
(substitute-key-definition [f28] [C-f4] function-key-map) |
54 |
|
(substitute-key-definition [f29] [C-f5] function-key-map) |
55 |
|
(substitute-key-definition [f30] [C-f6] function-key-map) |
56 |
|
(substitute-key-definition [f31] [C-f7] function-key-map) |
57 |
|
(substitute-key-definition [f32] [C-f8] function-key-map) |
58 |
|
(substitute-key-definition [f33] [C-f9] function-key-map) |
59 |
|
(substitute-key-definition [f34] [C-f10] function-key-map) |
60 |
|
(substitute-key-definition [f35] [C-f11] function-key-map) |
61 |
|
(substitute-key-definition [f36] [C-f12] function-key-map) |
62 |
|
|
63 |
|
(substitute-key-definition [f37] [C-S-f1] function-key-map) |
64 |
|
(substitute-key-definition [f38] [C-S-f2] function-key-map) |
65 |
|
(substitute-key-definition [f39] [C-S-f3] function-key-map) |
66 |
|
(substitute-key-definition [f40] [C-S-f4] function-key-map) |
67 |
|
(substitute-key-definition [f41] [C-S-f5] function-key-map) |
68 |
|
(substitute-key-definition [f42] [C-S-f6] function-key-map) |
69 |
|
(substitute-key-definition [f43] [C-S-f7] function-key-map) |
70 |
|
(substitute-key-definition [f44] [C-S-f8] function-key-map) |
71 |
|
(substitute-key-definition [f45] [C-S-f9] function-key-map) |
72 |
|
(substitute-key-definition [f46] [C-S-f10] function-key-map) |
73 |
|
(substitute-key-definition [f47] [C-S-f11] function-key-map) |
74 |
|
(substitute-key-definition [f48] [C-S-f12] function-key-map) |
75 |
|
|
76 |
|
(substitute-key-definition [f49] [A-f1] function-key-map) |
77 |
|
(substitute-key-definition [f50] [A-f2] function-key-map) |
78 |
|
(substitute-key-definition [f51] [A-f3] function-key-map) |
79 |
|
(substitute-key-definition [f52] [A-f4] function-key-map) |
80 |
|
(substitute-key-definition [f53] [A-f5] function-key-map) |
81 |
|
(substitute-key-definition [f54] [A-f6] function-key-map) |
82 |
|
(substitute-key-definition [f55] [A-f7] function-key-map) |
83 |
|
(substitute-key-definition [f56] [A-f8] function-key-map) |
84 |
|
(substitute-key-definition [f57] [A-f9] function-key-map) |
85 |
|
(substitute-key-definition [f58] [A-f10] function-key-map) |
86 |
|
(substitute-key-definition [f59] [A-f11] function-key-map) |
87 |
|
(substitute-key-definition [f60] [A-f12] function-key-map) |
88 |
|
|
89 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
90 |
(define-key map "\e[A" [up]) |
(define-key map "\e[A" [up]) |
91 |
(define-key map "\e[B" [down]) |
(define-key map "\e[B" [down]) |
243 |
(set-keymap-parent map (keymap-parent function-key-map)) |
(set-keymap-parent map (keymap-parent function-key-map)) |
244 |
(set-keymap-parent function-key-map map)) |
(set-keymap-parent function-key-map map)) |
245 |
|
|
|
;;; The terminal intialization C code file might have initialized |
|
|
;;; function keys F13->F60 from the termcap/terminfo information. On |
|
|
;;; a PC-style keyboard these keys correspond to |
|
|
;;; 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 |
|
|
;;; lookups in other keymaps. |
|
|
(substitute-key-definition [f13] [S-f1] function-key-map) |
|
|
(substitute-key-definition [f14] [S-f2] function-key-map) |
|
|
(substitute-key-definition [f15] [S-f3] function-key-map) |
|
|
(substitute-key-definition [f16] [S-f4] function-key-map) |
|
|
(substitute-key-definition [f17] [S-f5] function-key-map) |
|
|
(substitute-key-definition [f18] [S-f6] function-key-map) |
|
|
(substitute-key-definition [f19] [S-f7] function-key-map) |
|
|
(substitute-key-definition [f20] [S-f8] function-key-map) |
|
|
(substitute-key-definition [f21] [S-f9] function-key-map) |
|
|
(substitute-key-definition [f22] [S-f10] function-key-map) |
|
|
(substitute-key-definition [f23] [S-f11] function-key-map) |
|
|
(substitute-key-definition [f24] [S-f12] function-key-map) |
|
|
|
|
|
(substitute-key-definition [f25] [C-f1] function-key-map) |
|
|
(substitute-key-definition [f26] [C-f2] function-key-map) |
|
|
(substitute-key-definition [f27] [C-f3] function-key-map) |
|
|
(substitute-key-definition [f28] [C-f4] function-key-map) |
|
|
(substitute-key-definition [f29] [C-f5] function-key-map) |
|
|
(substitute-key-definition [f30] [C-f6] function-key-map) |
|
|
(substitute-key-definition [f31] [C-f7] function-key-map) |
|
|
(substitute-key-definition [f32] [C-f8] function-key-map) |
|
|
(substitute-key-definition [f33] [C-f9] function-key-map) |
|
|
(substitute-key-definition [f34] [C-f10] function-key-map) |
|
|
(substitute-key-definition [f35] [C-f11] function-key-map) |
|
|
(substitute-key-definition [f36] [C-f12] function-key-map) |
|
|
|
|
|
(substitute-key-definition [f37] [C-S-f1] function-key-map) |
|
|
(substitute-key-definition [f38] [C-S-f2] function-key-map) |
|
|
(substitute-key-definition [f39] [C-S-f3] function-key-map) |
|
|
(substitute-key-definition [f40] [C-S-f4] function-key-map) |
|
|
(substitute-key-definition [f41] [C-S-f5] function-key-map) |
|
|
(substitute-key-definition [f42] [C-S-f6] function-key-map) |
|
|
(substitute-key-definition [f43] [C-S-f7] function-key-map) |
|
|
(substitute-key-definition [f44] [C-S-f8] function-key-map) |
|
|
(substitute-key-definition [f45] [C-S-f9] function-key-map) |
|
|
(substitute-key-definition [f46] [C-S-f10] function-key-map) |
|
|
(substitute-key-definition [f47] [C-S-f11] function-key-map) |
|
|
(substitute-key-definition [f48] [C-S-f12] function-key-map) |
|
|
|
|
|
(substitute-key-definition [f49] [A-f1] function-key-map) |
|
|
(substitute-key-definition [f50] [A-f2] function-key-map) |
|
|
(substitute-key-definition [f51] [A-f3] function-key-map) |
|
|
(substitute-key-definition [f52] [A-f4] function-key-map) |
|
|
(substitute-key-definition [f53] [A-f5] function-key-map) |
|
|
(substitute-key-definition [f54] [A-f6] function-key-map) |
|
|
(substitute-key-definition [f55] [A-f7] function-key-map) |
|
|
(substitute-key-definition [f56] [A-f8] function-key-map) |
|
|
(substitute-key-definition [f57] [A-f9] function-key-map) |
|
|
(substitute-key-definition [f58] [A-f10] function-key-map) |
|
|
(substitute-key-definition [f59] [A-f11] function-key-map) |
|
|
(substitute-key-definition [f60] [A-f12] function-key-map) |
|
|
|
|
246 |
;; Set up colors, for those versions of xterm that support it. |
;; Set up colors, for those versions of xterm that support it. |
247 |
(defvar xterm-standard-colors |
(defvar xterm-standard-colors |
248 |
;; The names in the comments taken from XTerm-col.ad in the xterm |
;; The names in the comments taken from XTerm-col.ad in the xterm |