1 ;;; latin-pre.el --- Quail packages for inputting various European characters -*-coding: utf-8;-*-
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2000, 2002 Free Software Foundation, Inc.
7 ;; Keywords: mule, multilingual, latin, input method
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 the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
28 ;; Key translation maps were originally copied from iso-acc.el.
29 ;; latin-1-prefix: extra special characters added, adapted from the vim
30 ;; digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>)
31 ;; by R.F. Smith <rsmith@xs4all.nl>
34 ;; Author: Włodek Bzyl <matwb@univ.gda.pl>
35 ;; Maintainer: Włodek Bzyl <matwb@univ.gda.pl>
37 ;; latin-[89]-prefix: Dave Love <fx@gnu.org>
44 "latin-1-prefix" "Latin-1" "1>" t
45 "Latin-1 characters input method with prefix modifiers
47 effect | prefix | examples
48 ------------+--------+----------
49 acute | ' | 'a -> á, '' -> ´
51 circumflex | ^ | ^a -> â
52 diaeresis | \" | \"a -> ä \"\" -> ¨
55 misc | \" ~ / | \"s -> ß ~d -> ð ~t -> þ /a -> å /e -> æ /o -> ø
56 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿ ~~ -> ¸
57 | ~ | ~s -> § ~x -> ¤ ~. -> · ~$ -> £ ~u -> µ
58 | ~ | ~p -> ¶ ~- -> ~= -> ¯ ~| -> ¦
59 symbol | _ / | _o -> º _a -> ª // -> ° /\\ -> × _y -> ¥
60 | _ / | _: -> ÷ /c -> ¢ /2 -> ½ /4 -> ¼ /3 -> ¾
62 symbol | ^ | ^r -> ® ^c -> © ^1 -> ¹ ^2 -> ² ^3 -> ³
63 " nil t nil nil nil nil nil nil nil nil t)
146 ;; Symbols added by Roland Smith <rsmith@xs4all.nl>
173 (quail-define-package
174 "catalan-prefix" "Latin-1" "CA>" t
175 "Catalan and Spanish input method with prefix modifiers
177 effect | prefix | examples
178 ------------+--------+----------
179 acute | ' | 'a -> á '' -> ´
181 diaeresis | \" | \"i -> ï \"\" -> ¨
183 cedilla | ~ | ~c -> ç
184 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿
185 " nil t nil nil nil nil nil nil nil nil t)
222 (quail-define-package
223 "esperanto-prefix" "Latin-3" "EO>" t
224 "Esperanto input method with prefix modifiers
225 Key translation rules are:
226 ^H -> ?Ĥ ^J -> ?Ĵ ^h -> ?ĥ ^j -> ?ĵ ^C -> ?Ĉ ^G -> ?Ĝ,
227 ^S -> ?Ŝ ^c -> ?ĉ ^g -> ?ĝ ^s -> ?ŝ ~U -> ?Ŭ ~u -> ?ŭ
228 " nil t nil nil nil nil nil nil nil nil t)
248 (quail-define-package
249 "french-prefix" "French" "FR>" t
250 "French (Français) input method with prefix modifiers
252 effect | prefix | examples
253 ------------+--------+----------
256 circumflex | ^ | ^a -> â
257 diaeresis | \" | \"i -> ï
258 cedilla | ~ or , | ~c -> ç ,c -> ç
259 symbol | ~ | ~> -> » ~< -> «
260 " nil t nil nil nil nil nil nil nil nil t)
301 (quail-define-package
302 "romanian-prefix" "Romanian" "RO>" t
303 "Romanian (româneşte) input method with prefix modifiers
305 effect | prefix | examples
306 ------------+--------+------------------
308 circumflex | ^ | ^a -> â, ^i -> î
309 cedilla | , | ,s -> ş, ,t -> ţ
313 " nil t nil nil nil nil nil nil nil nil t)
321 ("^^" ?^) ("~~" ?~) (",," ?,))
323 (quail-define-package
324 "romanian-alt-prefix" "Romanian" "RO>" t
325 "Alternative Romanian (româneşte) input method with prefix modifiers
327 effect | prefix | examples
328 ------------+--------+------------------
329 tilde | \" | \"a -> â
330 circumflex | ' | 'a -> â, 'i -> î
331 cedilla | ' | 's -> ş, 't -> ţ
334 " nil t nil nil nil nil nil nil nil nil t)
338 ("\"A" ?Â) ("\"a" ?â)
342 ("''" ?') ("\"\"" ?\"))
344 (quail-define-package
345 "german-prefix" "German" "DE>" t
346 "German (Deutsch) input method with prefix modifiers
347 Key translation rules are:
348 \"A -> Ä -> \"O -> Ö \"U -> Ü \"s -> ?ß
349 " nil t nil nil nil nil nil nil nil nil t)
362 (quail-define-package
363 "irish-prefix" "Latin-1" "GA>" t
364 "Irish input method with prefix modifiers
365 Key translation rules are:
366 'A -> Á 'E -> É 'I -> Í 'O -> Ó 'U -> Ú
367 " nil t nil nil nil nil nil nil nil nil t)
383 (quail-define-package
384 "portuguese-prefix" "Latin-1" "PT>" t
385 "Portuguese input method with prefix modifiers
387 effect | prefix | examples
388 ------------+--------+----------
389 acute | ' | 'a -> á '' -> ´
391 circumflex | ^ | ^a -> â
392 diaeresis | \" | \"u -> ü
394 cedilla | ' or , | 'c -> ç ,c -> ç
395 " nil t nil nil nil nil nil nil nil nil t)
434 (quail-define-package
435 "spanish-prefix" "Spanish" "ES>" t
436 "Spanish (Español) input method with prefix modifiers
438 effect | prefix | examples
439 ------------+--------+----------
441 diaeresis | \" | \"u -> ü
443 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿
444 " nil t nil nil nil nil nil nil nil nil t)
470 (quail-define-package
471 "latin-2-prefix" "Latin-2" "2>" t
472 "Latin-2 characters input method with prefix modifiers
474 effect | prefix | examples
475 ------------+--------+----------
476 acute | ' | 'a -> á '' -> ?´
477 circumflex | ^ | ^a -> â
478 diaeresis | \" | \"a -> ä \"\" -> ¨
481 cedilla | ` | `c -> ç `e -> ?ę
482 misc | ' ` ~ | 'd -> đ `l -> ł `z -> ż ~o -> ő ~u -> ű
483 symbol | ~ | `. -> ˙ ~~ -> ˘ ~. -> ?¸
484 " nil t nil nil nil nil nil nil nil nil t)
581 (quail-define-package
582 "latin-3-prefix" "Latin-3" "3>" t
583 "Latin-3 characters input method with prefix modifiers
585 effect | prefix | examples
586 ------------+--------+----------
587 acute | ' | 'a -> á '' -> ?´
589 circumflex | ^ | ^a -> â
590 diaeresis | \" | \"a -> ä \"\" -> ¨
591 cedilla | ~ | ~c -> ç ~s -> ş ~~ -> ¸
592 dot above | ~ / . | ~o -> ġ /o -> ġ .o -> ġ
593 misc | \" ~ / | \"s -> ß ~g -> ğ ~u -> ŭ /h -> ħ /i -> ı
594 symbol | ~ | ~` -> ˘ /# -> £ /$ -> ¤ // -> °
595 " nil t nil nil nil nil nil nil nil nil t)
697 (quail-define-package
698 "polish-slash" "Polish" "PL>" nil
699 "Polish diacritics are input as `/[acelnosxzACELNOSXZ]'.
700 For example, the character named `aogonek' is obtained by `/a'."
701 nil t t t nil nil nil nil nil nil t)
723 (quail-define-package
724 "latin-9-prefix" "Latin-9" "0>" t
725 "Latin-9 characters input method with prefix modifiers
727 effect | prefix | examples
728 ------------+--------+----------
731 circumflex | ^ | ^a -> â
732 diaeresis | \" | \"a -> ä, \"Y -> Ÿ
735 cedilla | ~ | ~c -> ç
736 misc | \" ~ / | \"s -> ß ~d -> ð ~t -> þ /a -> å /e -> æ /o -> ø
738 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿ ~~ -> ž
739 | ~ | ~s -> § ~e -> € ~. -> · ~$ -> £ ~u -> µ
740 | ~ | ~- -> ~= -> ¯
741 symbol | _ / | _o -> º _a -> ª // -> ° /\\ -> × _y -> ¥
742 | _ / | _: -> ÷ /c -> ¢ ~p -> ¶
744 symbol | ^ | ^r -> ® ^c -> © ^1 -> ¹ ^2 -> ² ^3 -> ³ _a -> ª
745 " nil t nil nil nil nil nil nil nil nil t)
835 ("/o" ?œ) ; clash with ø, but æ uses /
840 ;; Is this the best option for Euro entry?
854 ;; Latin-8 was done by an Englishman -- Johnny Celt should take a
857 (quail-define-package
858 "latin-8-prefix" "Latin-8" "8>" t
859 "Latin-8 characters input method with prefix modifiers
861 effect | prefix | examples
862 ------------+--------+----------
865 circumflex | ^ | ^w -> ŵ
866 diaeresis | \" | \"a -> ä
867 dot above | . | .b -> ḃ
869 cedilla | ~ | ~c -> ç
870 misc | \" ~ / | \"s -> ß /a -> å /e -> æ /o -> ø
871 | ~ | ~s -> § ~$ -> £ ~p -> ¶
872 symbol | ^ | ^r -> ® ^c -> ©
873 " nil t nil nil nil nil nil nil nil nil t)
875 ;; Basically following Latin-1 plus dottiness from Latin-3.
982 (quail-define-package
983 "latin-prefix" "Latin" "L>" t
984 "Latin characters input method with prefix modifiers.
985 This is the union of various input methods originally made for input
986 of characters from a single Latin-N charset.
988 effect | prefix | examples
989 ------------+--------+----------
990 acute | ' | 'a -> á, '' -> ´
992 circumflex | ^ | ^a -> â
993 diaeresis | \" | \"a -> ä \"\" -> ¨
995 cedilla | ~ | ~c -> ç
998 dot above | ~ / . | ~o -> ġ /o -> ġ .o -> ġ
999 misc | \" ~ / | \"s -> ß ~d -> ð ~t -> þ /a -> å /e -> æ /o -> ø
1000 symbol | ~ | ~> -> » ~< -> « ~! -> ¡ ~? -> ¿ ~~ -> ¸
1001 symbol | _ / | _o -> º _a -> ª // -> ° /\\ -> × _y -> ¥
1002 symbol | ^ | ^r -> ® ^c -> © ^1 -> ¹ ^2 -> ² ^3 -> ³
1003 " nil t nil nil nil nil nil nil nil nil t)
1185 ;;; latin-pre.el ends here