aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--lisp/international/iso-transl.el722
1 files changed, 118 insertions, 604 deletions
diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el
index c7c8c2bd8b6..9e0f4f21fb0 100644
--- a/lisp/international/iso-transl.el
+++ b/lisp/international/iso-transl.el
@@ -22,609 +22,123 @@
22;; along with GNU Emacs; see the file COPYING. If not, write to 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. 23;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
24 24
25;;; Commentary:
26
27;; Written by Howard Gayle. See case-table.el for details.
28
29;;; Code: 25;;; Code:
30 26
31(defun insert-no-break-space () 27(let ((map (make-sparse-keymap)))
32 (interactive "*") 28 (define-key map " " [160])
33 (insert 160) 29 (define-key map "!" [161])
34) 30 (define-key map "\"" (make-sparse-keymap))
35 31 (define-key map "\"\"" [168])
36(defun insert-inverted-exclamation-mark () 32 (define-key map "\"A" [196])
37 (interactive "*") 33 (define-key map "\"E" [203])
38 (insert 161) 34 (define-key map "\"I" [207])
39) 35 (define-key map "\"O" [214])
40 36 (define-key map "\"U" [220])
41(defun insert-cent-sign () 37 (define-key map "\"a" [228])
42 (interactive "*") 38 (define-key map "\"e" [235])
43 (insert 162) 39 (define-key map "\"i" [239])
44) 40 (define-key map "\"o" [246])
45 41 (define-key map "\"u" [252])
46(defun insert-pound-sign () 42 (define-key map "\"y" [255])
47 (interactive "*") 43 (define-key map "'" (make-sparse-keymap))
48 (insert 163) 44 (define-key map "''" [180])
49) 45 (define-key map "'A" [193])
50 46 (define-key map "'E" [201])
51(defun insert-general-currency-sign () 47 (define-key map "'I" [205])
52 (interactive "*") 48 (define-key map "'O" [211])
53 (insert 164) 49 (define-key map "'U" [218])
54) 50 (define-key map "'Y" [221])
55 51 (define-key map "'a" [225])
56(defun insert-yen-sign () 52 (define-key map "'e" [233])
57 (interactive "*") 53 (define-key map "'i" [237])
58 (insert 165) 54 (define-key map "'o" [243])
59) 55 (define-key map "'u" [250])
60 56 (define-key map "'y" [253])
61(defun insert-broken-vertical-line () 57 (define-key map "$" [164])
62 (interactive "*") 58 (define-key map "+" [177])
63 (insert 166) 59 (define-key map "," (make-sparse-keymap))
64) 60 (define-key map ",," [184])
65 61 (define-key map ",C" [199])
66(defun insert-section-sign () 62 (define-key map ",c" [231])
67 (interactive "*") 63 (define-key map "-" [173])
68 (insert 167) 64 (define-key map "." [183])
69) 65 (define-key map "/" (make-sparse-keymap))
70 66 (define-key map "//" [247])
71(defun insert-diaeresis () 67 (define-key map "/O" [216])
72 (interactive "*") 68 (define-key map "/o" [248])
73 (insert 168) 69 (define-key map "1" (make-sparse-keymap))
74) 70 (define-key map "1/" (make-sparse-keymap))
75 71 (define-key map "1/2" [189])
76(defun insert-copyright-sign () 72 (define-key map "1/4" [188])
77 (interactive "*") 73 (define-key map "3" (make-sparse-keymap))
78 (insert 169) 74 (define-key map "3/" (make-sparse-keymap))
79) 75 (define-key map "3/4" [190])
80 76 (define-key map "<" [171])
81(defun insert-ordinal-indicator-feminine () 77 (define-key map "=" [175])
82 (interactive "*") 78 (define-key map ">" [187])
83 (insert 170) 79 (define-key map "?" [191])
84) 80 (define-key map "A" (make-sparse-keymap))
85 81 (define-key map "AA" [197])
86(defun insert-angle-quotation-mark-left () 82 (define-key map "AE" [198])
87 (interactive "*") 83 (define-key map "C" [169])
88 (insert 171) 84 (define-key map "D" [208])
89) 85 (define-key map "L" [163])
90 86 (define-key map "P" [182])
91(defun insert-not-sign () 87 (define-key map "R" [174])
92 (interactive "*") 88 (define-key map "S" [167])
93 (insert 172) 89 (define-key map "T" [222])
94) 90 (define-key map "Y" [165])
95 91 (define-key map "^" (make-sparse-keymap))
96(defun insert-soft-hyphen () 92 (define-key map "^1" [185])
97 (interactive "*") 93 (define-key map "^2" [178])
98 (insert 173) 94 (define-key map "^3" [179])
99) 95 (define-key map "^A" [194])
100 96 (define-key map "^E" [202])
101(defun insert-registered-sign () 97 (define-key map "^I" [206])
102 (interactive "*") 98 (define-key map "^O" [212])
103 (insert 174) 99 (define-key map "^U" [219])
104) 100 (define-key map "^a" [226])
105 101 (define-key map "^e" [234])
106(defun insert-macron () 102 (define-key map "^i" [238])
107 (interactive "*") 103 (define-key map "^o" [244])
108 (insert 175) 104 (define-key map "^u" [251])
109) 105 (define-key map "_" (make-sparse-keymap))
110 106 (define-key map "_a" [170])
111(defun insert-degree-sign () 107 (define-key map "_o" [186])
112 (interactive "*") 108 (define-key map "`" (make-sparse-keymap))
113 (insert 176) 109 (define-key map "`A" [192])
114) 110 (define-key map "`E" [200])
115 111 (define-key map "`I" [204])
116(defun insert-plus-or-minus-sign () 112 (define-key map "`O" [210])
117 (interactive "*") 113 (define-key map "`U" [217])
118 (insert 177) 114 (define-key map "`a" [224])
119) 115 (define-key map "`e" [232])
120 116 (define-key map "`i" [236])
121(defun insert-superscript-two () 117 (define-key map "`o" [242])
122 (interactive "*") 118 (define-key map "`u" [249])
123 (insert 178) 119 (define-key map "a" (make-sparse-keymap))
124) 120 (define-key map "aa" [229])
125 121 (define-key map "ae" [230])
126(defun insert-superscript-three () 122 (define-key map "c" [162])
127 (interactive "*") 123 (define-key map "d" [240])
128 (insert 179) 124 (define-key map "o" [176])
129) 125 (define-key map "s" [223])
130 126 (define-key map "t" [254])
131(defun insert-acute-accent () 127 (define-key map "u" [181])
132 (interactive "*") 128 (define-key map "x" [215])
133 (insert 180) 129 (define-key map "|" [166])
134) 130 (define-key map "~" (make-sparse-keymap))
135 131 (define-key map "~A" [195])
136(defun insert-micro-sign () 132 (define-key map "~N" [209])
137 (interactive "*") 133 (define-key map "~O" [213])
138 (insert 181) 134 (define-key map "~a" [227])
139) 135 (define-key map "~n" [241])
140 136 (define-key map "~o" [245])
141(defun insert-pilcrow () 137 (define-key map "~~" [172])
142 (interactive "*") 138 (or key-translation-map
143 (insert 182) 139 (setq key-translation-map (make-sparse-keymap)))
144) 140 (define-key key-translation-map "\C-x8" map))
145 141
146(defun insert-middle-dot () 142(provide 'iso-transl)
147 (interactive "*") 143
148 (insert 183) 144;;; iso-transl.el ends here
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)
566 (define-key 8859-1-map "A" (make-sparse-keymap))
567 (define-key 8859-1-map "AA" 'insert-A-ring)
568 (define-key 8859-1-map "AE" 'insert-AE)
569 (define-key 8859-1-map "C" 'insert-copyright-sign)
570 (define-key 8859-1-map "D" 'insert-D-stroke)
571 (define-key 8859-1-map "L" 'insert-pound-sign)
572 (define-key 8859-1-map "P" 'insert-pilcrow)
573 (define-key 8859-1-map "R" 'insert-registered-sign)
574 (define-key 8859-1-map "S" 'insert-section-sign)
575 (define-key 8859-1-map "T" 'insert-THORN)
576 (define-key 8859-1-map "Y" 'insert-yen-sign)
577 (define-key 8859-1-map "^" (make-sparse-keymap))
578 (define-key 8859-1-map "^1" 'insert-superscript-one)
579 (define-key 8859-1-map "^2" 'insert-superscript-two)
580 (define-key 8859-1-map "^3" 'insert-superscript-three)
581 (define-key 8859-1-map "^A" 'insert-A-circumflex)
582 (define-key 8859-1-map "^E" 'insert-E-circumflex)
583 (define-key 8859-1-map "^I" 'insert-I-circumflex)
584 (define-key 8859-1-map "^O" 'insert-O-circumflex)
585 (define-key 8859-1-map "^U" 'insert-U-circumflex)
586 (define-key 8859-1-map "^a" 'insert-a-circumflex)
587 (define-key 8859-1-map "^e" 'insert-e-circumflex)
588 (define-key 8859-1-map "^i" 'insert-i-circumflex)
589 (define-key 8859-1-map "^o" 'insert-o-circumflex)
590 (define-key 8859-1-map "^u" 'insert-u-circumflex)
591 (define-key 8859-1-map "_" (make-sparse-keymap))
592 (define-key 8859-1-map "_a" 'insert-ordinal-indicator-feminine)
593 (define-key 8859-1-map "_o" 'insert-ordinal-indicator-masculine)
594 (define-key 8859-1-map "`" (make-sparse-keymap))
595 (define-key 8859-1-map "`A" 'insert-A-grave)
596 (define-key 8859-1-map "`E" 'insert-E-grave)
597 (define-key 8859-1-map "`I" 'insert-I-grave)
598 (define-key 8859-1-map "`O" 'insert-O-grave)
599 (define-key 8859-1-map "`U" 'insert-U-grave)
600 (define-key 8859-1-map "`a" 'insert-a-grave)
601 (define-key 8859-1-map "`e" 'insert-e-grave)
602 (define-key 8859-1-map "`i" 'insert-i-grave)
603 (define-key 8859-1-map "`o" 'insert-o-grave)
604 (define-key 8859-1-map "`u" 'insert-u-grave)
605 (define-key 8859-1-map "a" (make-sparse-keymap))
606 (define-key 8859-1-map "aa" 'insert-a-ring)
607 (define-key 8859-1-map "ae" 'insert-ae)
608 (define-key 8859-1-map "c" 'insert-cent-sign)
609 (define-key 8859-1-map "d" 'insert-d-stroke)
610 (define-key 8859-1-map "o" 'insert-degree-sign)
611 (define-key 8859-1-map "s" 'insert-ss)
612 (define-key 8859-1-map "t" 'insert-thorn)
613 (define-key 8859-1-map "u" 'insert-micro-sign)
614 (define-key 8859-1-map "x" 'insert-multiplication-sign)
615 (define-key 8859-1-map "|" 'insert-broken-vertical-line)
616 (define-key 8859-1-map "~" (make-sparse-keymap))
617 (define-key 8859-1-map "~A" 'insert-A-tilde)
618 (define-key 8859-1-map "~N" 'insert-N-tilde)
619 (define-key 8859-1-map "~O" 'insert-O-tilde)
620 (define-key 8859-1-map "~a" 'insert-a-tilde)
621 (define-key 8859-1-map "~n" 'insert-n-tilde)
622 (define-key 8859-1-map "~o" 'insert-o-tilde)
623 (define-key 8859-1-map "~~" 'insert-not-sign)
624 (if (not (lookup-key global-map "\C-x8"))
625 (define-key global-map "\C-x8" 8859-1-map))
626)
627
628(provide 'iso-insert)
629
630;;; iso-insert.el ends here
generated by cgit v1.2.1 (git 2.18.0) at 2026-01-26 09:02:07 +0000