Commit | Line | Data |
---|---|---|
1a06eabd ER |
1 | ;;; iso-insert.el --- insert functions for ISO 8859/1. |
2 | ||
8f1204db | 3 | ;; Copyright (C) 1987, 1994 Free Software Foundation, Inc. |
9750e079 | 4 | |
e5167999 ER |
5 | ;; Author: Howard Gayle |
6 | ;; Maintainer: FSF | |
a1d15b3e | 7 | ;; Keywords: i18n |
3b4a6e27 JB |
8 | |
9 | ;; This file is part of GNU Emacs. | |
10 | ||
11 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 | ;; it under the terms of the GNU General Public License as published by | |
e5167999 | 13 | ;; the Free Software Foundation; either version 2, or (at your option) |
3b4a6e27 JB |
14 | ;; any later version. |
15 | ||
16 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 | ;; GNU General Public License for more details. | |
20 | ||
21 | ;; You should have received a copy of the GNU General Public License | |
22 | ;; along with GNU Emacs; see the file COPYING. If not, write to | |
23 | ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
24 | ||
e41b2db1 | 25 | ;;; Commentary: |
3b4a6e27 JB |
26 | |
27 | ;; Written by Howard Gayle. See case-table.el for details. | |
28 | ||
e41b2db1 ER |
29 | ;;; Code: |
30 | ||
3b4a6e27 JB |
31 | (defun insert-no-break-space () |
32 | (interactive "*") | |
33 | (insert 160) | |
34 | ) | |
35 | ||
36 | (defun insert-inverted-exclamation-mark () | |
37 | (interactive "*") | |
38 | (insert 161) | |
39 | ) | |
40 | ||
41 | (defun insert-cent-sign () | |
42 | (interactive "*") | |
43 | (insert 162) | |
44 | ) | |
45 | ||
46 | (defun insert-pound-sign () | |
47 | (interactive "*") | |
48 | (insert 163) | |
49 | ) | |
50 | ||
51 | (defun insert-general-currency-sign () | |
52 | (interactive "*") | |
53 | (insert 164) | |
54 | ) | |
55 | ||
56 | (defun insert-yen-sign () | |
57 | (interactive "*") | |
58 | (insert 165) | |
59 | ) | |
60 | ||
61 | (defun insert-broken-vertical-line () | |
62 | (interactive "*") | |
63 | (insert 166) | |
64 | ) | |
65 | ||
66 | (defun insert-section-sign () | |
67 | (interactive "*") | |
68 | (insert 167) | |
69 | ) | |
70 | ||
71 | (defun insert-diaeresis () | |
72 | (interactive "*") | |
73 | (insert 168) | |
74 | ) | |
75 | ||
76 | (defun insert-copyright-sign () | |
77 | (interactive "*") | |
78 | (insert 169) | |
79 | ) | |
80 | ||
81 | (defun insert-ordinal-indicator-feminine () | |
82 | (interactive "*") | |
83 | (insert 170) | |
84 | ) | |
85 | ||
86 | (defun insert-angle-quotation-mark-left () | |
87 | (interactive "*") | |
88 | (insert 171) | |
89 | ) | |
90 | ||
91 | (defun insert-not-sign () | |
92 | (interactive "*") | |
93 | (insert 172) | |
94 | ) | |
95 | ||
96 | (defun insert-soft-hyphen () | |
97 | (interactive "*") | |
98 | (insert 173) | |
99 | ) | |
100 | ||
101 | (defun insert-registered-sign () | |
102 | (interactive "*") | |
103 | (insert 174) | |
104 | ) | |
105 | ||
106 | (defun insert-macron () | |
107 | (interactive "*") | |
108 | (insert 175) | |
109 | ) | |
110 | ||
111 | (defun insert-degree-sign () | |
112 | (interactive "*") | |
113 | (insert 176) | |
114 | ) | |
115 | ||
116 | (defun insert-plus-or-minus-sign () | |
117 | (interactive "*") | |
118 | (insert 177) | |
119 | ) | |
120 | ||
121 | (defun insert-superscript-two () | |
122 | (interactive "*") | |
123 | (insert 178) | |
124 | ) | |
125 | ||
126 | (defun insert-superscript-three () | |
127 | (interactive "*") | |
128 | (insert 179) | |
129 | ) | |
130 | ||
131 | (defun insert-acute-accent () | |
132 | (interactive "*") | |
133 | (insert 180) | |
134 | ) | |
135 | ||
136 | (defun insert-micro-sign () | |
137 | (interactive "*") | |
138 | (insert 181) | |
139 | ) | |
140 | ||
141 | (defun insert-pilcrow () | |
142 | (interactive "*") | |
143 | (insert 182) | |
144 | ) | |
145 | ||
146 | (defun insert-middle-dot () | |
147 | (interactive "*") | |
148 | (insert 183) | |
149 | ) | |
150 | ||
151 | (defun insert-cedilla () | |
152 | (interactive "*") | |
153 | (insert 184) | |
154 | ) | |
155 | ||
156 | (defun insert-superscript-one () | |
157 | (interactive "*") | |
158 | (insert 185) | |
159 | ) | |
160 | ||
161 | (defun insert-ordinal-indicator-masculine () | |
162 | (interactive "*") | |
163 | (insert 186) | |
164 | ) | |
165 | ||
166 | (defun insert-angle-quotation-mark-right () | |
167 | (interactive "*") | |
168 | (insert 187) | |
169 | ) | |
170 | ||
171 | (defun insert-fraction-one-quarter () | |
172 | (interactive "*") | |
173 | (insert 188) | |
174 | ) | |
175 | ||
176 | (defun insert-fraction-one-half () | |
177 | (interactive "*") | |
178 | (insert 189) | |
179 | ) | |
180 | ||
181 | (defun insert-fraction-three-quarters () | |
182 | (interactive "*") | |
183 | (insert 190) | |
184 | ) | |
185 | ||
186 | (defun insert-inverted-question-mark () | |
187 | (interactive "*") | |
188 | (insert 191) | |
189 | ) | |
190 | ||
191 | (defun insert-A-grave () | |
192 | (interactive "*") | |
193 | (insert 192) | |
194 | ) | |
195 | ||
196 | (defun insert-A-acute () | |
197 | (interactive "*") | |
198 | (insert 193) | |
199 | ) | |
200 | ||
201 | (defun insert-A-circumflex () | |
202 | (interactive "*") | |
203 | (insert 194) | |
204 | ) | |
205 | ||
206 | (defun insert-A-tilde () | |
207 | (interactive "*") | |
208 | (insert 195) | |
209 | ) | |
210 | ||
211 | (defun insert-A-umlaut () | |
212 | (interactive "*") | |
213 | (insert 196) | |
214 | ) | |
215 | ||
216 | (defun insert-A-ring () | |
217 | (interactive "*") | |
218 | (insert 197) | |
219 | ) | |
220 | ||
221 | (defun insert-AE () | |
222 | (interactive "*") | |
223 | (insert 198) | |
224 | ) | |
225 | ||
226 | (defun insert-C-cedilla () | |
227 | (interactive "*") | |
228 | (insert 199) | |
229 | ) | |
230 | ||
231 | (defun insert-E-grave () | |
232 | (interactive "*") | |
233 | (insert 200) | |
234 | ) | |
235 | ||
236 | (defun insert-E-acute () | |
237 | (interactive "*") | |
238 | (insert 201) | |
239 | ) | |
240 | ||
241 | (defun insert-E-circumflex () | |
242 | (interactive "*") | |
243 | (insert 202) | |
244 | ) | |
245 | ||
246 | (defun insert-E-umlaut () | |
247 | (interactive "*") | |
248 | (insert 203) | |
249 | ) | |
250 | ||
251 | (defun insert-I-grave () | |
252 | (interactive "*") | |
253 | (insert 204) | |
254 | ) | |
255 | ||
256 | (defun insert-I-acute () | |
257 | (interactive "*") | |
258 | (insert 205) | |
259 | ) | |
260 | ||
261 | (defun insert-I-circumflex () | |
262 | (interactive "*") | |
263 | (insert 206) | |
264 | ) | |
265 | ||
266 | (defun insert-I-umlaut () | |
267 | (interactive "*") | |
268 | (insert 207) | |
269 | ) | |
270 | ||
271 | (defun insert-D-stroke () | |
272 | (interactive "*") | |
273 | (insert 208) | |
274 | ) | |
275 | ||
276 | (defun insert-N-tilde () | |
277 | (interactive "*") | |
278 | (insert 209) | |
279 | ) | |
280 | ||
281 | (defun insert-O-grave () | |
282 | (interactive "*") | |
283 | (insert 210) | |
284 | ) | |
285 | ||
286 | (defun insert-O-acute () | |
287 | (interactive "*") | |
288 | (insert 211) | |
289 | ) | |
290 | ||
291 | (defun insert-O-circumflex () | |
292 | (interactive "*") | |
293 | (insert 212) | |
294 | ) | |
295 | ||
296 | (defun insert-O-tilde () | |
297 | (interactive "*") | |
298 | (insert 213) | |
299 | ) | |
300 | ||
301 | (defun insert-O-umlaut () | |
302 | (interactive "*") | |
303 | (insert 214) | |
304 | ) | |
305 | ||
306 | (defun insert-multiplication-sign () | |
307 | (interactive "*") | |
308 | (insert 215) | |
309 | ) | |
310 | ||
311 | (defun insert-O-slash () | |
312 | (interactive "*") | |
313 | (insert 216) | |
314 | ) | |
315 | ||
316 | (defun insert-U-grave () | |
317 | (interactive "*") | |
318 | (insert 217) | |
319 | ) | |
320 | ||
321 | (defun insert-U-acute () | |
322 | (interactive "*") | |
323 | (insert 218) | |
324 | ) | |
325 | ||
326 | (defun insert-U-circumflex () | |
327 | (interactive "*") | |
328 | (insert 219) | |
329 | ) | |
330 | ||
331 | (defun insert-U-umlaut () | |
332 | (interactive "*") | |
333 | (insert 220) | |
334 | ) | |
335 | ||
336 | (defun insert-Y-acute () | |
337 | (interactive "*") | |
338 | (insert 221) | |
339 | ) | |
340 | ||
341 | (defun insert-THORN () | |
342 | (interactive "*") | |
343 | (insert 222) | |
344 | ) | |
345 | ||
346 | (defun insert-ss () | |
347 | (interactive "*") | |
348 | (insert 223) | |
349 | ) | |
350 | ||
351 | (defun insert-a-grave () | |
352 | (interactive "*") | |
353 | (insert 224) | |
354 | ) | |
355 | ||
356 | (defun insert-a-acute () | |
357 | (interactive "*") | |
358 | (insert 225) | |
359 | ) | |
360 | ||
361 | (defun insert-a-circumflex () | |
362 | (interactive "*") | |
363 | (insert 226) | |
364 | ) | |
365 | ||
366 | (defun insert-a-tilde () | |
367 | (interactive "*") | |
368 | (insert 227) | |
369 | ) | |
370 | ||
371 | (defun insert-a-umlaut () | |
372 | (interactive "*") | |
373 | (insert 228) | |
374 | ) | |
375 | ||
376 | (defun insert-a-ring () | |
377 | (interactive "*") | |
378 | (insert 229) | |
379 | ) | |
380 | ||
381 | (defun insert-ae () | |
382 | (interactive "*") | |
383 | (insert 230) | |
384 | ) | |
385 | ||
386 | (defun insert-c-cedilla () | |
387 | (interactive "*") | |
388 | (insert 231) | |
389 | ) | |
390 | ||
391 | (defun insert-e-grave () | |
392 | (interactive "*") | |
393 | (insert 232) | |
394 | ) | |
395 | ||
396 | (defun insert-e-acute () | |
397 | (interactive "*") | |
398 | (insert 233) | |
399 | ) | |
400 | ||
401 | (defun insert-e-circumflex () | |
402 | (interactive "*") | |
403 | (insert 234) | |
404 | ) | |
405 | ||
406 | (defun insert-e-umlaut () | |
407 | (interactive "*") | |
408 | (insert 235) | |
409 | ) | |
410 | ||
411 | (defun insert-i-grave () | |
412 | (interactive "*") | |
413 | (insert 236) | |
414 | ) | |
415 | ||
416 | (defun insert-i-acute () | |
417 | (interactive "*") | |
418 | (insert 237) | |
419 | ) | |
420 | ||
421 | (defun insert-i-circumflex () | |
422 | (interactive "*") | |
423 | (insert 238) | |
424 | ) | |
425 | ||
426 | (defun insert-i-umlaut () | |
427 | (interactive "*") | |
428 | (insert 239) | |
429 | ) | |
430 | ||
431 | (defun insert-d-stroke () | |
432 | (interactive "*") | |
433 | (insert 240) | |
434 | ) | |
435 | ||
436 | (defun insert-n-tilde () | |
437 | (interactive "*") | |
438 | (insert 241) | |
439 | ) | |
440 | ||
441 | (defun insert-o-grave () | |
442 | (interactive "*") | |
443 | (insert 242) | |
444 | ) | |
445 | ||
446 | (defun insert-o-acute () | |
447 | (interactive "*") | |
448 | (insert 243) | |
449 | ) | |
450 | ||
451 | (defun insert-o-circumflex () | |
452 | (interactive "*") | |
453 | (insert 244) | |
454 | ) | |
455 | ||
456 | (defun insert-o-tilde () | |
457 | (interactive "*") | |
458 | (insert 245) | |
459 | ) | |
460 | ||
461 | (defun insert-o-umlaut () | |
462 | (interactive "*") | |
463 | (insert 246) | |
464 | ) | |
465 | ||
466 | (defun insert-division-sign () | |
467 | (interactive "*") | |
468 | (insert 247) | |
469 | ) | |
470 | ||
471 | (defun insert-o-slash () | |
472 | (interactive "*") | |
473 | (insert 248) | |
474 | ) | |
475 | ||
476 | (defun insert-u-grave () | |
477 | (interactive "*") | |
478 | (insert 249) | |
479 | ) | |
480 | ||
481 | (defun insert-u-acute () | |
482 | (interactive "*") | |
483 | (insert 250) | |
484 | ) | |
485 | ||
486 | (defun insert-u-circumflex () | |
487 | (interactive "*") | |
488 | (insert 251) | |
489 | ) | |
490 | ||
491 | (defun insert-u-umlaut () | |
492 | (interactive "*") | |
493 | (insert 252) | |
494 | ) | |
495 | ||
496 | (defun insert-y-acute () | |
497 | (interactive "*") | |
498 | (insert 253) | |
499 | ) | |
500 | ||
501 | (defun insert-thorn () | |
502 | (interactive "*") | |
503 | (insert 254) | |
504 | ) | |
505 | ||
506 | (defun insert-y-umlaut () | |
507 | (interactive "*") | |
508 | (insert 255) | |
509 | ) | |
510 | ||
511 | (defvar 8859-1-map nil "Keymap for ISO 8859/1 character insertion.") | |
512 | (if 8859-1-map nil | |
513 | (setq 8859-1-map (make-keymap)) | |
514 | (define-key 8859-1-map " " 'insert-no-break-space) | |
515 | (define-key 8859-1-map "!" 'insert-inverted-exclamation-mark) | |
516 | (define-key 8859-1-map "\"" (make-sparse-keymap)) | |
517 | (define-key 8859-1-map "\"\"" 'insert-diaeresis) | |
518 | (define-key 8859-1-map "\"A" 'insert-A-umlaut) | |
519 | (define-key 8859-1-map "\"E" 'insert-E-umlaut) | |
520 | (define-key 8859-1-map "\"I" 'insert-I-umlaut) | |
521 | (define-key 8859-1-map "\"O" 'insert-O-umlaut) | |
522 | (define-key 8859-1-map "\"U" 'insert-U-umlaut) | |
523 | (define-key 8859-1-map "\"a" 'insert-a-umlaut) | |
524 | (define-key 8859-1-map "\"e" 'insert-e-umlaut) | |
525 | (define-key 8859-1-map "\"i" 'insert-i-umlaut) | |
526 | (define-key 8859-1-map "\"o" 'insert-o-umlaut) | |
527 | (define-key 8859-1-map "\"u" 'insert-u-umlaut) | |
528 | (define-key 8859-1-map "\"y" 'insert-y-umlaut) | |
529 | (define-key 8859-1-map "'" (make-sparse-keymap)) | |
530 | (define-key 8859-1-map "''" 'insert-acute-accent) | |
531 | (define-key 8859-1-map "'A" 'insert-A-acute) | |
532 | (define-key 8859-1-map "'E" 'insert-E-acute) | |
533 | (define-key 8859-1-map "'I" 'insert-I-acute) | |
534 | (define-key 8859-1-map "'O" 'insert-O-acute) | |
535 | (define-key 8859-1-map "'U" 'insert-U-acute) | |
536 | (define-key 8859-1-map "'Y" 'insert-Y-acute) | |
537 | (define-key 8859-1-map "'a" 'insert-a-acute) | |
538 | (define-key 8859-1-map "'e" 'insert-e-acute) | |
539 | (define-key 8859-1-map "'i" 'insert-i-acute) | |
540 | (define-key 8859-1-map "'o" 'insert-o-acute) | |
541 | (define-key 8859-1-map "'u" 'insert-u-acute) | |
542 | (define-key 8859-1-map "'y" 'insert-y-acute) | |
543 | (define-key 8859-1-map "$" 'insert-general-currency-sign) | |
544 | (define-key 8859-1-map "+" 'insert-plus-or-minus-sign) | |
545 | (define-key 8859-1-map "," (make-sparse-keymap)) | |
546 | (define-key 8859-1-map ",," 'insert-cedilla) | |
547 | (define-key 8859-1-map ",C" 'insert-C-cedilla) | |
548 | (define-key 8859-1-map ",c" 'insert-c-cedilla) | |
549 | (define-key 8859-1-map "-" 'insert-soft-hyphen) | |
550 | (define-key 8859-1-map "." 'insert-middle-dot) | |
551 | (define-key 8859-1-map "/" (make-sparse-keymap)) | |
552 | (define-key 8859-1-map "//" 'insert-division-sign) | |
553 | (define-key 8859-1-map "/O" 'insert-O-slash) | |
554 | (define-key 8859-1-map "/o" 'insert-o-slash) | |
555 | (define-key 8859-1-map "1" (make-sparse-keymap)) | |
556 | (define-key 8859-1-map "1/" (make-sparse-keymap)) | |
557 | (define-key 8859-1-map "1/2" 'insert-fraction-one-half) | |
558 | (define-key 8859-1-map "1/4" 'insert-fraction-one-quarter) | |
559 | (define-key 8859-1-map "3" (make-sparse-keymap)) | |
560 | (define-key 8859-1-map "3/" (make-sparse-keymap)) | |
561 | (define-key 8859-1-map "3/4" 'insert-fraction-three-quarters) | |
562 | (define-key 8859-1-map "<" 'insert-angle-quotation-mark-left) | |
563 | (define-key 8859-1-map "=" 'insert-macron) | |
564 | (define-key 8859-1-map ">" 'insert-angle-quotation-mark-right) | |
565 | (define-key 8859-1-map "?" 'insert-inverted-question-mark) | |
fb74d955 RS |
566 | (define-key 8859-1-map "A" 'insert-A-ring) |
567 | (define-key 8859-1-map "E" 'insert-AE) | |
3b4a6e27 JB |
568 | (define-key 8859-1-map "C" 'insert-copyright-sign) |
569 | (define-key 8859-1-map "D" 'insert-D-stroke) | |
570 | (define-key 8859-1-map "L" 'insert-pound-sign) | |
571 | (define-key 8859-1-map "P" 'insert-pilcrow) | |
572 | (define-key 8859-1-map "R" 'insert-registered-sign) | |
573 | (define-key 8859-1-map "S" 'insert-section-sign) | |
574 | (define-key 8859-1-map "T" 'insert-THORN) | |
575 | (define-key 8859-1-map "Y" 'insert-yen-sign) | |
576 | (define-key 8859-1-map "^" (make-sparse-keymap)) | |
577 | (define-key 8859-1-map "^1" 'insert-superscript-one) | |
578 | (define-key 8859-1-map "^2" 'insert-superscript-two) | |
579 | (define-key 8859-1-map "^3" 'insert-superscript-three) | |
580 | (define-key 8859-1-map "^A" 'insert-A-circumflex) | |
581 | (define-key 8859-1-map "^E" 'insert-E-circumflex) | |
582 | (define-key 8859-1-map "^I" 'insert-I-circumflex) | |
583 | (define-key 8859-1-map "^O" 'insert-O-circumflex) | |
584 | (define-key 8859-1-map "^U" 'insert-U-circumflex) | |
585 | (define-key 8859-1-map "^a" 'insert-a-circumflex) | |
586 | (define-key 8859-1-map "^e" 'insert-e-circumflex) | |
587 | (define-key 8859-1-map "^i" 'insert-i-circumflex) | |
588 | (define-key 8859-1-map "^o" 'insert-o-circumflex) | |
589 | (define-key 8859-1-map "^u" 'insert-u-circumflex) | |
590 | (define-key 8859-1-map "_" (make-sparse-keymap)) | |
591 | (define-key 8859-1-map "_a" 'insert-ordinal-indicator-feminine) | |
592 | (define-key 8859-1-map "_o" 'insert-ordinal-indicator-masculine) | |
593 | (define-key 8859-1-map "`" (make-sparse-keymap)) | |
594 | (define-key 8859-1-map "`A" 'insert-A-grave) | |
595 | (define-key 8859-1-map "`E" 'insert-E-grave) | |
596 | (define-key 8859-1-map "`I" 'insert-I-grave) | |
597 | (define-key 8859-1-map "`O" 'insert-O-grave) | |
598 | (define-key 8859-1-map "`U" 'insert-U-grave) | |
599 | (define-key 8859-1-map "`a" 'insert-a-grave) | |
600 | (define-key 8859-1-map "`e" 'insert-e-grave) | |
601 | (define-key 8859-1-map "`i" 'insert-i-grave) | |
602 | (define-key 8859-1-map "`o" 'insert-o-grave) | |
603 | (define-key 8859-1-map "`u" 'insert-u-grave) | |
fb74d955 RS |
604 | (define-key 8859-1-map "a" 'insert-a-ring) |
605 | (define-key 8859-1-map "e" 'insert-ae) | |
3b4a6e27 JB |
606 | (define-key 8859-1-map "c" 'insert-cent-sign) |
607 | (define-key 8859-1-map "d" 'insert-d-stroke) | |
608 | (define-key 8859-1-map "o" 'insert-degree-sign) | |
609 | (define-key 8859-1-map "s" 'insert-ss) | |
610 | (define-key 8859-1-map "t" 'insert-thorn) | |
611 | (define-key 8859-1-map "u" 'insert-micro-sign) | |
612 | (define-key 8859-1-map "x" 'insert-multiplication-sign) | |
613 | (define-key 8859-1-map "|" 'insert-broken-vertical-line) | |
614 | (define-key 8859-1-map "~" (make-sparse-keymap)) | |
615 | (define-key 8859-1-map "~A" 'insert-A-tilde) | |
616 | (define-key 8859-1-map "~N" 'insert-N-tilde) | |
617 | (define-key 8859-1-map "~O" 'insert-O-tilde) | |
618 | (define-key 8859-1-map "~a" 'insert-a-tilde) | |
619 | (define-key 8859-1-map "~n" 'insert-n-tilde) | |
620 | (define-key 8859-1-map "~o" 'insert-o-tilde) | |
621 | (define-key 8859-1-map "~~" 'insert-not-sign) | |
622 | (if (not (lookup-key global-map "\C-x8")) | |
623 | (define-key global-map "\C-x8" 8859-1-map)) | |
624 | ) | |
625 | ||
10d5cec6 | 626 | (provide 'iso-insert) |
1a06eabd ER |
627 | |
628 | ;;; iso-insert.el ends here |