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