;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2000 Free Software Foundation, Inc.
;; Keywords: mule, multilingual, latin, input method
;;; Commentary:
-;; All key translation maps are copied from iso-acc.el.
+;; Key translation maps were originally copied from iso-acc.el.
+;; latin-1-prefix: extra special characters added, adapted from the vim
+;; digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>)
+;; by R.F. Smith <rsmith@xs4all.nl>
+;;
+;; polish-slash:
+;; Author: W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
+;; Maintainer: W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
+;;
+;; latin-[89]-prefix: Dave Love <fx@gnu.org>
;;; Code:
acute | ' | 'a -> \e,Aa\e(B, '' -> \e,A4\e(B
grave | ` | `a -> \e,A`\e(B
circumflex | ^ | ^a -> \e,Ab\e(B
- diaeresis | \" | \"a -> \e,Ad\e(B \"\" -> \e,A(\e(B
+ diaeresis | \" | \"a -> \e,Ad\e(B \"\" -> \e,A(\e(B
tilde | ~ | ~a -> \e,Ac\e(B
cedilla | ~ | ~c -> \e,Ag\e(B
- misc | \" ~ / | \"s -> \e,A_\e(B ~d -> \e,Ap\e(B ~t -> \e,A~\e(B /a -> \e,Ae\e(B /e -> \e,Af\e(B /o -> \e,Ax\e(B
- symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B ~! -> \e,A!\e(B ~? -> \e,A?\e(B ~~ -> \e,A8\e(B
- symbol | _ / | _o -> \e,A:\e(B _a -> \e,A*\e(B // -> \e,A0\e(B
+ misc | \" ~ / | \"s -> \e,A_\e(B ~d -> \e,Ap\e(B ~t -> \e,A~\e(B /a -> \e,Ae\e(B /e -> \e,Af\e(B /o -> \e,Ax\e(B
+ symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B ~! -> \e,A!\e(B ~? -> \e,A?\e(B ~~ -> \e,A8\e(B
+ | ~ | ~s -> \e,A'\e(B ~x -> \e,A$\e(B ~. -> \e,A7\e(B ~$ -> \e,A#\e(B ~u -> \e,A5\e(B
+ | ~ | ~p -> \e,A6\e(B ~- -> \e,A-\e(B ~= -> \e,A/\e(B ~| -> \e,A&\e(B
+ symbol | _ / | _o -> \e,A:\e(B _a -> \e,A*\e(B // -> \e,A0\e(B /\\ -> \e,AW\e(B _y -> \e,A%\e(B
+ | _ / | _: -> \e,Aw\e(B /c -> \e,A"\e(B /2 -> \e,A=\e(B /4 -> \e,A<\e(B /3 -> \e,A>\e(B
+ | _ / | /= => \e,A,\e(B
+ symbol | ^ | ^r -> \e,A.\e(B ^c -> \e,A)\e(B ^1 -> \e,A9\e(B ^2 -> \e,A2\e(B ^3 -> \e,A3\e(B
" nil t nil nil nil nil nil nil nil nil t)
+;; Fixme: should we have non-break space somehow? Is so, how?
(quail-define-rules
("'A" ?\e,AA\e(B)
("'E" ?\e,AI\e(B)
("/ " ?/)
("_o" ?\e,A:\e(B)
("_a" ?\e,A*\e(B)
+;; Symbols added by Roland Smith <rsmith@xs4all.nl>
+ ("_+" ?\e,A1\e(B)
+ ("_y" ?\e,A%\e(B)
+ ("_:" ?\e,Aw\e(B)
+ ("/c" ?\e,A"\e(B)
+ ("/\\" ?\e,AW\e(B)
+ ("/2" ?\e,A=\e(B)
+ ("/4" ?\e,A<\e(B)
+ ("/3" ?\e,A>\e(B)
+ ("~s" ?\e,A'\e(B)
+ ("~p" ?\e,A6\e(B)
+ ("~x" ?\e,A$\e(B)
+ ("~." ?\e,A7\e(B)
+ ("~$" ?\e,A#\e(B)
+ ("~u" ?\e,A5\e(B)
+ ("^r" ?\e,A.\e(B)
+ ("^c" ?\e,A)\e(B)
+ ("^1" ?\e,A9\e(B)
+ ("^2" ?\e,A2\e(B)
+ ("^3" ?\e,A3\e(B)
+ ("~-" ?\e,A-\e(B)
+ ("~|" ?\e,A&\e(B)
+ ("/=" ?\e,A,\e(B)
+ ("~=" ?\e,A/\e(B)
)
(quail-define-package
)
(quail-define-package
- "esperanto-prefix" "Latin-1" "EO>" t
+ "esperanto-prefix" "Latin-3" "EO>" t
"Esperanto input method with prefix modifiers
Key translation rules are:
- ^H -> ?\e,A&\e(B ^J -> ?\e,A,\e(B ^h -> ?\e,A6\e(B ^j -> ?\e,A<\e(B ^C -> ?\e,AF\e(B ^G -> ?\e,AX\e(B,
- ^S -> ?\e,A^\e(B ^c -> ?\e,Af\e(B ^g -> ?\e,Ax\e(B ^s -> ?\e,A~\e(B ~U -> ?\e,A]\e(B ~u -> ?\e,A}\e(B
+ ^H -> ?\e,C&\e(B ^J -> ?\e,C,\e(B ^h -> ?\e,C6\e(B ^j -> ?\e,C<\e(B ^C -> ?\e,CF\e(B ^G -> ?\e,CX\e(B,
+ ^S -> ?\e,C^\e(B ^c -> ?\e,Cf\e(B ^g -> ?\e,Cx\e(B ^s -> ?\e,C~\e(B ~U -> ?\e,C]\e(B ~u -> ?\e,C}\e(B
" nil t nil nil nil nil nil nil nil nil t)
(quail-define-rules
- ("^H" ?\e,A&\e(B)
- ("^J" ?\e,A,\e(B)
- ("^h" ?\e,A6\e(B)
- ("^j" ?\e,A<\e(B)
- ("^C" ?\e,AF\e(B)
- ("^G" ?\e,AX\e(B)
- ("^S" ?\e,A^\e(B)
- ("^c" ?\e,Af\e(B)
- ("^g" ?\e,Ax\e(B)
- ("^s" ?\e,A~\e(B)
+ ("^H" ?\e,C&\e(B)
+ ("^J" ?\e,C,\e(B)
+ ("^h" ?\e,C6\e(B)
+ ("^j" ?\e,C<\e(B)
+ ("^C" ?\e,CF\e(B)
+ ("^G" ?\e,CX\e(B)
+ ("^S" ?\e,C^\e(B)
+ ("^c" ?\e,Cf\e(B)
+ ("^g" ?\e,Cx\e(B)
+ ("^s" ?\e,C~\e(B)
("^^" ?^)
("^ " ?^)
- ("~U" ?\e,A]\e(B)
- ("~u" ?\e,A}\e(B)
+ ("~U" ?\e,C]\e(B)
+ ("~u" ?\e,C}\e(B)
("~ " ?~)
)
(", " ?~)
)
+(quail-define-package
+ "romanian-prefix" "Romanian" "RO>" t
+ "Romanian (rom\e,Bb\e(Bne\e,B:\e(Bte) input method with prefix modifiers
+
+ effect | prefix | examples
+ ------------+--------+------------------
+ tilde | ~ | ~a -> \e,Bc\e(B
+ circumflex | ^ | ^a -> \e,Bb\e(B, ^i -> \e,Bn\e(B
+ cedilla | , | ,s -> \e,B:\e(B, ,t -> \e,B~\e(B
+ ~ | ~ | ~~ -> ~
+ ^ | ^ | ^^ -> ^
+ , | , | ,, -> ,
+" nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("~A" ?\e,BC\e(B) ("~a" ?\e,Bc\e(B)
+ ("^A" ?\e,BB\e(B) ("^a" ?\e,Bb\e(B)
+ ("^I" ?\e,BN\e(B) ("^i" ?\e,Bn\e(B)
+ (",S" ?\e,B*\e(B) (",s" ?\e,B:\e(B)
+ (",T" ?\e,B^\e(B) (",t" ?\e,B~\e(B)
+ ("^^" ?^) ("~~" ?~) (",," ?,))
+
+(quail-define-package
+ "romanian-alt-prefix" "Romanian" "RO>" t
+ "Alternative Romanian (rom\e,Bb\e(Bne\e,B:\e(Bte) input method with prefix modifiers
+
+ effect | prefix | examples
+ ------------+--------+------------------
+ tilde | \" | \"a -> \e,Bb\e(B
+ circumflex | ' | 'a -> \e,Bb\e(B, 'i -> \e,Bn\e(B
+ cedilla | ' | 's -> \e,B:\e(B, 't -> \e,B~\e(B
+ ' | ' | '' -> '
+ \" | \" | \"\" -> \"
+" nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("'A" ?\e,BC\e(B) ("'a" ?\e,Bc\e(B)
+ ("\"A" ?\e,BB\e(B) ("\"a" ?\e,Bb\e(B)
+ ("'I" ?\e,BN\e(B) ("'i" ?\e,Bn\e(B)
+ ("'S" ?\e,B*\e(B) ("'s" ?\e,B:\e(B)
+ ("'T" ?\e,B^\e(B) ("'t" ?\e,B~\e(B)
+ ("''" ?') ("\"\"" ?\"))
+
(quail-define-package
"german-prefix" "Latin-1" "DE>" t
"German (Deutsch) input method with prefix modifiers
(".g" ?\e,Cu\e(B)
(".z" ?\e,C?\e(B)
)
+
+
+(quail-define-package
+ "polish-slash" "Polish" "PL>" nil
+ "Polish diacritics in Latin-2 encoding are input as `/[acelnosxzACELNOSXZ]'.
+For example, the character named `aogonek' is obtained by `/a'."
+ nil t t t nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("/a" ?\e,B1\e(B)
+ ("/c" ?\e,Bf\e(B)
+ ("/e" ?\e,Bj\e(B)
+ ("/l" ?\e,B3\e(B)
+ ("/n" ?\e,Bq\e(B)
+ ("/o" ?\e,Bs\e(B)
+ ("/s" ?\e,B6\e(B)
+ ("/x" ?\e,B<\e(B)
+ ("/z" ?\e,B?\e(B)
+ ("/A" ?\e,B!\e(B)
+ ("/C" ?\e,BF\e(B)
+ ("/E" ?\e,BJ\e(B)
+ ("/L" ?\e,B#\e(B)
+ ("/N" ?\e,BQ\e(B)
+ ("/O" ?\e,BS\e(B)
+ ("/S" ?\e,B&\e(B)
+ ("/X" ?\e,B,\e(B)
+ ("/Z" ?\e,B/\e(B))
+
+(quail-define-package
+ "latin-9-prefix" "Latin-9" "0>" t
+ "Latin-9 characters input method with prefix modifiers
+
+ effect | prefix | examples
+ ------------+--------+----------
+ acute | ' | 'a -> \e,ba\e(B
+ grave | ` | `a -> \e,b`\e(B
+ circumflex | ^ | ^a -> \e,bb\e(B
+ diaeresis | \" | \"a -> \e,bd\e(B, \"Y -> \e,b>\e(B
+ tilde | ~ | ~a -> \e,bc\e(B
+ caron | ~ | ~z -> \e,b8\e(B
+ cedilla | ~ | ~c -> \e,bg\e(B
+ misc | \" ~ / | \"s -> \e,b_\e(B ~d -> \e,bp\e(B ~t -> \e,b~\e(B /a -> \e,be\e(B /e -> \e,bf\e(B /o -> \e,bx\e(B
+ | \" ~ / | /o -> \e,b=\e(B
+ symbol | ~ | ~> -> \e,b;\e(B ~< -> \e,b+\e(B ~! -> \e,b!\e(B ~? -> \e,b?\e(B ~~ -> \e,b8\e(B
+ | ~ | ~s -> \e,b'\e(B ~e -> \e,b$\e(B ~. -> \e,b7\e(B ~$ -> \e,b#\e(B ~u -> \e,b5\e(B
+ | ~ | ~- -> \e,b-\e(B ~= -> \e,b/\e(B
+ symbol | _ / | _o -> \e,b:\e(B _a -> \e,b*\e(B // -> \e,b0\e(B /\\ -> \e,bW\e(B _y -> \e,b%\e(B
+ | _ / | _: -> \e,bw\e(B /c -> \e,b"\e(B ~p -> \e,b6\e(B
+ | _ / | /= -> \e,b,\e(B
+ symbol | ^ | ^r -> \e,b.\e(B ^c -> \e,b)\e(B ^1 -> \e,b9\e(B ^2 -> \e,b2\e(B ^3 -> \e,b3\e(B _a -> \e,b*\e(B
+" nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("'A" ?\e,bA\e(B)
+ ("'E" ?\e,bI\e(B)
+ ("'I" ?\e,bM\e(B)
+ ("'O" ?\e,bS\e(B)
+ ("'U" ?\e,bZ\e(B)
+ ("'Y" ?\e,b]\e(B)
+ ("'a" ?\e,ba\e(B)
+ ("'e" ?\e,bi\e(B)
+ ("'i" ?\e,bm\e(B)
+ ("'o" ?\e,bs\e(B)
+ ("'u" ?\e,bz\e(B)
+ ("'y" ?\e,b}\e(B)
+ ("' " ?')
+ ("`A" ?\e,b@\e(B)
+ ("`E" ?\e,bH\e(B)
+ ("`I" ?\e,bL\e(B)
+ ("`O" ?\e,bR\e(B)
+ ("`U" ?\e,bY\e(B)
+ ("`a" ?\e,b`\e(B)
+ ("`e" ?\e,bh\e(B)
+ ("`i" ?\e,bl\e(B)
+ ("`o" ?\e,br\e(B)
+ ("`u" ?\e,by\e(B)
+ ("``" ?`)
+ ("` " ?`)
+ ("^A" ?\e,bB\e(B)
+ ("^E" ?\e,bJ\e(B)
+ ("^I" ?\e,bN\e(B)
+ ("^O" ?\e,bT\e(B)
+ ("^U" ?\e,b[\e(B)
+ ("^a" ?\e,bb\e(B)
+ ("^e" ?\e,bj\e(B)
+ ("^i" ?\e,bn\e(B)
+ ("^o" ?\e,bt\e(B)
+ ("^u" ?\e,b{\e(B)
+ ("^^" ?^)
+ ("^ " ?^)
+ ("\"A" ?\e,bD\e(B)
+ ("\"E" ?\e,bK\e(B)
+ ("\"I" ?\e,bO\e(B)
+ ("\"O" ?\e,bV\e(B)
+ ("\"U" ?\e,b\\e(B)
+ ("\"a" ?\e,bd\e(B)
+ ("\"e" ?\e,bk\e(B)
+ ("\"i" ?\e,bo\e(B)
+ ("\"o" ?\e,bv\e(B)
+ ("\"s" ?\e,b_\e(B)
+ ("\"u" ?\e,b|\e(B)
+ ("\"y" ?\e,b\7f\e(B)
+ ("\" " ?\")
+ ("~A" ?\e,bC\e(B)
+ ("~C" ?\e,bG\e(B)
+ ("~D" ?\e,bP\e(B)
+ ("~N" ?\e,bQ\e(B)
+ ("~O" ?\e,bU\e(B)
+ ("~S" ?\e,b&\e(B)
+ ("~T" ?\e,b^\e(B)
+ ("~Z" ?\e,b4\e(B)
+ ("~a" ?\e,bc\e(B)
+ ("~c" ?\e,bg\e(B)
+ ("~d" ?\e,bp\e(B)
+ ("~n" ?\e,bq\e(B)
+ ("~o" ?\e,bu\e(B)
+ ("~s" ?\e,b(\e(B)
+ ("~t" ?\e,b~\e(B)
+ ("~z" ?\e,b8\e(B)
+ ("~>" ?\\e,b;\e(B)
+ ("~<" ?\\e,b+\e(B)
+ ("~!" ?\e,b!\e(B)
+ ("~?" ?\e,b?\e(B)
+ ("~ " ?~)
+ ("/A" ?\e,bE\e(B)
+ ("/E" ?\e,bF\e(B)
+ ("/O" ?\e,bX\e(B)
+ ("/a" ?\e,be\e(B)
+ ("/e" ?\e,bf\e(B)
+ ("/o" ?\e,bx\e(B)
+ ("//" ?\e,b0\e(B)
+ ("/ " ?/)
+ ("_o" ?\e,b:\e(B)
+ ("_a" ?\e,b*\e(B)
+ ("_+" ?\e,b1\e(B)
+ ("_y" ?\e,b%\e(B)
+ ("_:" ?\e,bw\e(B)
+ ("/c" ?\e,b"\e(B)
+ ("/\\" ?\e,bW\e(B)
+ ("/o" ?\e,b=\e(B) ; clash with \e,bx\e(B, but \e,bf\e(B uses /
+ ("/O" ?\e,b<\e(B)
+ ("\"Y" ?\e,b>\e(B)
+ ("~s" ?\e,b'\e(B)
+ ("~p" ?\e,b6\e(B)
+ ;; Is this the best option for Euro entry?
+ ("~e" ?\e,b$\e(B)
+ ("~." ?\e,b7\e(B)
+ ("~$" ?\e,b#\e(B)
+ ("~u" ?\e,b5\e(B)
+ ("^r" ?\e,b.\e(B)
+ ("^c" ?\e,b)\e(B)
+ ("^1" ?\e,b9\e(B)
+ ("^2" ?\e,b2\e(B)
+ ("^3" ?\e,b3\e(B)
+ ("~-" ?\e,b-\e(B)
+ ("~=" ?\e,b/\e(B)
+ ("/=" ?\e,b,\e(B))
+
+;; Latin-8 was done by an Englishman -- Johnny Celt should take a
+;; squint at it.
+
+(quail-define-package
+ "latin-8-prefix" "Latin-8" "8>" t
+ "Latin-8 characters input method with prefix modifiers
+
+ effect | prefix | examples
+ ------------+--------+----------
+ acute | ' | 'a -> \e,_a\e(B
+ grave | ` | `a -> \e,_`\e(B
+ circumflex | ^ | ^w -> \e,_p\e(B
+ diaeresis | \" | \"a -> \e,_d\e(B
+ dot above | . | .b -> \e,_"\e(B
+ tilde | ~ | ~a -> \e,_c\e(B
+ cedilla | ~ | ~c -> \e,_g\e(B
+ misc | \" ~ / | \"s -> \e,__\e(B /a -> \e,_e\e(B /e -> \e,_f\e(B /o -> \e,_x\e(B
+ | ~ | ~s -> \e,_'\e(B ~$ -> \e,_#\e(B ~p -> \e,_6\e(B
+ symbol | ^ | ^r -> \e,_.\e(B ^c -> \e,_)\e(B
+" nil t nil nil nil nil nil nil nil nil t)
+
+;; Basically following Latin-1 plus dottiness from Latin-3.
+(quail-define-rules
+ (".B" ?\e,_!\e(B)
+ (".b" ?\e,_"\e(B)
+ (".c" ?\e,_%\e(B)
+ (".C" ?\e,_$\e(B)
+ (".D" ?\e,_&\e(B)
+ (".d" ?\e,_+\e(B)
+ (".f" ?\e,_1\e(B)
+ (".F" ?\e,_0\e(B)
+ (".g" ?\e,_3\e(B)
+ (".G" ?\e,_2\e(B)
+ (".m" ?\e,_5\e(B)
+ (".M" ?\e,_4\e(B)
+ (".p" ?\e,_9\e(B)
+ (".P" ?\e,_7\e(B)
+ (".s" ?\e,_?\e(B)
+ (".S" ?\e,_;\e(B)
+ (".t" ?\e,_w\e(B)
+ (".T" ?\e,_W\e(B)
+ ("'A" ?\e,_A\e(B)
+ ("'E" ?\e,_I\e(B)
+ ("'I" ?\e,_M\e(B)
+ ("'O" ?\e,_S\e(B)
+ ("'U" ?\e,_Z\e(B)
+ ("'Y" ?\e,_]\e(B)
+ ("'W" ?\e,_*\e(B)
+ ("'a" ?\e,_a\e(B)
+ ("'e" ?\e,_i\e(B)
+ ("'i" ?\e,_m\e(B)
+ ("'o" ?\e,_s\e(B)
+ ("'u" ?\e,_z\e(B)
+ ("'w" ?\e,_:\e(B)
+ ("'y" ?\e,_}\e(B)
+ ("' " ?')
+ ("`A" ?\e,_@\e(B)
+ ("`E" ?\e,_H\e(B)
+ ("`I" ?\e,_L\e(B)
+ ("`O" ?\e,_R\e(B)
+ ("`U" ?\e,_Y\e(B)
+ ("`W" ?\e,_(\e(B)
+ ("`Y" ?\e,_,\e(B)
+ ("`a" ?\e,_`\e(B)
+ ("`e" ?\e,_h\e(B)
+ ("`i" ?\e,_l\e(B)
+ ("`o" ?\e,_r\e(B)
+ ("`u" ?\e,_y\e(B)
+ ("`w" ?\e,_8\e(B)
+ ("`y" ?\e,_<\e(B)
+ ("``" ?`)
+ ("` " ?`)
+ ("^A" ?\e,_B\e(B)
+ ("^E" ?\e,_J\e(B)
+ ("^I" ?\e,_N\e(B)
+ ("^O" ?\e,_T\e(B)
+ ("^U" ?\e,_[\e(B)
+ ("^a" ?\e,_b\e(B)
+ ("^e" ?\e,_j\e(B)
+ ("^i" ?\e,_n\e(B)
+ ("^o" ?\e,_t\e(B)
+ ("^u" ?\e,_{\e(B)
+ ("^w" ?\e,_p\e(B)
+ ("^W" ?\e,_P\e(B)
+ ("^y" ?\e,_~\e(B)
+ ("^Y" ?\e,_^\e(B)
+ ("^^" ?^)
+ ("^ " ?^)
+ ("\"A" ?\e,_D\e(B)
+ ("\"E" ?\e,_K\e(B)
+ ("\"I" ?\e,_O\e(B)
+ ("\"O" ?\e,_V\e(B)
+ ("\"U" ?\e,_\\e(B)
+ ("\"a" ?\e,_d\e(B)
+ ("\"e" ?\e,_k\e(B)
+ ("\"i" ?\e,_o\e(B)
+ ("\"o" ?\e,_v\e(B)
+ ("\"s" ?\e,__\e(B)
+ ("\"u" ?\e,_|\e(B)
+ ("\"w" ?\e,_>\e(B)
+ ("\"W" ?\e,_=\e(B)
+ ("\"y" ?\e,_\7f\e(B)
+ ("\"Y" ?\e,_/\e(B)
+ ("\" " ?\")
+ ("~A" ?\e,_C\e(B)
+ ("~C" ?\e,_G\e(B)
+ ("~N" ?\e,_Q\e(B)
+ ("~O" ?\e,_U\e(B)
+ ("~a" ?\e,_c\e(B)
+ ("~c" ?\e,_g\e(B)
+ ("~n" ?\e,_q\e(B)
+ ("~o" ?\e,_u\e(B)
+ ("~ " ?~)
+ ("/A" ?\e,_E\e(B)
+ ("/E" ?\e,_F\e(B)
+ ("/O" ?\e,_X\e(B)
+ ("/a" ?\e,_e\e(B)
+ ("/e" ?\e,_f\e(B)
+ ("/o" ?\e,_x\e(B)
+ ("/ " ?/)
+ ("~p" ?\e,_6\e(B)
+ ("~s" ?\e,_'\e(B)
+ ("~$" ?\e,_#\e(B)
+ ("^r" ?\e,_.\e(B)
+ ("^c" ?\e,_)\e(B))