1 ;;; iso-insert.el --- insert functions for ISO 8859/1.
3 ;; Author: Howard Gayle
5 ;; Last-Modified: 16 Mar 1992
7 ;; Copyright (C) 1987 Free Software Foundation, Inc.
9 ;; This file is part of GNU Emacs.
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
13 ;; the Free Software Foundation; either version 2, or (at your option)
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.
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.
27 ;; Written by Howard Gayle. See case-table.el for details.
29 (defun insert-no-break-space ()
34 (defun insert-inverted-exclamation-mark ()
39 (defun insert-cent-sign ()
44 (defun insert-pound-sign ()
49 (defun insert-general-currency-sign ()
54 (defun insert-yen-sign ()
59 (defun insert-broken-vertical-line ()
64 (defun insert-section-sign ()
69 (defun insert-diaeresis ()
74 (defun insert-copyright-sign ()
79 (defun insert-ordinal-indicator-feminine ()
84 (defun insert-angle-quotation-mark-left ()
89 (defun insert-not-sign ()
94 (defun insert-soft-hyphen ()
99 (defun insert-registered-sign ()
104 (defun insert-macron ()
109 (defun insert-degree-sign ()
114 (defun insert-plus-or-minus-sign ()
119 (defun insert-superscript-two ()
124 (defun insert-superscript-three ()
129 (defun insert-acute-accent ()
134 (defun insert-micro-sign ()
139 (defun insert-pilcrow ()
144 (defun insert-middle-dot ()
149 (defun insert-cedilla ()
154 (defun insert-superscript-one ()
159 (defun insert-ordinal-indicator-masculine ()
164 (defun insert-angle-quotation-mark-right ()
169 (defun insert-fraction-one-quarter ()
174 (defun insert-fraction-one-half ()
179 (defun insert-fraction-three-quarters ()
184 (defun insert-inverted-question-mark ()
189 (defun insert-A-grave ()
194 (defun insert-A-acute ()
199 (defun insert-A-circumflex ()
204 (defun insert-A-tilde ()
209 (defun insert-A-umlaut ()
214 (defun insert-A-ring ()
224 (defun insert-C-cedilla ()
229 (defun insert-E-grave ()
234 (defun insert-E-acute ()
239 (defun insert-E-circumflex ()
244 (defun insert-E-umlaut ()
249 (defun insert-I-grave ()
254 (defun insert-I-acute ()
259 (defun insert-I-circumflex ()
264 (defun insert-I-umlaut ()
269 (defun insert-D-stroke ()
274 (defun insert-N-tilde ()
279 (defun insert-O-grave ()
284 (defun insert-O-acute ()
289 (defun insert-O-circumflex ()
294 (defun insert-O-tilde ()
299 (defun insert-O-umlaut ()
304 (defun insert-multiplication-sign ()
309 (defun insert-O-slash ()
314 (defun insert-U-grave ()
319 (defun insert-U-acute ()
324 (defun insert-U-circumflex ()
329 (defun insert-U-umlaut ()
334 (defun insert-Y-acute ()
339 (defun insert-THORN ()
349 (defun insert-a-grave ()
354 (defun insert-a-acute ()
359 (defun insert-a-circumflex ()
364 (defun insert-a-tilde ()
369 (defun insert-a-umlaut ()
374 (defun insert-a-ring ()
384 (defun insert-c-cedilla ()
389 (defun insert-e-grave ()
394 (defun insert-e-acute ()
399 (defun insert-e-circumflex ()
404 (defun insert-e-umlaut ()
409 (defun insert-i-grave ()
414 (defun insert-i-acute ()
419 (defun insert-i-circumflex ()
424 (defun insert-i-umlaut ()
429 (defun insert-d-stroke ()
434 (defun insert-n-tilde ()
439 (defun insert-o-grave ()
444 (defun insert-o-acute ()
449 (defun insert-o-circumflex ()
454 (defun insert-o-tilde ()
459 (defun insert-o-umlaut ()
464 (defun insert-division-sign ()
469 (defun insert-o-slash ()
474 (defun insert-u-grave ()
479 (defun insert-u-acute ()
484 (defun insert-u-circumflex ()
489 (defun insert-u-umlaut ()
494 (defun insert-y-acute ()
499 (defun insert-thorn ()
504 (defun insert-y-umlaut ()
509 (defvar 8859-
1-map nil
"Keymap for ISO 8859/1 character insertion.")
511 (setq 8859-
1-map
(make-keymap))
512 (define-key 8859-
1-map
" " 'insert-no-break-space
)
513 (define-key 8859-
1-map
"!" 'insert-inverted-exclamation-mark
)
514 (define-key 8859-
1-map
"\"" (make-sparse-keymap))
515 (define-key 8859-
1-map
"\"\"" 'insert-diaeresis
)
516 (define-key 8859-
1-map
"\"A" 'insert-A-umlaut
)
517 (define-key 8859-
1-map
"\"E" 'insert-E-umlaut
)
518 (define-key 8859-
1-map
"\"I" 'insert-I-umlaut
)
519 (define-key 8859-
1-map
"\"O" 'insert-O-umlaut
)
520 (define-key 8859-
1-map
"\"U" 'insert-U-umlaut
)
521 (define-key 8859-
1-map
"\"a" 'insert-a-umlaut
)
522 (define-key 8859-
1-map
"\"e" 'insert-e-umlaut
)
523 (define-key 8859-
1-map
"\"i" 'insert-i-umlaut
)
524 (define-key 8859-
1-map
"\"o" 'insert-o-umlaut
)
525 (define-key 8859-
1-map
"\"u" 'insert-u-umlaut
)
526 (define-key 8859-
1-map
"\"y" 'insert-y-umlaut
)
527 (define-key 8859-
1-map
"'" (make-sparse-keymap))
528 (define-key 8859-
1-map
"''" 'insert-acute-accent
)
529 (define-key 8859-
1-map
"'A" 'insert-A-acute
)
530 (define-key 8859-
1-map
"'E" 'insert-E-acute
)
531 (define-key 8859-
1-map
"'I" 'insert-I-acute
)
532 (define-key 8859-
1-map
"'O" 'insert-O-acute
)
533 (define-key 8859-
1-map
"'U" 'insert-U-acute
)
534 (define-key 8859-
1-map
"'Y" 'insert-Y-acute
)
535 (define-key 8859-
1-map
"'a" 'insert-a-acute
)
536 (define-key 8859-
1-map
"'e" 'insert-e-acute
)
537 (define-key 8859-
1-map
"'i" 'insert-i-acute
)
538 (define-key 8859-
1-map
"'o" 'insert-o-acute
)
539 (define-key 8859-
1-map
"'u" 'insert-u-acute
)
540 (define-key 8859-
1-map
"'y" 'insert-y-acute
)
541 (define-key 8859-
1-map
"$" 'insert-general-currency-sign
)
542 (define-key 8859-
1-map
"+" 'insert-plus-or-minus-sign
)
543 (define-key 8859-
1-map
"," (make-sparse-keymap))
544 (define-key 8859-
1-map
",," 'insert-cedilla
)
545 (define-key 8859-
1-map
",C" 'insert-C-cedilla
)
546 (define-key 8859-
1-map
",c" 'insert-c-cedilla
)
547 (define-key 8859-
1-map
"-" 'insert-soft-hyphen
)
548 (define-key 8859-
1-map
"." 'insert-middle-dot
)
549 (define-key 8859-
1-map
"/" (make-sparse-keymap))
550 (define-key 8859-
1-map
"//" 'insert-division-sign
)
551 (define-key 8859-
1-map
"/O" 'insert-O-slash
)
552 (define-key 8859-
1-map
"/o" 'insert-o-slash
)
553 (define-key 8859-
1-map
"1" (make-sparse-keymap))
554 (define-key 8859-
1-map
"1/" (make-sparse-keymap))
555 (define-key 8859-
1-map
"1/2" 'insert-fraction-one-half
)
556 (define-key 8859-
1-map
"1/4" 'insert-fraction-one-quarter
)
557 (define-key 8859-
1-map
"3" (make-sparse-keymap))
558 (define-key 8859-
1-map
"3/" (make-sparse-keymap))
559 (define-key 8859-
1-map
"3/4" 'insert-fraction-three-quarters
)
560 (define-key 8859-
1-map
"<" 'insert-angle-quotation-mark-left
)
561 (define-key 8859-
1-map
"=" 'insert-macron
)
562 (define-key 8859-
1-map
">" 'insert-angle-quotation-mark-right
)
563 (define-key 8859-
1-map
"?" 'insert-inverted-question-mark
)
564 (define-key 8859-
1-map
"A" (make-sparse-keymap))
565 (define-key 8859-
1-map
"AA" 'insert-A-ring
)
566 (define-key 8859-
1-map
"AE" 'insert-AE
)
567 (define-key 8859-
1-map
"C" 'insert-copyright-sign
)
568 (define-key 8859-
1-map
"D" 'insert-D-stroke
)
569 (define-key 8859-
1-map
"L" 'insert-pound-sign
)
570 (define-key 8859-
1-map
"P" 'insert-pilcrow
)
571 (define-key 8859-
1-map
"R" 'insert-registered-sign
)
572 (define-key 8859-
1-map
"S" 'insert-section-sign
)
573 (define-key 8859-
1-map
"T" 'insert-THORN
)
574 (define-key 8859-
1-map
"Y" 'insert-yen-sign
)
575 (define-key 8859-
1-map
"^" (make-sparse-keymap))
576 (define-key 8859-
1-map
"^1" 'insert-superscript-one
)
577 (define-key 8859-
1-map
"^2" 'insert-superscript-two
)
578 (define-key 8859-
1-map
"^3" 'insert-superscript-three
)
579 (define-key 8859-
1-map
"^A" 'insert-A-circumflex
)
580 (define-key 8859-
1-map
"^E" 'insert-E-circumflex
)
581 (define-key 8859-
1-map
"^I" 'insert-I-circumflex
)
582 (define-key 8859-
1-map
"^O" 'insert-O-circumflex
)
583 (define-key 8859-
1-map
"^U" 'insert-U-circumflex
)
584 (define-key 8859-
1-map
"^a" 'insert-a-circumflex
)
585 (define-key 8859-
1-map
"^e" 'insert-e-circumflex
)
586 (define-key 8859-
1-map
"^i" 'insert-i-circumflex
)
587 (define-key 8859-
1-map
"^o" 'insert-o-circumflex
)
588 (define-key 8859-
1-map
"^u" 'insert-u-circumflex
)
589 (define-key 8859-
1-map
"_" (make-sparse-keymap))
590 (define-key 8859-
1-map
"_a" 'insert-ordinal-indicator-feminine
)
591 (define-key 8859-
1-map
"_o" 'insert-ordinal-indicator-masculine
)
592 (define-key 8859-
1-map
"`" (make-sparse-keymap))
593 (define-key 8859-
1-map
"`A" 'insert-A-grave
)
594 (define-key 8859-
1-map
"`E" 'insert-E-grave
)
595 (define-key 8859-
1-map
"`I" 'insert-I-grave
)
596 (define-key 8859-
1-map
"`O" 'insert-O-grave
)
597 (define-key 8859-
1-map
"`U" 'insert-U-grave
)
598 (define-key 8859-
1-map
"`a" 'insert-a-grave
)
599 (define-key 8859-
1-map
"`e" 'insert-e-grave
)
600 (define-key 8859-
1-map
"`i" 'insert-i-grave
)
601 (define-key 8859-
1-map
"`o" 'insert-o-grave
)
602 (define-key 8859-
1-map
"`u" 'insert-u-grave
)
603 (define-key 8859-
1-map
"a" (make-sparse-keymap))
604 (define-key 8859-
1-map
"aa" 'insert-a-ring
)
605 (define-key 8859-
1-map
"ae" 'insert-ae
)
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
))
626 (provide 'iso8859-1-insert
)
628 ;;; iso-insert.el ends here