1 |
;;; iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps -*- no-byte-compile: t -*- |
;;; iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps -*- no-byte-compile: t -*- |
2 |
|
|
3 |
;; Copyright (C) 1997, 2005 Free Software Foundation, Inc. |
;; Copyright (C) 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Dan Nicolaescu <dann@ics.uci.edu> |
;; Author: Dan Nicolaescu <dann@ics.uci.edu> |
6 |
|
|
58 |
(define-key function-key-map "\e[006q" [f6]) |
(define-key function-key-map "\e[006q" [f6]) |
59 |
(define-key function-key-map "\e[018q" [S-f6]) |
(define-key function-key-map "\e[018q" [S-f6]) |
60 |
(define-key function-key-map "\e[030q" [C-f6]) |
(define-key function-key-map "\e[030q" [C-f6]) |
61 |
|
|
62 |
|
|
63 |
(define-key function-key-map "\e[007q" [f7]) |
(define-key function-key-map "\e[007q" [f7]) |
64 |
(define-key function-key-map "\e[019q" [S-f7]) |
(define-key function-key-map "\e[019q" [S-f7]) |
65 |
(define-key function-key-map "\e[031q" [C-f7]) |
(define-key function-key-map "\e[031q" [C-f7]) |
66 |
|
|
67 |
|
|
68 |
(define-key function-key-map "\e[008q" [f8]) |
(define-key function-key-map "\e[008q" [f8]) |
69 |
(define-key function-key-map "\e[020q" [S-f8]) |
(define-key function-key-map "\e[020q" [S-f8]) |
70 |
(define-key function-key-map "\e[032q" [C-f8]) |
(define-key function-key-map "\e[032q" [C-f8]) |
71 |
|
|
72 |
|
|
73 |
(define-key function-key-map "\e[009q" [f9]) |
(define-key function-key-map "\e[009q" [f9]) |
74 |
(define-key function-key-map "\e[021q" [S-f9]) |
(define-key function-key-map "\e[021q" [S-f9]) |
75 |
(define-key function-key-map "\e[033q" [C-f9]) |
(define-key function-key-map "\e[033q" [C-f9]) |
76 |
|
|
77 |
|
|
78 |
(define-key function-key-map "\e[010q" [f10]) |
(define-key function-key-map "\e[010q" [f10]) |
79 |
(define-key function-key-map "\e[022q" [S-f10]) |
(define-key function-key-map "\e[022q" [S-f10]) |
80 |
(define-key function-key-map "\e[034q" [C-f10]) |
(define-key function-key-map "\e[034q" [C-f10]) |
81 |
|
|
82 |
|
|
83 |
(define-key function-key-map "\e[011q" [f11]) |
(define-key function-key-map "\e[011q" [f11]) |
84 |
(define-key function-key-map "\e[023q" [S-f11]) |
(define-key function-key-map "\e[023q" [S-f11]) |
85 |
(define-key function-key-map "\e[035q" [C-f11]) |
(define-key function-key-map "\e[035q" [C-f11]) |
89 |
(define-key function-key-map "\e[024q" [S-f12]) |
(define-key function-key-map "\e[024q" [S-f12]) |
90 |
(define-key function-key-map "\e[036q" [C-f12]) |
(define-key function-key-map "\e[036q" [C-f12]) |
91 |
(define-key function-key-map "\e[048q" [M-f12]) |
(define-key function-key-map "\e[048q" [M-f12]) |
92 |
|
|
93 |
|
|
94 |
(define-key function-key-map "\e[057q" [?\C-`]) |
(define-key function-key-map "\e[057q" [?\C-`]) |
95 |
(define-key function-key-map "\e[115q" [?\M-`]) |
(define-key function-key-map "\e[115q" [?\M-`]) |
96 |
|
|
97 |
(define-key function-key-map "\e[049q" [?\C-1]) |
(define-key function-key-map "\e[049q" [?\C-1]) |
98 |
(define-key function-key-map "\e[058q" [?\M-1]) |
(define-key function-key-map "\e[058q" [?\M-1]) |
99 |
|
|
100 |
|
|
101 |
(define-key function-key-map "\e[059q" [?\M-2]) |
(define-key function-key-map "\e[059q" [?\M-2]) |
102 |
|
|
103 |
(define-key function-key-map "\e[050q" [?\C-3]) |
(define-key function-key-map "\e[050q" [?\C-3]) |
104 |
(define-key function-key-map "\e[060q" [?\M-3]) |
(define-key function-key-map "\e[060q" [?\M-3]) |
105 |
|
|
106 |
(define-key function-key-map "\e[051q" [?\C-4]) |
(define-key function-key-map "\e[051q" [?\C-4]) |
107 |
(define-key function-key-map "\e[061q" [?\M-4]) |
(define-key function-key-map "\e[061q" [?\M-4]) |
108 |
|
|
109 |
(define-key function-key-map "\e[052q" [?\C-5]) |
(define-key function-key-map "\e[052q" [?\C-5]) |
110 |
(define-key function-key-map "\e[062q" [?\M-5]) |
(define-key function-key-map "\e[062q" [?\M-5]) |
111 |
|
|
112 |
|
|
113 |
(define-key function-key-map "\e[063q" [?\M-6]) |
(define-key function-key-map "\e[063q" [?\M-6]) |
114 |
|
|
115 |
(define-key function-key-map "\e[053q" [?\C-7]) |
(define-key function-key-map "\e[053q" [?\C-7]) |
116 |
(define-key function-key-map "\e[064q" [?\M-7]) |
(define-key function-key-map "\e[064q" [?\M-7]) |
117 |
|
|
118 |
(define-key function-key-map "\e[054q" [?\C-8]) |
(define-key function-key-map "\e[054q" [?\C-8]) |
119 |
(define-key function-key-map "\e[065q" [?\M-8]) |
(define-key function-key-map "\e[065q" [?\M-8]) |
120 |
|
|
121 |
(define-key function-key-map "\e[055q" [?\C-9]) |
(define-key function-key-map "\e[055q" [?\C-9]) |
122 |
(define-key function-key-map "\e[066q" [?\M-9]) |
(define-key function-key-map "\e[066q" [?\M-9]) |
123 |
|
|
124 |
(define-key function-key-map "\e[056q" [?\C-0]) |
(define-key function-key-map "\e[056q" [?\C-0]) |
125 |
(define-key function-key-map "\e[067q" [?\M-0]) |
(define-key function-key-map "\e[067q" [?\M-0]) |
126 |
|
|
127 |
(define-key function-key-map "\e[068q" [?\M--]) |
(define-key function-key-map "\e[068q" [?\M--]) |
128 |
|
|
129 |
(define-key function-key-map "\e[069q" [?\C-=]) |
(define-key function-key-map "\e[069q" [?\C-=]) |
130 |
(define-key function-key-map "\e[070q" [?\M-=]) |
(define-key function-key-map "\e[070q" [?\M-=]) |
131 |
|
|
132 |
;; I don't know what to do with those. |
;; I don't know what to do with those. |
133 |
;;(define-key function-key-map "^H" [<del>]) |
;;(define-key function-key-map "^H" [<del>]) |
134 |
;;(define-key function-key-map "^H" [S-<del>]) |
;;(define-key function-key-map "^H" [S-<del>]) |
135 |
;;(define-key function-key-map "\177" [C-<del>]) |
;;(define-key function-key-map "\177" [C-<del>]) |
136 |
;;(define-key function-key-map "\e[071q" [M-<del>]) |
;;(define-key function-key-map "\e[071q" [M-<del>]) |
137 |
|
|
138 |
(define-key function-key-map "\e[Z" [?\S-\t]) |
(define-key function-key-map "\e[Z" [?\S-\t]) |
139 |
(define-key function-key-map "\e[072q" [?\C-\t]) |
(define-key function-key-map "\e[072q" [?\C-\t]) |
140 |
;; This only works if you remove the M-TAB keybing from the system.4Dwmrc |
;; This only works if you remove the M-TAB keybing from the system.4Dwmrc |
141 |
;; our your ~/.4Dwmrc, if you use the 4Dwm window manager. |
;; our your ~/.4Dwmrc, if you use the 4Dwm window manager. |
142 |
(define-key function-key-map "\e[073q" [?\M-\t]) |
(define-key function-key-map "\e[073q" [?\M-\t]) |
143 |
|
|
144 |
(define-key function-key-map "\e[074q" [?\M-q]) |
(define-key function-key-map "\e[074q" [?\M-q]) |
145 |
|
|
146 |
(define-key function-key-map "\e[075q" [?\M-w]) |
(define-key function-key-map "\e[075q" [?\M-w]) |
147 |
|
|
148 |
(define-key function-key-map "\e[076q" [?\M-e]) |
(define-key function-key-map "\e[076q" [?\M-e]) |
149 |
|
|
150 |
(define-key function-key-map "\e[077q" [?\M-r]) |
(define-key function-key-map "\e[077q" [?\M-r]) |
151 |
|
|
152 |
(define-key function-key-map "\e[078q" [?\M-t]) |
(define-key function-key-map "\e[078q" [?\M-t]) |
153 |
|
|
154 |
(define-key function-key-map "\e[079q" [?\M-y]) |
(define-key function-key-map "\e[079q" [?\M-y]) |
155 |
|
|
156 |
(define-key function-key-map "\e[080q" [?\M-u]) |
(define-key function-key-map "\e[080q" [?\M-u]) |
157 |
|
|
158 |
(define-key function-key-map "\e[081q" [?\M-i]) |
(define-key function-key-map "\e[081q" [?\M-i]) |
159 |
|
|
160 |
(define-key function-key-map "\e[082q" [?\M-o]) |
(define-key function-key-map "\e[082q" [?\M-o]) |
161 |
|
|
162 |
(define-key function-key-map "\e[083q" [?\M-p]) |
(define-key function-key-map "\e[083q" [?\M-p]) |
163 |
|
|
164 |
(define-key function-key-map "\e[084q" [?\M-\[]) |
(define-key function-key-map "\e[084q" [?\M-\[]) |
165 |
|
|
166 |
(define-key function-key-map "\e[085q" [?\M-\]]) |
(define-key function-key-map "\e[085q" [?\M-\]]) |
167 |
|
|
168 |
(define-key function-key-map "\e[086q" [?\M-\\]) |
(define-key function-key-map "\e[086q" [?\M-\\]) |
169 |
|
|
170 |
(define-key function-key-map "\e[087q" [?\M-a]) |
(define-key function-key-map "\e[087q" [?\M-a]) |
171 |
|
|
172 |
(define-key function-key-map "\e[088q" [?\M-s]) |
(define-key function-key-map "\e[088q" [?\M-s]) |
173 |
|
|
174 |
(define-key function-key-map "\e[089q" [?\M-d]) |
(define-key function-key-map "\e[089q" [?\M-d]) |
175 |
|
|
176 |
(define-key function-key-map "\e[090q" [?\M-f]) |
(define-key function-key-map "\e[090q" [?\M-f]) |
177 |
|
|
178 |
(define-key function-key-map "\e[091q" [?\M-g]) |
(define-key function-key-map "\e[091q" [?\M-g]) |
179 |
|
|
180 |
(define-key function-key-map "\e[092q" [?\M-h]) |
(define-key function-key-map "\e[092q" [?\M-h]) |
181 |
|
|
182 |
(define-key function-key-map "\e[093q" [?\M-j]) |
(define-key function-key-map "\e[093q" [?\M-j]) |
183 |
|
|
184 |
(define-key function-key-map "\e[094q" [?\M-k]) |
(define-key function-key-map "\e[094q" [?\M-k]) |
185 |
|
|
186 |
(define-key function-key-map "\e[095q" [?\M-l]) |
(define-key function-key-map "\e[095q" [?\M-l]) |
187 |
|
|
188 |
(define-key function-key-map "\e[096q" [?\C-\;]) |
(define-key function-key-map "\e[096q" [?\C-\;]) |
189 |
(define-key function-key-map "\e[097q" [?\M-:]) ;; we are cheating |
(define-key function-key-map "\e[097q" [?\M-:]) ;; we are cheating |
190 |
;; here, this is |
;; here, this is |
195 |
|
|
196 |
(define-key function-key-map "\e[098q" [?\C-']) |
(define-key function-key-map "\e[098q" [?\C-']) |
197 |
(define-key function-key-map "\e[099q" [?\M-']) |
(define-key function-key-map "\e[099q" [?\M-']) |
198 |
|
|
199 |
(define-key function-key-map "\e[100q" [?\M-\n]) |
(define-key function-key-map "\e[100q" [?\M-\n]) |
200 |
|
|
201 |
(define-key function-key-map "\e[101q" [?\M-z]) |
(define-key function-key-map "\e[101q" [?\M-z]) |
202 |
|
|
203 |
(define-key function-key-map "\e[102q" [?\M-x]) |
(define-key function-key-map "\e[102q" [?\M-x]) |
204 |
|
|
205 |
(define-key function-key-map "\e[103q" [?\M-c]) |
(define-key function-key-map "\e[103q" [?\M-c]) |
206 |
|
|
207 |
(define-key function-key-map "\e[104q" [?\M-v]) |
(define-key function-key-map "\e[104q" [?\M-v]) |
208 |
|
|
209 |
(define-key function-key-map "\e[105q" [?\M-b]) |
(define-key function-key-map "\e[105q" [?\M-b]) |
210 |
|
|
211 |
(define-key function-key-map "\e[106q" [M-n]) |
(define-key function-key-map "\e[106q" [M-n]) |
212 |
|
|
213 |
(define-key function-key-map "\e[107q" [M-m]) |
(define-key function-key-map "\e[107q" [M-m]) |
214 |
|
|
215 |
(define-key function-key-map "\e[108q" [?\C-,]) |
(define-key function-key-map "\e[108q" [?\C-,]) |
216 |
(define-key function-key-map "\e[109q" [?\M-,]) |
(define-key function-key-map "\e[109q" [?\M-,]) |
217 |
|
|
218 |
(define-key function-key-map "\e[110q" [?\C-.]) |
(define-key function-key-map "\e[110q" [?\C-.]) |
219 |
(define-key function-key-map "\e[111q" [?\M-.]) |
(define-key function-key-map "\e[111q" [?\M-.]) |
220 |
|
|
221 |
(define-key function-key-map "\e[112q" [?\C-/]) |
(define-key function-key-map "\e[112q" [?\C-/]) |
222 |
(define-key function-key-map "\e[113q" [?\M-/]) |
(define-key function-key-map "\e[113q" [?\M-/]) |
223 |
|
|
224 |
(define-key function-key-map "\e[139q" [insert]) |
(define-key function-key-map "\e[139q" [insert]) |
225 |
(define-key function-key-map "\e[139q" [S-insert]) |
(define-key function-key-map "\e[139q" [S-insert]) |
226 |
(define-key function-key-map "\e[140q" [C-insert]) |
(define-key function-key-map "\e[140q" [C-insert]) |
227 |
(define-key function-key-map "\e[141q" [M-insert]) |
(define-key function-key-map "\e[141q" [M-insert]) |
228 |
|
|
229 |
(define-key function-key-map "\e[H" [home]) |
(define-key function-key-map "\e[H" [home]) |
230 |
(define-key function-key-map "\e[143q" [S-home]) |
(define-key function-key-map "\e[143q" [S-home]) |
231 |
(define-key function-key-map "\e[144q" [C-home]) |
(define-key function-key-map "\e[144q" [C-home]) |
232 |
|
|
233 |
|
|
234 |
(define-key function-key-map "\e[150q" [prior]) |
(define-key function-key-map "\e[150q" [prior]) |
235 |
(define-key function-key-map "\e[151q" [S-prior]) ;; those don't |
(define-key function-key-map "\e[151q" [S-prior]) ;; those don't |
238 |
;; anything |
;; anything |
239 |
(define-key function-key-map "\e[152q" [C-prior]) |
(define-key function-key-map "\e[152q" [C-prior]) |
240 |
|
|
241 |
|
|
242 |
;; (define-key function-key-map "^?" [delete]) |
;; (define-key function-key-map "^?" [delete]) |
243 |
(define-key function-key-map "\e[P" [S-delete]) |
(define-key function-key-map "\e[P" [S-delete]) |
244 |
(define-key function-key-map "\e[142q" [C-delete]) |
(define-key function-key-map "\e[142q" [C-delete]) |
245 |
(define-key function-key-map "\e[M" [M-delete]) |
(define-key function-key-map "\e[M" [M-delete]) |
246 |
|
|
247 |
(define-key function-key-map "\e[146q" [end]) |
(define-key function-key-map "\e[146q" [end]) |
248 |
(define-key function-key-map "\e[147q" [S-end]) ;; those don't seem |
(define-key function-key-map "\e[147q" [S-end]) ;; those don't seem |
249 |
;; to generate |
;; to generate |
250 |
;; anything |
;; anything |
251 |
(define-key function-key-map "\e[148q" [C-end]) |
(define-key function-key-map "\e[148q" [C-end]) |
252 |
|
|
253 |
(define-key function-key-map "\e[154q" [next]) |
(define-key function-key-map "\e[154q" [next]) |
254 |
(define-key function-key-map "\e[155q" [S-next]) |
(define-key function-key-map "\e[155q" [S-next]) |
255 |
(define-key function-key-map "\e[156q" [C-next]) |
(define-key function-key-map "\e[156q" [C-next]) |
256 |
|
|
257 |
|
|
258 |
(define-key function-key-map "\e[161q" [S-up]) |
(define-key function-key-map "\e[161q" [S-up]) |
259 |
(define-key function-key-map "\e[162q" [C-up]) |
(define-key function-key-map "\e[162q" [C-up]) |
260 |
(define-key function-key-map "\e[163q" [M-up]) |
(define-key function-key-map "\e[163q" [M-up]) |
261 |
|
|
262 |
(define-key function-key-map "\e[158q" [S-left]) |
(define-key function-key-map "\e[158q" [S-left]) |
263 |
(define-key function-key-map "\e[159q" [C-left]) |
(define-key function-key-map "\e[159q" [C-left]) |
264 |
(define-key function-key-map "\e[160q" [M-left]) |
(define-key function-key-map "\e[160q" [M-left]) |
265 |
|
|
266 |
(define-key function-key-map "\e[164q" [S-down]) |
(define-key function-key-map "\e[164q" [S-down]) |
267 |
(define-key function-key-map "\e[165q" [C-down]) |
(define-key function-key-map "\e[165q" [C-down]) |
268 |
(define-key function-key-map "\e[166q" [M-down]) |
(define-key function-key-map "\e[166q" [M-down]) |
269 |
|
|
270 |
(define-key function-key-map "\e[167q" [S-right]) |
(define-key function-key-map "\e[167q" [S-right]) |
271 |
(define-key function-key-map "\e[168q" [C-right]) |
(define-key function-key-map "\e[168q" [C-right]) |
272 |
(define-key function-key-map "\e[169q" [M-right]) |
(define-key function-key-map "\e[169q" [M-right]) |
273 |
|
|
274 |
;; Keypad functions, most of those are untested. |
;; Keypad functions, most of those are untested. |
275 |
(define-key function-key-map "\e[179q" [?\C-/]) |
(define-key function-key-map "\e[179q" [?\C-/]) |
276 |
(define-key function-key-map "\e[180q" [?\M-/]) |
(define-key function-key-map "\e[180q" [?\M-/]) |
277 |
|
|
278 |
(define-key function-key-map "\e[187q" [?\C-*]) |
(define-key function-key-map "\e[187q" [?\C-*]) |
279 |
(define-key function-key-map "\e[188q" [?\M-*]) |
(define-key function-key-map "\e[188q" [?\M-*]) |
280 |
|
|
281 |
(define-key function-key-map "\e[198q" [?\C--]) |
(define-key function-key-map "\e[198q" [?\C--]) |
282 |
(define-key function-key-map "\e[199q" [?\M--]) |
(define-key function-key-map "\e[199q" [?\M--]) |
283 |
|
|
284 |
;; Something else takes care of home, up, prior, down, left, right, next |
;; Something else takes care of home, up, prior, down, left, right, next |
285 |
;;(define-key function-key-map "\e[H" [home]) |
;;(define-key function-key-map "\e[H" [home]) |
286 |
(define-key function-key-map "\e[172q" [C-home]) |
(define-key function-key-map "\e[172q" [C-home]) |
287 |
|
|
288 |
;;(define-key function-key-map "\e[A" [up]) |
;;(define-key function-key-map "\e[A" [up]) |
289 |
(define-key function-key-map "\e[182q" [C-up]) |
(define-key function-key-map "\e[182q" [C-up]) |
290 |
|
|
291 |
|
|
292 |
;;(define-key function-key-map "\e[150q" [prior]) |
;;(define-key function-key-map "\e[150q" [prior]) |
293 |
(define-key function-key-map "\e[190q" [C-prior]) |
(define-key function-key-map "\e[190q" [C-prior]) |
294 |
|
|
295 |
|
|
296 |
(define-key function-key-map "\e[200q" [?\C-+]) |
(define-key function-key-map "\e[200q" [?\C-+]) |
297 |
(define-key function-key-map "\e[201q" [?\M-+]) |
(define-key function-key-map "\e[201q" [?\M-+]) |
298 |
|
|
299 |
;;(define-key function-key-map "\e[D" [left]) |
;;(define-key function-key-map "\e[D" [left]) |
300 |
(define-key function-key-map "\e[174q" [C-left]) |
(define-key function-key-map "\e[174q" [C-left]) |
301 |
|
|
302 |
|
|
303 |
(define-key function-key-map "\e[000q" [begin]) |
(define-key function-key-map "\e[000q" [begin]) |
304 |
(define-key function-key-map "\e[184q" [C-begin]) |
(define-key function-key-map "\e[184q" [C-begin]) |
305 |
|
|
306 |
|
|
307 |
;;(define-key function-key-map "\e[C" [right]) |
;;(define-key function-key-map "\e[C" [right]) |
308 |
(define-key function-key-map "\e[192q" [C-right]) |
(define-key function-key-map "\e[192q" [C-right]) |
309 |
|
|
310 |
;;(define-key function-key-map "\e[146q" [end]) |
;;(define-key function-key-map "\e[146q" [end]) |
311 |
(define-key function-key-map "\e[176q" [C-end]) |
(define-key function-key-map "\e[176q" [C-end]) |
312 |
|
|
313 |
;;(define-key function-key-map "\e[B" [down]) |
;;(define-key function-key-map "\e[B" [down]) |
314 |
(define-key function-key-map "\e[186q" [C-down]) |
(define-key function-key-map "\e[186q" [C-down]) |
315 |
|
|
316 |
;;(define-key function-key-map "\e[154q" [next]) |
;;(define-key function-key-map "\e[154q" [next]) |
317 |
(define-key function-key-map "\e[194q" [C-next]) |
(define-key function-key-map "\e[194q" [C-next]) |
318 |
|
|
319 |
|
|
320 |
(define-key function-key-map "\e[100q" [M-enter]) |
(define-key function-key-map "\e[100q" [M-enter]) |
321 |
|
|
322 |
(define-key function-key-map "\e[139q" [insert]) |
(define-key function-key-map "\e[139q" [insert]) |
323 |
(define-key function-key-map "\e[178q" [C-inset]) |
(define-key function-key-map "\e[178q" [C-inset]) |
324 |
|
|
325 |
(define-key function-key-map "\e[P" [delete]) |
(define-key function-key-map "\e[P" [delete]) |
326 |
(define-key function-key-map "\e[196q" [C-delete]) |
(define-key function-key-map "\e[196q" [C-delete]) |
327 |
(define-key function-key-map "\e[197q" [M-delete])) |
(define-key function-key-map "\e[197q" [M-delete])) |