Mercurial > emacs

comparison lisp/term/iris-ansi.el @ 83524:673d62ad74b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix and/or simplify terminal initialization files. * lisp/faces.el (tty-create-frame-with-faces): Set up faces and background mode only after the terminal has been initialized. (frame-set-background-mode): Handle the 'background-mode terminal parameter. (tty-run-terminal-initialization): Add type option. * lisp/term/README: Update. * lisp/term/rxvt.el: Simplify. * lisp/term/xterm.el: Simplify and fix. * lisp/term/*.el: Simplify and fix. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-564
author Karoly Lorentey <lorentey@elte.hu>
date Sat, 20 May 2006 17:02:47 +0000
parents b98066f4aa10
children f441150d61fa
comparison
equal deleted inserted replaced
83523:6ce7108f7eef 83524:673d62ad74b5
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;;; Code: 27 ;;; Code:
28 28
29 (defvar iris-function-map nil 29 (defvar iris-function-map (make-sparse-keymap)
30 "Function key definitions for SGI xwsh and winterm apps.") 30 "Function key definitions for SGI xwsh and winterm apps.")
31 31
32 ;; Make reloads faster. 32 (define-key iris-function-map "\e[120q" [S-escape])
33 (unless iris-function-map 33 (define-key iris-function-map "\e[121q" [C-escape])
34 (setq iris-function-map (make-sparse-keymap)) 34
35 35 (define-key iris-function-map "\e[001q" [f1])
36 (define-key iris-function-map "\e[120q" [S-escape]) 36 (define-key iris-function-map "\e[013q" [S-f1])
37 (define-key iris-function-map "\e[121q" [C-escape]) 37 (define-key iris-function-map "\e[025q" [C-f1])
38 38
39 (define-key iris-function-map "\e[001q" [f1]) 39
40 (define-key iris-function-map "\e[013q" [S-f1]) 40 (define-key iris-function-map "\e[002q" [f2])
41 (define-key iris-function-map "\e[025q" [C-f1]) 41 (define-key iris-function-map "\e[014q" [S-f2])
42 42 (define-key iris-function-map "\e[026q" [C-f2])
43 43 (define-key iris-function-map "\e[038q" [M-f2])
44 (define-key iris-function-map "\e[002q" [f2]) 44
45 (define-key iris-function-map "\e[014q" [S-f2]) 45 (define-key iris-function-map "\e[003q" [f3])
46 (define-key iris-function-map "\e[026q" [C-f2]) 46 (define-key iris-function-map "\e[015q" [S-f3])
47 (define-key iris-function-map "\e[038q" [M-f2]) 47 (define-key iris-function-map "\e[027q" [C-f3])
48 48
49 (define-key iris-function-map "\e[003q" [f3]) 49
50 (define-key iris-function-map "\e[015q" [S-f3]) 50 (define-key iris-function-map "\e[004q" [f4])
51 (define-key iris-function-map "\e[027q" [C-f3]) 51 (define-key iris-function-map "\e[016q" [S-f4])
52 52 (define-key iris-function-map "\e[028q" [C-f4])
53 53
54 (define-key iris-function-map "\e[004q" [f4]) 54
55 (define-key iris-function-map "\e[016q" [S-f4]) 55 (define-key iris-function-map "\e[005q" [f5])
56 (define-key iris-function-map "\e[028q" [C-f4]) 56 (define-key iris-function-map "\e[017q" [S-f5])
57 57 (define-key iris-function-map "\e[029q" [C-f5])
58 58
59 (define-key iris-function-map "\e[005q" [f5]) 59
60 (define-key iris-function-map "\e[017q" [S-f5]) 60 (define-key iris-function-map "\e[006q" [f6])
61 (define-key iris-function-map "\e[029q" [C-f5]) 61 (define-key iris-function-map "\e[018q" [S-f6])
62 62 (define-key iris-function-map "\e[030q" [C-f6])
63 63
64 (define-key iris-function-map "\e[006q" [f6]) 64
65 (define-key iris-function-map "\e[018q" [S-f6]) 65 (define-key iris-function-map "\e[007q" [f7])
66 (define-key iris-function-map "\e[030q" [C-f6]) 66 (define-key iris-function-map "\e[019q" [S-f7])
67 67 (define-key iris-function-map "\e[031q" [C-f7])
68 68
69 (define-key iris-function-map "\e[007q" [f7]) 69
70 (define-key iris-function-map "\e[019q" [S-f7]) 70 (define-key iris-function-map "\e[008q" [f8])
71 (define-key iris-function-map "\e[031q" [C-f7]) 71 (define-key iris-function-map "\e[020q" [S-f8])
72 72 (define-key iris-function-map "\e[032q" [C-f8])
73 73
74 (define-key iris-function-map "\e[008q" [f8]) 74
75 (define-key iris-function-map "\e[020q" [S-f8]) 75 (define-key iris-function-map "\e[009q" [f9])
76 (define-key iris-function-map "\e[032q" [C-f8]) 76 (define-key iris-function-map "\e[021q" [S-f9])
77 77 (define-key iris-function-map "\e[033q" [C-f9])
78 78
79 (define-key iris-function-map "\e[009q" [f9]) 79
80 (define-key iris-function-map "\e[021q" [S-f9]) 80 (define-key iris-function-map "\e[010q" [f10])
81 (define-key iris-function-map "\e[033q" [C-f9]) 81 (define-key iris-function-map "\e[022q" [S-f10])
82 82 (define-key iris-function-map "\e[034q" [C-f10])
83 83
84 (define-key iris-function-map "\e[010q" [f10]) 84
85 (define-key iris-function-map "\e[022q" [S-f10]) 85 (define-key iris-function-map "\e[011q" [f11])
86 (define-key iris-function-map "\e[034q" [C-f10]) 86 (define-key iris-function-map "\e[023q" [S-f11])
87 87 (define-key iris-function-map "\e[035q" [C-f11])
88 88 (define-key iris-function-map "\e[047q" [M-f11])
89 (define-key iris-function-map "\e[011q" [f11]) 89
90 (define-key iris-function-map "\e[023q" [S-f11]) 90 (define-key iris-function-map "\e[012q" [f12])
91 (define-key iris-function-map "\e[035q" [C-f11]) 91 (define-key iris-function-map "\e[024q" [S-f12])
92 (define-key iris-function-map "\e[047q" [M-f11]) 92 (define-key iris-function-map "\e[036q" [C-f12])
93 93 (define-key iris-function-map "\e[048q" [M-f12])
94 (define-key iris-function-map "\e[012q" [f12]) 94
95 (define-key iris-function-map "\e[024q" [S-f12]) 95
96 (define-key iris-function-map "\e[036q" [C-f12]) 96 (define-key iris-function-map "\e[057q" [C-`])
97 (define-key iris-function-map "\e[048q" [M-f12]) 97 (define-key iris-function-map "\e[115q" [M-`])
98 98
99 99 (define-key iris-function-map "\e[049q" [?\C-1])
100 (define-key iris-function-map "\e[057q" [C-`]) 100 (define-key iris-function-map "\e[058q" [?\M-1])
101 (define-key iris-function-map "\e[115q" [M-`]) 101
102 102
103 (define-key iris-function-map "\e[049q" [?\C-1]) 103 (define-key iris-function-map "\e[059q" [?\M-2])
104 (define-key iris-function-map "\e[058q" [?\M-1]) 104
105 105 (define-key iris-function-map "\e[050q" [?\C-3])
106 106 (define-key iris-function-map "\e[060q" [?\M-3])
107 (define-key iris-function-map "\e[059q" [?\M-2]) 107
108 108 (define-key iris-function-map "\e[051q" [?\C-4])
109 (define-key iris-function-map "\e[050q" [?\C-3]) 109 (define-key iris-function-map "\e[061q" [?\M-4])
110 (define-key iris-function-map "\e[060q" [?\M-3]) 110
111 111 (define-key iris-function-map "\e[052q" [?\C-5])
112 (define-key iris-function-map "\e[051q" [?\C-4]) 112 (define-key iris-function-map "\e[062q" [?\M-5])
113 (define-key iris-function-map "\e[061q" [?\M-4]) 113
114 114
115 (define-key iris-function-map "\e[052q" [?\C-5]) 115 (define-key iris-function-map "\e[063q" [?\M-6])
116 (define-key iris-function-map "\e[062q" [?\M-5]) 116
117 117 (define-key iris-function-map "\e[053q" [?\C-7])
118 118 (define-key iris-function-map "\e[064q" [?\M-7])
119 (define-key iris-function-map "\e[063q" [?\M-6]) 119
120 120 (define-key iris-function-map "\e[054q" [?\C-8])
121 (define-key iris-function-map "\e[053q" [?\C-7]) 121 (define-key iris-function-map "\e[065q" [?\M-8])
122 (define-key iris-function-map "\e[064q" [?\M-7]) 122
123 123 (define-key iris-function-map "\e[055q" [?\C-9])
124 (define-key iris-function-map "\e[054q" [?\C-8]) 124 (define-key iris-function-map "\e[066q" [?\M-9])
125 (define-key iris-function-map "\e[065q" [?\M-8]) 125
126 126 (define-key iris-function-map "\e[056q" [?\C-0])
127 (define-key iris-function-map "\e[055q" [?\C-9]) 127 (define-key iris-function-map "\e[067q" [?\M-0])
128 (define-key iris-function-map "\e[066q" [?\M-9]) 128
129 129 (define-key iris-function-map "\e[068q" [?\M--])
130 (define-key iris-function-map "\e[056q" [?\C-0]) 130
131 (define-key iris-function-map "\e[067q" [?\M-0]) 131 (define-key iris-function-map "\e[069q" [?\C-=])
132 132 (define-key iris-function-map "\e[070q" [?\M-=])
133 (define-key iris-function-map "\e[068q" [?\M--]) 133
134 134 ;; I don't know what to do with those.
135 (define-key iris-function-map "\e[069q" [?\C-=]) 135 ;;(define-key iris-function-map "^H" [<del>])
136 (define-key iris-function-map "\e[070q" [?\M-=]) 136 ;;(define-key iris-function-map "^H" [S-<del>])
137 137 ;;(define-key iris-function-map "\177" [C-<del>])
138 ;; I don't know what to do with those. 138 ;;(define-key iris-function-map "\e[071q" [M-<del>])
139 ;;(define-key iris-function-map "^H" [<del>]) 139
140 ;;(define-key iris-function-map "^H" [S-<del>]) 140 (define-key iris-function-map "\e[Z" [?\S-\t])
141 ;;(define-key iris-function-map "\177" [C-<del>]) 141 (define-key iris-function-map "\e[072q" [?\C-\t])
142 ;;(define-key iris-function-map "\e[071q" [M-<del>]) 142 ;; This only works if you remove the M-TAB keybing from the system.4Dwmrc
143 143 ;; our your ~/.4Dwmrc, if you use the 4Dwm window manager.
144 (define-key iris-function-map "\e[Z" [?\S-\t]) 144 (define-key iris-function-map "\e[073q" [?\M-\t])
145 (define-key iris-function-map "\e[072q" [?\C-\t]) 145
146 ;; This only works if you remove the M-TAB keybing from the system.4Dwmrc 146 (define-key iris-function-map "\e[074q" [?\M-q])
147 ;; our your ~/.4Dwmrc, if you use the 4Dwm window manager. 147
148 (define-key iris-function-map "\e[073q" [?\M-\t]) 148 (define-key iris-function-map "\e[075q" [?\M-w])
149 149
150 (define-key iris-function-map "\e[074q" [?\M-q]) 150 (define-key iris-function-map "\e[076q" [?\M-e])
151 151
152 (define-key iris-function-map "\e[075q" [?\M-w]) 152 (define-key iris-function-map "\e[077q" [?\M-r])
153 153
154 (define-key iris-function-map "\e[076q" [?\M-e]) 154 (define-key iris-function-map "\e[078q" [?\M-t])
155 155
156 (define-key iris-function-map "\e[077q" [?\M-r]) 156 (define-key iris-function-map "\e[079q" [?\M-y])
157 157
158 (define-key iris-function-map "\e[078q" [?\M-t]) 158 (define-key iris-function-map "\e[080q" [?\M-u])
159 159
160 (define-key iris-function-map "\e[079q" [?\M-y]) 160 (define-key iris-function-map "\e[081q" [?\M-i])
161 161
162 (define-key iris-function-map "\e[080q" [?\M-u]) 162 (define-key iris-function-map "\e[082q" [?\M-o])
163 163
164 (define-key iris-function-map "\e[081q" [?\M-i]) 164 (define-key iris-function-map "\e[083q" [?\M-p])
165 165
166 (define-key iris-function-map "\e[082q" [?\M-o]) 166 (define-key iris-function-map "\e[084q" [?\M-\[])
167 167
168 (define-key iris-function-map "\e[083q" [?\M-p]) 168 (define-key iris-function-map "\e[085q" [?\M-\]])
169 169
170 (define-key iris-function-map "\e[084q" [?\M-\[]) 170 (define-key iris-function-map "\e[086q" [?\M-\\])
171 171
172 (define-key iris-function-map "\e[085q" [?\M-\]]) 172 (define-key iris-function-map "\e[087q" [?\M-a])
173 173
174 (define-key iris-function-map "\e[086q" [?\M-\\]) 174 (define-key iris-function-map "\e[088q" [?\M-s])
175 175
176 (define-key iris-function-map "\e[087q" [?\M-a]) 176 (define-key iris-function-map "\e[089q" [?\M-d])
177 177
178 (define-key iris-function-map "\e[088q" [?\M-s]) 178 (define-key iris-function-map "\e[090q" [?\M-f])
179 179
180 (define-key iris-function-map "\e[089q" [?\M-d]) 180 (define-key iris-function-map "\e[091q" [?\M-g])
181 181
182 (define-key iris-function-map "\e[090q" [?\M-f]) 182 (define-key iris-function-map "\e[092q" [?\M-h])
183 183
184 (define-key iris-function-map "\e[091q" [?\M-g]) 184 (define-key iris-function-map "\e[093q" [?\M-j])
185 185
186 (define-key iris-function-map "\e[092q" [?\M-h]) 186 (define-key iris-function-map "\e[094q" [?\M-k])
187 187
188 (define-key iris-function-map "\e[093q" [?\M-j]) 188 (define-key iris-function-map "\e[095q" [?\M-l])
189 189
190 (define-key iris-function-map "\e[094q" [?\M-k]) 190 (define-key iris-function-map "\e[096q" [?\C-\;])
191 191 (define-key iris-function-map "\e[097q" [?\M-:]) ;; we are cheating
192 (define-key iris-function-map "\e[095q" [?\M-l])
193
194 (define-key iris-function-map "\e[096q" [?\C-\;])
195 (define-key iris-function-map "\e[097q" [?\M-:]) ;; we are cheating
196 ;; here, this is realy 192 ;; here, this is realy
197 ;; M-;, but M-: 193 ;; M-;, but M-:
198 ;; generates the same 194 ;; generates the same
199 ;; string and is more 195 ;; string and is more
200 ;; usefull. 196 ;; usefull.
201 197
202 (define-key iris-function-map "\e[098q" [?\C-']) 198 (define-key iris-function-map "\e[098q" [?\C-'])
203 (define-key iris-function-map "\e[099q" [?\M-']) 199 (define-key iris-function-map "\e[099q" [?\M-'])
204 200
205 (define-key iris-function-map "\e[100q" [?\M-\n]) 201 (define-key iris-function-map "\e[100q" [?\M-\n])
206 202
207 (define-key iris-function-map "\e[101q" [?\M-z]) 203 (define-key iris-function-map "\e[101q" [?\M-z])
208 204
209 (define-key iris-function-map "\e[102q" [?\M-x]) 205 (define-key iris-function-map "\e[102q" [?\M-x])
210 206
211 (define-key iris-function-map "\e[103q" [?\M-c]) 207 (define-key iris-function-map "\e[103q" [?\M-c])
212 208
213 (define-key iris-function-map "\e[104q" [?\M-v]) 209 (define-key iris-function-map "\e[104q" [?\M-v])
214 210
215 (define-key iris-function-map "\e[105q" [?\M-b]) 211 (define-key iris-function-map "\e[105q" [?\M-b])
216 212
217 (define-key iris-function-map "\e[106q" [M-n]) 213 (define-key iris-function-map "\e[106q" [M-n])
218 214
219 (define-key iris-function-map "\e[107q" [M-m]) 215 (define-key iris-function-map "\e[107q" [M-m])
220 216
221 (define-key iris-function-map "\e[108q" [?\C-,]) 217 (define-key iris-function-map "\e[108q" [?\C-,])
222 (define-key iris-function-map "\e[109q" [?\M-,]) 218 (define-key iris-function-map "\e[109q" [?\M-,])
223 219
224 (define-key iris-function-map "\e[110q" [?\C-.]) 220 (define-key iris-function-map "\e[110q" [?\C-.])
225 (define-key iris-function-map "\e[111q" [?\M-.]) 221 (define-key iris-function-map "\e[111q" [?\M-.])
226 222
227 (define-key iris-function-map "\e[112q" [?\C-/]) 223 (define-key iris-function-map "\e[112q" [?\C-/])
228 (define-key iris-function-map "\e[113q" [?\M-/]) 224 (define-key iris-function-map "\e[113q" [?\M-/])
229 225
230 (define-key iris-function-map "\e[139q" [insert]) 226 (define-key iris-function-map "\e[139q" [insert])
231 (define-key iris-function-map "\e[139q" [S-insert]) 227 (define-key iris-function-map "\e[139q" [S-insert])
232 (define-key iris-function-map "\e[140q" [C-insert]) 228 (define-key iris-function-map "\e[140q" [C-insert])
233 (define-key iris-function-map "\e[141q" [M-insert]) 229 (define-key iris-function-map "\e[141q" [M-insert])
234 230
235 (define-key iris-function-map "\e[H" [home]) 231 (define-key iris-function-map "\e[H" [home])
236 (define-key iris-function-map "\e[143q" [S-home]) 232 (define-key iris-function-map "\e[143q" [S-home])
237 (define-key iris-function-map "\e[144q" [C-home]) 233 (define-key iris-function-map "\e[144q" [C-home])
238 234
239 235
240 (define-key iris-function-map "\e[150q" [prior]) 236 (define-key iris-function-map "\e[150q" [prior])
241 (define-key iris-function-map "\e[151q" [S-prior]) ;; those don't seem 237 (define-key iris-function-map "\e[151q" [S-prior]) ;; those don't seem
242 ;; to generate 238 ;; to generate
243 ;; anything 239 ;; anything
244 (define-key iris-function-map "\e[152q" [C-prior]) 240 (define-key iris-function-map "\e[152q" [C-prior])
245 241
246 242
247 ;; (define-key iris-function-map "^?" [delete]) ?? something else seems to take care of this. 243 ;; (define-key iris-function-map "^?" [delete]) ?? something else seems to take care of this.
248 (define-key iris-function-map "\e[P" [S-delete]) 244 (define-key iris-function-map "\e[P" [S-delete])
249 (define-key iris-function-map "\e[142q" [C-delete]) 245 (define-key iris-function-map "\e[142q" [C-delete])
250 (define-key iris-function-map "\e[M" [M-delete]) 246 (define-key iris-function-map "\e[M" [M-delete])
251 247
252 (define-key iris-function-map "\e[146q" [end]) 248 (define-key iris-function-map "\e[146q" [end])
253 (define-key iris-function-map "\e[147q" [S-end]) ;; those don't seem to 249 (define-key iris-function-map "\e[147q" [S-end]) ;; those don't seem to
254 ;; generate anything 250 ;; generate anything
255 (define-key iris-function-map "\e[148q" [C-end]) 251 (define-key iris-function-map "\e[148q" [C-end])
256 252
257 (define-key iris-function-map "\e[154q" [next]) 253 (define-key iris-function-map "\e[154q" [next])
258 (define-key iris-function-map "\e[155q" [S-next]) 254 (define-key iris-function-map "\e[155q" [S-next])
259 (define-key iris-function-map "\e[156q" [C-next]) 255 (define-key iris-function-map "\e[156q" [C-next])
260 256
261 257
262 (define-key iris-function-map "\e[161q" [S-up]) 258 (define-key iris-function-map "\e[161q" [S-up])
263 (define-key iris-function-map "\e[162q" [C-up]) 259 (define-key iris-function-map "\e[162q" [C-up])
264 (define-key iris-function-map "\e[163q" [M-up]) 260 (define-key iris-function-map "\e[163q" [M-up])
265 261
266 (define-key iris-function-map "\e[158q" [S-left]) 262 (define-key iris-function-map "\e[158q" [S-left])
267 (define-key iris-function-map "\e[159q" [C-left]) 263 (define-key iris-function-map "\e[159q" [C-left])
268 (define-key iris-function-map "\e[160q" [M-left]) 264 (define-key iris-function-map "\e[160q" [M-left])
269 265
270 (define-key iris-function-map "\e[164q" [S-down]) 266 (define-key iris-function-map "\e[164q" [S-down])
271 (define-key iris-function-map "\e[165q" [C-down]) 267 (define-key iris-function-map "\e[165q" [C-down])
272 (define-key iris-function-map "\e[166q" [M-down]) 268 (define-key iris-function-map "\e[166q" [M-down])
273 269
274 (define-key iris-function-map "\e[167q" [S-right]) 270 (define-key iris-function-map "\e[167q" [S-right])
275 (define-key iris-function-map "\e[168q" [C-right]) 271 (define-key iris-function-map "\e[168q" [C-right])
276 (define-key iris-function-map "\e[169q" [M-right]) 272 (define-key iris-function-map "\e[169q" [M-right])
277 273
278 ;; Keypad functions, most of those are untested. 274 ;; Keypad functions, most of those are untested.
279 (define-key iris-function-map "\e[179q" [?\C-/]) 275 (define-key iris-function-map "\e[179q" [?\C-/])
280 (define-key iris-function-map "\e[180q" [?\M-/]) 276 (define-key iris-function-map "\e[180q" [?\M-/])
281 277
282 (define-key iris-function-map "\e[187q" [?\C-*]) 278 (define-key iris-function-map "\e[187q" [?\C-*])
283 (define-key iris-function-map "\e[188q" [?\M-*]) 279 (define-key iris-function-map "\e[188q" [?\M-*])
284 280
285 (define-key iris-function-map "\e[198q" [?\C--]) 281 (define-key iris-function-map "\e[198q" [?\C--])
286 (define-key iris-function-map "\e[199q" [?\M--]) 282 (define-key iris-function-map "\e[199q" [?\M--])
287 283
288 ;; Something else takes care of home, up, prior, down, left, right, next 284 ;; Something else takes care of home, up, prior, down, left, right, next
289 ;(define-key iris-function-map "\e[H" [home]) 285 ;(define-key iris-function-map "\e[H" [home])
290 (define-key iris-function-map "\e[172q" [C-home]) 286 (define-key iris-function-map "\e[172q" [C-home])
291 287
292 ;(define-key iris-function-map "\e[A" [up]) 288 ;(define-key iris-function-map "\e[A" [up])
293 (define-key iris-function-map "\e[182q" [C-up]) 289 (define-key iris-function-map "\e[182q" [C-up])
294 290
295 291
296 ;(define-key iris-function-map "\e[150q" [prior]) 292 ;(define-key iris-function-map "\e[150q" [prior])
297 (define-key iris-function-map "\e[190q" [C-prior]) 293 (define-key iris-function-map "\e[190q" [C-prior])
298 294
299 295
300 (define-key iris-function-map "\e[200q" [?\C-+]) 296 (define-key iris-function-map "\e[200q" [?\C-+])
301 (define-key iris-function-map "\e[201q" [?\M-+]) 297 (define-key iris-function-map "\e[201q" [?\M-+])
302 298
303 ;(define-key iris-function-map "\e[D" [left]) 299 ;(define-key iris-function-map "\e[D" [left])
304 (define-key iris-function-map "\e[174q" [C-left]) 300 (define-key iris-function-map "\e[174q" [C-left])
305 301
306 302
307 (define-key iris-function-map "\e[000q" [begin]) 303 (define-key iris-function-map "\e[000q" [begin])
308 (define-key iris-function-map "\e[184q" [C-begin]) 304 (define-key iris-function-map "\e[184q" [C-begin])
309 305
310 306
311 ;(define-key iris-function-map "\e[C" [right]) 307 ;(define-key iris-function-map "\e[C" [right])
312 (define-key iris-function-map "\e[192q" [C-right]) 308 (define-key iris-function-map "\e[192q" [C-right])
313 309
314 ;(define-key iris-function-map "\e[146q" [end]) 310 ;(define-key iris-function-map "\e[146q" [end])
315 (define-key iris-function-map "\e[176q" [C-end]) 311 (define-key iris-function-map "\e[176q" [C-end])
316 312
317 ;(define-key iris-function-map "\e[B" [down]) 313 ;(define-key iris-function-map "\e[B" [down])
318 (define-key iris-function-map "\e[186q" [C-down]) 314 (define-key iris-function-map "\e[186q" [C-down])
319 315
320 ;(define-key iris-function-map "\e[154q" [next]) 316 ;(define-key iris-function-map "\e[154q" [next])
321 (define-key iris-function-map "\e[194q" [C-next]) 317 (define-key iris-function-map "\e[194q" [C-next])
322 318
323 319
324 (define-key iris-function-map "\e[100q" [M-enter]) 320 (define-key iris-function-map "\e[100q" [M-enter])
325 321
326 (define-key iris-function-map "\e[139q" [insert]) 322 (define-key iris-function-map "\e[139q" [insert])
327 (define-key iris-function-map "\e[178q" [C-inset]) 323 (define-key iris-function-map "\e[178q" [C-inset])
328 324
329 (define-key iris-function-map "\e[P" [delete]) 325 (define-key iris-function-map "\e[P" [delete])
330 (define-key iris-function-map "\e[196q" [C-delete]) 326 (define-key iris-function-map "\e[196q" [C-delete])
331 (define-key iris-function-map "\e[197q" [M-delete])) 327 (define-key iris-function-map "\e[197q" [M-delete])
332 328
333 (defun terminal-init-iris-ansi () 329 (defun terminal-init-iris-ansi ()
334 "Terminal initialization function for iris-ansi." 330 "Terminal initialization function for iris-ansi."
335 ;; The terminal-local stuff only need to be set up on the first 331 ;; Use inheritance to let the main keymap override these defaults.
336 ;; frame on that device. 332 ;; This way we don't override terminfo-derived settings or settings
337 (when (eq 1 (length (frames-on-display-list))) 333 ;; made in the .emacs file.
338 ;; Use inheritance to let the main keymap override these defaults. 334 (let ((m (copy-keymap iris-function-map)))
339 ;; This way we don't override terminfo-derived settings or settings 335 (set-keymap-parent m (keymap-parent local-function-key-map))
340 ;; made in the .emacs file. 336 (set-keymap-parent local-function-key-map m)))
341 (let ((m (copy-keymap iris-function-map)))
342 (set-keymap-parent m (keymap-parent local-function-key-map))
343 (set-keymap-parent local-function-key-map m))))
344 337
345 ;;; arch-tag: b1d0e73a-bb7d-47be-9fb2-6fb126469a1b 338 ;;; arch-tag: b1d0e73a-bb7d-47be-9fb2-6fb126469a1b
346 ;;; iris-ansi.el ends here 339 ;;; iris-ansi.el ends here