]> git.eshelyaron.com Git - emacs.git/commitdiff
Add rules for cancelling accents by typing
authorKenichi Handa <handa@m17n.org>
Tue, 2 Sep 1997 05:11:59 +0000 (05:11 +0000)
committerKenichi Handa <handa@m17n.org>
Tue, 2 Sep 1997 05:11:59 +0000 (05:11 +0000)
two accent keys (e.g. a~ => a-tilde, a~~ => a~) to all Quail
packages.

leim/quail/latin-post.el

index 1ab651f3ecb6fdde2961602e5c3395cf9c13ab55..a0901bbc6e0eaba8c8768474ceca0ac5bd9ce600 100644 (file)
 
 (quail-define-package
  "latin-1-postfix" "Latin-1" "1<" t
- "Latin-1 characters input method with postfix modifiers
+ "Latin-1 character input method with postfix modifiers
 
-    effect   | postfix | examples
+             | postfix | examples
  ------------+---------+----------
-    acute    |    '    | a' -> \e,Aa\e(B
-    grave    |    `    | a` -> \e,A`\e(B
+  acute      |    '    | a' -> \e,Aa\e(B
+  grave      |    `    | a` -> \e,A`\e(B
   circumflex |    ^    | a^ -> \e,Ab\e(B
   diaeresis  |    \"    | a\" -> \e,Ad\e(B
-    tilde    |    ~    | a~ -> \e,Ac\e(B
-   cedilla   |    ,    | c, -> \e,Ag\e(B
-   nordic    |    /    | 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
-   special   |   /<>   | s/ -> \e,A_\e(B   ?/ -> \e,A?\e(B   !/ -> \e,A!\e(B   << -> \e,A+\e(B   >> -> \e,A;\e(B
+  tilde      |    ~    | a~ -> \e,Ac\e(B
+  cedilla    |    ,    | c, -> \e,Ag\e(B
+  nordic     |    /    | 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
+  others     |   /<>   | s/ -> \e,A_\e(B   ?/ -> \e,A?\e(B   !/ -> \e,A!\e(B   << -> \e,A+\e(B   >> -> \e,A;\e(B
+
+Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
@@ -55,7 +57,6 @@
  ("a~" ?\e,Ac\e(B)
  ("a\"" ?\e,Ad\e(B)
  ("a/" ?\e,Ae\e(B)
-
  ("E`" ?\e,AH\e(B)
  ("E'" ?\e,AI\e(B)
  ("E^" ?\e,AJ\e(B)
  ("e^" ?\e,Aj\e(B)
  ("e\"" ?\e,Ak\e(B)
  ("e/" ?\e,Af\e(B)
-
  ("I`" ?\e,AL\e(B)
- ("I'" ?\e,AM\e(B)
- ("I^" ?\e,AN\e(B)
- ("I\"" ?\e,AO\e(B)
  ("i`" ?\e,Al\e(B)
+ ("I'" ?\e,AM\e(B)
  ("i'" ?\e,Am\e(B)
+ ("I^" ?\e,AN\e(B)
  ("i^" ?\e,An\e(B)
+ ("I\"" ?\e,AO\e(B)
  ("i\"" ?\e,Ao\e(B)
-
  ("O`" ?\e,AR\e(B)
- ("O'" ?\e,AS\e(B)
- ("O^" ?\e,AT\e(B)
- ("O~" ?\e,AU\e(B)
- ("O\"" ?\e,AV\e(B)
- ("O/" ?\e,AX\e(B)
  ("o`" ?\e,Ar\e(B)
+ ("O'" ?\e,AS\e(B)
  ("o'" ?\e,As\e(B)
+ ("O^" ?\e,AT\e(B)
  ("o^" ?\e,At\e(B)
+ ("O~" ?\e,AU\e(B)
  ("o~" ?\e,Au\e(B)
+ ("O\"" ?\e,AV\e(B)
  ("o\"" ?\e,Av\e(B)
+ ("O/" ?\e,AX\e(B)
  ("o/" ?\e,Ax\e(B)
-
  ("U`" ?\e,AY\e(B)
- ("U'" ?\e,AZ\e(B)
- ("U^" ?\e,A[\e(B)
- ("U\"" ?\e,A\\e(B)
  ("u`" ?\e,Ay\e(B)
+ ("U'" ?\e,AZ\e(B)
  ("u'" ?\e,Az\e(B)
+ ("U^" ?\e,A[\e(B)
  ("u^" ?\e,A{\e(B)
+ ("U\"" ?\e,A\\e(B)
  ("u\"" ?\e,A|\e(B)
-
  ("Y'" ?\e,A]\e(B)
  ("y'" ?\e,A}\e(B)
-
+ ("y\"" ?\e,A\7f\e(B)
  ("D/" ?\e,AP\e(B)
  ("d/" ?\e,Ap\e(B)
-
  ("T/" ?\e,A^\e(B)
  ("t/" ?\e,A~\e(B)
-
  ("s/" ?\e,A_\e(B)
-
  ("C," ?\e,AG\e(B)
  ("c," ?\e,Ag\e(B)
-
  ("N~" ?\e,AQ\e(B)
  ("n~" ?\e,Aq\e(B)
-
  ("?/" ?\e,A?\e(B)
  ("!/" ?\e,A!\e(B)
  ("<<" ?\e,A+\e(B)
- (">>" ?\e,A;\e(B))
+ (">>" ?\e,A;\e(B)
+
+ ("A``" ["A`"])
+ ("A''" ["A'"])
+ ("A^^" ["A^"])
+ ("A~~" ["A~"])
+ ("A\"\"" ["A\""])
+ ("A//" ["A/"])
+ ("a``" ["a`"])
+ ("a''" ["a'"])
+ ("a^^" ["a^"])
+ ("a~~" ["a~"])
+ ("a\"\"" ["a\""])
+ ("a//" ["a/"])
+ ("E``" ["E`"])
+ ("E''" ["E'"])
+ ("E^^" ["E^"])
+ ("E\"\"" ["E\""])
+ ("E//" ["E/"])
+ ("e``" ["e`"])
+ ("e''" ["e'"])
+ ("e^^" ["e^"])
+ ("e\"\"" ["e\""])
+ ("e//" ["e/"])
+ ("I``" ["I`"])
+ ("i``" ["i`"])
+ ("I''" ["I'"])
+ ("i''" ["i'"])
+ ("I^^" ["I^"])
+ ("i^^" ["i^"])
+ ("I\"\"" ["I\""])
+ ("i\"\"" ["i\""])
+ ("O``" ["O`"])
+ ("o``" ["o`"])
+ ("O''" ["O'"])
+ ("o''" ["o'"])
+ ("O^^" ["O^"])
+ ("o^^" ["o^"])
+ ("O~~" ["O~"])
+ ("o~~" ["o~"])
+ ("O\"\"" ["O\""])
+ ("o\"\"" ["o\""])
+ ("O//" ["O/"])
+ ("o//" ["o/"])
+ ("U``" ["U`"])
+ ("u``" ["u`"])
+ ("U''" ["U'"])
+ ("u''" ["u'"])
+ ("U^^" ["U^"])
+ ("u^^" ["u^"])
+ ("U\"\"" ["U\""])
+ ("u\"\"" ["u\""])
+ ("Y''" ["Y'"])
+ ("y''" ["y'"])
+ ("y\"\"" ["y\""])
+ ("D//" ["D/"])
+ ("d//" ["d/"])
+ ("T//" ["T/"])
+ ("t//" ["t/"])
+ ("s//" ["s/"])
+ ("C,," ["C,"])
+ ("c,," ["c,"])
+ ("N~~" ["N~"])
+ ("n~~" ["n~"])
+ ("?//" ["?/"])
+ ("!//" ["!/"])
+ ("<<<" ["<<"])
+ (">>>" [">>"])
+ )
 
 (quail-define-package
  "latin-2-postfix" "Latin-2" "2<" t
- "Latin-2 characters input method with postfix modifiers
+ "Latin-2 character input method with postfix modifiers
 
-    effect   | postfix | examples
+             | postfix | examples
  ------------+---------+----------
-    acute    |    '    | a' -> \e,Ba\e(B
-    ogonek   |    ,    | a, -> \e,B1\e(B
+  acute      |    '    | a' -> \e,Ba\e(B
+  ogonek     |    ,    | a, -> \e,B1\e(B
   diaeresis  |    \"    | a\" -> \e,Bd\e(B
   circumflex |    ^    | a^ -> \e,Bb\e(B
-    breve    |    ~    | a~ -> \e,Bc\e(B
-   cedilla   |    ,    | c, -> \e,Bg\e(B
-    caron    |    ~    | c~ -> \e,Bh\e(B
-  dbl. acute |    ''   | o'' -> \e,Bu\e(B
-     ring    |    .    | u. -> \e,By\e(B
-     dot     |    .    | z. -> \e,B?\e(B
-    stroke   |    /    | d/ -> \e,Bp\e(B
-   special   |    /    | s/ -> \e,B_\e(B
+  breve      |    ~    | a~ -> \e,Bc\e(B
+  cedilla    |    ,    | c, -> \e,Bg\e(B
+  caron      |    ~    | c~ -> \e,Bh\e(B
+  dbl. acute |    :    | o: -> \e,Bu\e(B
+  ring       |    .    | u. -> \e,By\e(B
+  dot        |    .    | z. -> \e,B?\e(B
+  stroke     |    /    | d/ -> \e,Bp\e(B
+  others     |    /    | s/ -> \e,B_\e(B
+
+Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("N'" ?\e,BQ\e(B)
  ("N~" ?\e,BR\e(B)
  ("O'" ?\e,BS\e(B)
- ("O''" ["\e,BU\e(B" "\e,BS\e(B'"])
+ ("O:" ?\e,BU\e(B)
  ("O\"" ?\e,BV\e(B)
  ("O^" ?\e,BT\e(B)
  ("R'" ?\e,B@\e(B)
  ("T," ?\e,B^\e(B)
  ("T~" ?\e,B+\e(B)
  ("U'" ?\e,BZ\e(B)
- ("U''" ["\e,B[\e(B" "\e,BZ\e(B'"])
+ ("U:" ?\e,B[\e(B)
  ("U\"" ?\e,B\\e(B)
  ("U." ?\e,BY\e(B)
  ("Y'" ?\e,B]\e(B)
  ("n'" ?\e,Bq\e(B)
  ("n~" ?\e,Br\e(B)
  ("o'" ?\e,Bs\e(B)
- ("o''" ["\e,Bu\e(B" "\e,Bs\e(B'"])
+ ("o:" ?\e,Bu\e(B)
  ("o\"" ?\e,Bv\e(B)
  ("o^" ?\e,Bt\e(B)
  ("r'" ?\e,B`\e(B)
  ("t," ?\e,B~\e(B)
  ("t~" ?\e,B;\e(B)
  ("u'" ?\e,Bz\e(B)
- ("u''" ["\e,B{\e(B" "\e,Bz\e(B'"])
+ ("u:" ?\e,B{\e(B)
  ("u\"" ?\e,B|\e(B)
  ("u." ?\e,By\e(B)
  ("y'" ?\e,B}\e(B)
  ("z'" ?\e,B<\e(B)
  ("z." ?\e,B?\e(B)
  ("z~" ?\e,B>\e(B)
+
+ ("A''" ["A'"])
+ ("A,," ["A,"])
+ ("A\"\"" ["A\""])
+ ("A^^" ["A^"])
+ ("A~~" ["A~"])
+ ("C''" ["C'"])
+ ("C,," ["C,"])
+ ("C~~" ["C~"])
+ ("D//" ["D/"])
+ ("D~~" ["D~"])
+ ("E''" ["E'"])
+ ("E,," ["E,"])
+ ("E\"\"" ["E\""])
+ ("E~~" ["E~"])
+ ("I''" ["I'"])
+ ("I^^" ["I^"])
+ ("L''" ["L'"])
+ ("L//" ["L/"])
+ ("L~~" ["L~"])
+ ("N''" ["N'"])
+ ("N~~" ["N~"])
+ ("O''" ["O'"])
+ ("O::" ["O:"])
+ ("O\"\"" ["O\""])
+ ("O^^" ["O^"])
+ ("R''" ["R'"])
+ ("R~~" ["R~"])
+ ("S''" ["S'"])
+ ("S,," ["S,"])
+ ("S~~" ["S~"])
+ ("T,," ["T,"])
+ ("T~~" ["T~"])
+ ("U''" ["U'"])
+ ("U::" ["U:"])
+ ("U\"\"" ["U\""])
+ ("U.." ["U."])
+ ("Y''" ["Y'"])
+ ("Z''" ["Z'"])
+ ("Z.." ["Z."])
+ ("Z~~" ["Z~"])
+ ("a''" ["a'"])
+ ("a,," ["a,"])
+ ("a\"\"" ["a\""])
+ ("a^^" ["a^"])
+ ("a~~" ["a~"])
+ ("c''" ["c'"])
+ ("c,," ["c,"])
+ ("c~~" ["c~"])
+ ("d//" ["d/"])
+ ("d~~" ["d~"])
+ ("e''" ["e'"])
+ ("e,," ["e,"])
+ ("e\"\"" ["e\""])
+ ("e~~" ["e~"])
+ ("i''" ["i'"])
+ ("i^^" ["i^"])
+ ("l''" ["l'"])
+ ("l//" ["l/"])
+ ("l~~" ["l~"])
+ ("n''" ["n'"])
+ ("n~~" ["n~"])
+ ("o''" ["o'"])
+ ("o::" ["o:"])
+ ("o\"\"" ["o\""])
+ ("o^^" ["o^"])
+ ("r''" ["r'"])
+ ("r~~" ["r~"])
+ ("s''" ["s'"])
+ ("s,," ["s,"])
+ ("s//" ["s/"])
+ ("s~~" ["s~"])
+ ("t,," ["t,"])
+ ("t~~" ["t~"])
+ ("u''" ["u'"])
+ ("u::" ["u:"])
+ ("u\"\"" ["u\""])
+ ("u.." ["u."])
+ ("y''" ["y'"])
+ ("z''" ["z'"])
+ ("z.." ["z."])
+ ("z~~" ["z~"])
  )
 
 (quail-define-package
  "latin-3-postfix" "Latin-3" "3<" t
- "Latin-3 characters input method with postfix modifiers
+ "Latin-3 character input method with postfix modifiers
 
-    effect   | postfix | examples
+             | postfix | examples
  ------------+---------+----------
-    acute    |    '    | a' -> \e,Ca\e(B
-    grave    |    `    | a` -> \e,C`\e(B
+  acute      |    '    | a' -> \e,Ca\e(B
+  grave      |    `    | a` -> \e,C`\e(B
   circumflex |    ^    | a^ -> \e,Cb\e(B
   diaeresis  |    \"    | a\" -> \e,Cd\e(B
-     dot     |    .    | c. -> \e,Ce\e(B   i. -> \e,C9\e(B   I. -> \e,C)\e(B
-   cedilla   |    ,    | c, -> \e,Cg\e(B
-    breve    |    ~    | g~ -> \e,C;\e(B
-    tilde    |    ~    | n~ -> \e,Cq\e(B
-   stroke    |    /    | h/ -> \e,C1\e(B
-   special   |    /    | s/ -> \e,C_\e(B
+  dot        |    .    | c. -> \e,Ce\e(B   i. -> \e,C9\e(B   I. -> \e,C)\e(B
+  cedilla    |    ,    | c, -> \e,Cg\e(B
+  breve      |    ~    | g~ -> \e,C;\e(B
+  tilde      |    ~    | n~ -> \e,Cq\e(B
+  stroke     |    /    | h/ -> \e,C1\e(B
+  others     |    /    | s/ -> \e,C_\e(B
+
+Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("u\"" ?\e,C|\e(B)
  ("u~" ?\e,C}\e(B)
  ("z." ?\e,C?\e(B)
+
+ ("A``" ["A`"])
+ ("A''" ["A'"])
+ ("A^^" ["A^"])
+ ("A\"\"" ["A\""])
+ ("C.." ["C."])
+ ("C^^" ["C^"])
+ ("C,," ["C,"])
+ ("E``" ["E`"])
+ ("E''" ["E'"])
+ ("E^^" ["E^"])
+ ("E\"\"" ["E\""])
+ ("G~~" ["G~"])
+ ("G.." ["G."])
+ ("G^^" ["G^"])
+ ("H//" ["H/"])
+ ("H^^" ["H^"])
+ ("I.." ["I."])
+ ("I``" ["I`"])
+ ("I''" ["I'"])
+ ("I^^" ["I^"])
+ ("I\"\"" ["I\""])
+ ("J^^" ["J^"])
+ ("N~~" ["N~"])
+ ("O``" ["O`"])
+ ("O''" ["O'"])
+ ("O^^" ["O^"])
+ ("O\"\"" ["O\""])
+ ("S,," ["S,"])
+ ("S^^" ["S^"])
+ ("U``" ["U`"])
+ ("U''" ["U'"])
+ ("U^^" ["U^"])
+ ("U\"\"" ["U\""])
+ ("U~~" ["U~"])
+ ("Z.." ["Z."])
+ ("a``" ["a`"])
+ ("a''" ["a'"])
+ ("a^^" ["a^"])
+ ("a\"\"" ["a\""])
+ ("c.." ["c."])
+ ("c^^" ["c^"])
+ ("c,," ["c,"])
+ ("e``" ["e`"])
+ ("e''" ["e'"])
+ ("e^^" ["e^"])
+ ("e\"\"" ["e\""])
+ ("g~~" ["g~"])
+ ("g.." ["g."])
+ ("g^^" ["g^"])
+ ("h//" ["h/"])
+ ("h^^" ["h^"])
+ ("i.." ["i."])
+ ("i``" ["i`"])
+ ("i''" ["i'"])
+ ("i^^" ["i^"])
+ ("i\"\"" ["i\""])
+ ("j^^" ["j^"])
+ ("n~~" ["n~"])
+ ("o``" ["o`"])
+ ("o''" ["o'"])
+ ("o^^" ["o^"])
+ ("o\"\"" ["o\""])
+ ("s,," ["s,"])
+ ("s//" ["s/"])
+ ("s^^" ["s^"])
+ ("u``" ["u`"])
+ ("u''" ["u'"])
+ ("u^^" ["u^"])
+ ("u\"\"" ["u\""])
+ ("u~~" ["u~"])
+ ("z.." ["z."])
  )
 
 (quail-define-package
  "latin-4-postfix" "Latin-4" "4<" t
  "Latin-4 characters input method with postfix modifiers
 
-    effect   | postfix | examples
+             | postfix | examples
  ------------+---------+----------
-    acute    |    '    | a' -> \e,Da\e(B
+  acute      |    '    | a' -> \e,Da\e(B
   circumflex |    ^    | a^ -> \e,Db\e(B
   diaeresis  |    \"    | a\" -> \e,Dd\e(B
-    ogonek   |    ,    | a, -> \e,D1\e(B
-    macron   |    -    | a- -> \e,D`\e(B
-    tilde    |    ~    | a~ -> \e,Dc\e(B
-    caron    |    ~    | c~ -> \e,Dh\e(B
-     dot     |    .    | e. -> \e,Dl\e(B
-   cedilla   |    ,    | k, -> \e,Ds\e(B   g, -> \e,D;\e(B
-   stroke    |    /    | d/ -> \e,Dp\e(B
-   nordic    |    /    | a/ -> \e,De\e(B   e/ -> \e,Df\e(B   o/ -> \e,Dx\e(B
-   special   |    /    | s/ -> \e,D_\e(B   n/ -> \e,D?\e(B   k/ -> \e,D"\e(B
+  ogonek     |    ,    | a, -> \e,D1\e(B
+  macron     |    -    | a- -> \e,D`\e(B
+  tilde      |    ~    | a~ -> \e,Dc\e(B
+  caron      |    ~    | c~ -> \e,Dh\e(B
+  dot        |    .    | e. -> \e,Dl\e(B
+  cedilla    |    ,    | k, -> \e,Ds\e(B   g, -> \e,D;\e(B
+  stroke     |    /    | d/ -> \e,Dp\e(B
+  nordic     |    /    | a/ -> \e,De\e(B   e/ -> \e,Df\e(B   o/ -> \e,Dx\e(B
+  others     |    /    | s/ -> \e,D_\e(B   n/ -> \e,D?\e(B   k/ -> \e,D"\e(B
+
+Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("u~" ?\e,D}\e(B)
  ("u-" ?\e,D~\e(B)
  ("z~" ?\e,D>\e(B)
+
+ ("A,," ["A,"])
+ ("A--" ["A-"])
+ ("A''" ["A'"])
+ ("A^^" ["A^"])
+ ("A~~" ["A~"])
+ ("A\"\"" ["A\""])
+ ("A//" ["A/"])
+ ("C~~" ["C~"])
+ ("D//" ["D/"])
+ ("E//" ["E/"])
+ ("E--" ["E-"])
+ ("E''" ["E'"])
+ ("E,," ["E,"])
+ ("E\"\"" ["E\""])
+ ("E.." ["E."])
+ ("G,," ["G,"])
+ ("I~~" ["I~"])
+ ("I,," ["I,"])
+ ("I''" ["I'"])
+ ("I^^" ["I^"])
+ ("I--" ["I-"])
+ ("K,," ["K,"])
+ ("L,," ["L,"])
+ ("N//" ["N/"])
+ ("N,," ["N,"])
+ ("O--" ["O-"])
+ ("O^^" ["O^"])
+ ("O~~" ["O~"])
+ ("O\"\"" ["O\""])
+ ("O//" ["O/"])
+ ("R,," ["R,"])
+ ("S~~" ["S~"])
+ ("T//" ["T/"])
+ ("U,," ["U,"])
+ ("U''" ["U'"])
+ ("U^^" ["U^"])
+ ("U\"\"" ["U\""])
+ ("U~~" ["U~"])
+ ("U--" ["U-"])
+ ("Z~~" ["Z~"])
+ ("a,," ["a,"])
+ ("a--" ["a-"])
+ ("a''" ["a'"])
+ ("a^^" ["a^"])
+ ("a~~" ["a~"])
+ ("a\"\"" ["a\""])
+ ("a//" ["a/"])
+ ("c~~" ["c~"])
+ ("d//" ["d/"])
+ ("e//" ["e/"])
+ ("e--" ["e-"])
+ ("e''" ["e'"])
+ ("e,," ["e,"])
+ ("e\"\"" ["e\""])
+ ("e.." ["e."])
+ ("g,," ["g,"])
+ ("i~~" ["i~"])
+ ("i,," ["i,"])
+ ("i''" ["i'"])
+ ("i^^" ["i^"])
+ ("i--" ["i-"])
+ ("k//" ["k/"])
+ ("k,," ["k,"])
+ ("l,," ["l,"])
+ ("n//" ["n/"])
+ ("n,," ["n,"])
+ ("o--" ["o-"])
+ ("o^^" ["o^"])
+ ("o~~" ["o~"])
+ ("o\"\"" ["o\""])
+ ("o//" ["o/"])
+ ("r,," ["r,"])
+ ("s//" ["s/"])
+ ("s~~" ["s~"])
+ ("t//" ["t/"])
+ ("u,," ["u,"])
+ ("u''" ["u'"])
+ ("u^^" ["u^"])
+ ("u\"\"" ["u\""])
+ ("u~~" ["u~"])
+ ("u--" ["u-"])
+ ("z~~" ["z~"])
  )
 
 (quail-define-package
  "latin-5-postfix" "Latin-5" "5<" t
  "Latin-5 characters input method with postfix modifiers
 
-    effect   | postfix | examples
+             | postfix | examples
  ------------+---------+----------
-    acute    |    '    | a' -> \e,Ma\e(B
-    grave    |    `    | a` -> \e,M`\e(B
+  acute      |    '    | a' -> \e,Ma\e(B
+  grave      |    `    | a` -> \e,M`\e(B
   circumflex |    ^    | a^ -> \e,Mb\e(B
   diaeresis  |    \"    | a\" -> \e,Md\e(B
-    tilde    |    ~    | a~ -> \e,Mc\e(B
-    breve    |    ~    | g~ -> \e,Mp\e(B
-   cedilla   |    ,    | c, -> \e,Mg\e(B
-     dot     |    .    | i. -> \e,M}\e(B   I. -> \e,M]\e(B
-   nordic    |    /    | a/ -> \e,Me\e(B   e/ -> \e,Mf\e(B   o/ -> \e,Mx\e(B
-   special   |    /    | s/ -> \e,M_\e(B
+  tilde      |    ~    | a~ -> \e,Mc\e(B
+  breve      |    ~    | g~ -> \e,Mp\e(B
+  cedilla    |    ,    | c, -> \e,Mg\e(B
+  dot        |    .    | i. -> \e,M}\e(B   I. -> \e,M]\e(B
+  nordic     |    /    | a/ -> \e,Me\e(B   e/ -> \e,Mf\e(B   o/ -> \e,Mx\e(B
+  others     |    /    | s/ -> \e,M_\e(B
+
+Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("u^" ?\e,M{\e(B)
  ("u`" ?\e,My\e(B)
  ("y\"" ?\e,M\7f\e(B)
+
+ ("A''" ["A'"])
+ ("A//" ["A/"])
+ ("A\"\"" ["A\""])
+ ("A^^" ["A^"])
+ ("A``" ["A`"])
+ ("A~~" ["A~"])
+ ("C,," ["C,"])
+ ("E''" ["E'"])
+ ("E//" ["E/"])
+ ("E\"\"" ["E\""])
+ ("E^^" ["E^"])
+ ("E``" ["E`"])
+ ("G~~" ["G~"])
+ ("I''" ["I'"])
+ ("I.." ["I."])
+ ("I\"\"" ["I\""])
+ ("I^^" ["I^"])
+ ("I``" ["I`"])
+ ("N~~" ["N~"])
+ ("O''" ["O'"])
+ ("O//" ["O/"])
+ ("O\"\"" ["O\""])
+ ("O^^" ["O^"])
+ ("O``" ["O`"])
+ ("O~~" ["O~"])
+ ("S,," ["S,"])
+ ("U''" ["U'"])
+ ("U\"\"" ["U\""])
+ ("U^^" ["U^"])
+ ("U``" ["U`"])
+ ("a''" ["a'"])
+ ("a//" ["a/"])
+ ("a\"\"" ["a\""])
+ ("a^^" ["a^"])
+ ("a``" ["a`"])
+ ("a~~" ["a~"])
+ ("c,," ["c,"])
+ ("e''" ["e'"])
+ ("e//" ["e/"])
+ ("e\"\"" ["e\""])
+ ("e^^" ["e^"])
+ ("e``" ["e`"])
+ ("g~~" ["g~"])
+ ("i''" ["i'"])
+ ("i.." ["i."])
+ ("i\"\"" ["i\""])
+ ("i^^" ["i^"])
+ ("i``" ["i`"])
+ ("n~~" ["n~"])
+ ("o''" ["o'"])
+ ("o//" ["o/"])
+ ("o\"\"" ["o\""])
+ ("o^^" ["o^"])
+ ("o``" ["o`"])
+ ("o~~" ["o~"])
+ ("s,," ["s,"])
+ ("s//" ["s/"])
+ ("u''" ["u'"])
+ ("u\"\"" ["u\""])
+ ("u^^" ["u^"])
+ ("u``" ["u`"])
+ ("y\"\"" ["y\""])
  )
 
 (quail-define-package
  "danish-postfix" "Latin-1" "DA<" t
- "Danish input method (rule: AE -> \e,AF\e(B, OE -> \e,AX\e(B, AA -> \e,AE\e(B, E' -> \e,AI\e(B)"
+ "Danish input method (rule: AE -> \e,AF\e(B, OE -> \e,AX\e(B, AA -> \e,AE\e(B, E' -> \e,AI\e(B)
+
+Doubling the postfix separates the letter and postfix: e.g. aee -> ae
+"
  nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("AE" ?\e,AF\e(B)
  ("ae" ?\e,Af\e(B)
-
  ("OE" ?\e,AX\e(B)
  ("oe" ?\e,Ax\e(B)
-
  ("AA" ?\e,AE\e(B)
  ("aa" ?\e,Ae\e(B)
-
  ("E'" ?\e,AI\e(B)
  ("e'" ?\e,Ai\e(B)
+
+ ("AEE" ["AE"])
+ ("aee" ["ae"])
+ ("OEE" ["OE"])
+ ("oee" ["oe"])
+ ("AAA" ["AA"])
+ ("aaa" ["aa"])
+ ("E''" ["E'"])
+ ("e''" ["e'"])
  )
 
 (quail-define-package
  "esperanto-postfix" "Latin-3" "EO<" t
  "Esperanto input method with postfix modifiers
 
-Preceding ^ or following x will produce accented characters,
-e.g. ^C -> \e,CF\e(B, Gx -> \e,CX\e(B.
+A following ^ or x will produce an accented character,
+e.g. c^ -> \e,Cf\e(B, gx -> \e,Cx\e(B, u^ -> \e,C}\e(B.
+
+Doubling the postfix separates the letter and postfix,
+e.g. a'' -> a'.
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("Cx" ?\e,CF\e(B)
- ("^C" ?\e,CF\e(B)
+ ("C^" ?\e,CF\e(B)
  ("cx" ?\e,Cf\e(B)
- ("^c" ?\e,Cf\e(B)
-
+ ("c^" ?\e,Cf\e(B)
  ("Gx" ?\e,CX\e(B)
- ("^G" ?\e,CX\e(B)
+ ("G^" ?\e,CX\e(B)
  ("gx" ?\e,Cx\e(B)
- ("^g" ?\e,Cx\e(B)
-
+ ("g^" ?\e,Cx\e(B)
  ("Hx" ?\e,C&\e(B)
- ("^H" ?\e,C&\e(B)
+ ("H^" ?\e,C&\e(B)
  ("hx" ?\e,C6\e(B)
- ("^h" ?\e,C6\e(B)
-
+ ("h^" ?\e,C6\e(B)
  ("Jx" ?\e,C,\e(B)
- ("^J" ?\e,C,\e(B)
+ ("J^" ?\e,C,\e(B)
  ("jx" ?\e,C<\e(B)
- ("^j" ?\e,C<\e(B)
-
+ ("j^" ?\e,C<\e(B)
  ("Sx" ?\e,C^\e(B)
- ("^S" ?\e,C^\e(B)
+ ("S^" ?\e,C^\e(B)
  ("sx" ?\e,C~\e(B)
- ("^s" ?\e,C~\e(B)
-
+ ("s^" ?\e,C~\e(B)
  ("Ux" ?\e,C]\e(B)
- ("^U" ?\e,C]\e(B)
- ("~U" ?\e,C]\e(B)
+ ("U^" ?\e,C]\e(B)
  ("ux" ?\e,C}\e(B)
- ("^u" ?\e,C}\e(B)
- ("~u" ?\e,C}\e(B)
+ ("u^" ?\e,C}\e(B)
+
+ ("Cxx" ["Cx"])
+ ("C^^" ["C^"])
+ ("cxx" ["cx"])
+ ("c^^" ["c^"])
+ ("Gxx" ["Gx"])
+ ("G^^" ["G^"])
+ ("gxx" ["gx"])
+ ("g^^" ["g^"])
+ ("Hxx" ["Hx"])
+ ("H^^" ["H^"])
+ ("hxx" ["hx"])
+ ("h^^" ["h^"])
+ ("Jxx" ["Jx"])
+ ("J^^" ["J^"])
+ ("jxx" ["jx"])
+ ("j^^" ["j^"])
+ ("Sxx" ["Sx"])
+ ("S^^" ["S^"])
+ ("sxx" ["sx"])
+ ("s^^" ["s^"])
+ ("Uxx" ["Ux"])
+ ("U^^" ["U^"])
+ ("uxx" ["ux"])
+ ("u^^" ["u^"])
  )
 
 (quail-define-package
  "finnish-postfix" "Latin-1" "FI<" t
- "Finnish (Suomi) input method (rule: AE -> \e,AD\e(B, OE -> \e,AV\e(B)"
+ "Finnish (Suomi) input method
+
+AE  -> \e,AD\e(B
+AEE -> AE
+OE  -> \e,AV\e(B
+OEE -> OE
+"
  nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("AE" ?\e,AD\e(B)
  ("ae" ?\e,Ad\e(B)
-
  ("OE" ?\e,AV\e(B)
  ("oe" ?\e,Av\e(B)
+
+ ("AEE" ["AE"])
+ ("aee" ["ae"])
+ ("OEE" ["OE"])
+ ("oee" ["oe"])
  )
 
 (quail-define-package
@@ -583,9 +991,12 @@ e.g. ^C -> \e,CF\e(B, Gx -> \e,CX\e(B.
  "French (Fran\e,Ag\e(Bais) input method with postfix modifiers
 
 ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr\e,Ai\e(Bma.
-Par exemple A` -> \e,A@\e(B, E' -> \e,AI\e(B.
+Par exemple: a` -> \e,A`\e(B, e' -> \e,Ai\e(B.
+
+\e,AG\e(B, \e,A+\e(B, et \e,A;\e(B sont produits par C,, <<, et >>.
 
-\e,AG\e(B, \e,A+\e(B, et \e,A;\e(B sont produits par C/, <<, et >>.
+En doublant la frappe des diacritiques, ils s'isoleront de la lettre.
+Par exemple: e'' -> e'
 
 <e dans l'o> n'est pas disponible."
  nil t nil nil nil nil nil nil nil nil t)
@@ -595,7 +1006,6 @@ Par exemple A` -> \e,A@\e(B, E' -> \e,AI\e(B.
  ("A^" ?\e,AB\e(B)
  ("a`" ?\e,A`\e(B)
  ("a^" ?\e,Ab\e(B)
-
  ("E`" ?\e,AH\e(B)
  ("E'" ?\e,AI\e(B)
  ("E^" ?\e,AJ\e(B)
@@ -604,48 +1014,84 @@ Par exemple A` -> \e,A@\e(B, E' -> \e,AI\e(B.
  ("e'" ?\e,Ai\e(B)
  ("e^" ?\e,Aj\e(B)
  ("e\"" ?\e,Ak\e(B)
-
  ("I^" ?\e,AN\e(B)
  ("I\"" ?\e,AO\e(B)
  ("i^" ?\e,An\e(B)
  ("i\"" ?\e,Ao\e(B)
-
  ("O^" ?\e,AT\e(B)
  ("o^" ?\e,At\e(B)
-
  ("U`" ?\e,AY\e(B)
  ("U^" ?\e,A[\e(B)
  ("U\"" ?\e,A\\e(B)
  ("u`" ?\e,Ay\e(B)
  ("u^" ?\e,A{\e(B)
  ("u\"" ?\e,A|\e(B)
-
- ("C/" ?\e,AG\e(B)
- ("c/" ?\e,Ag\e(B)
-
+ ("C," ?\e,AG\e(B)
+ ("c," ?\e,Ag\e(B)
  ("<<" ?\e,A+\e(B)
  (">>" ?\e,A;\e(B)
+
+ ("A``" ["A`"])
+ ("A^^" ["A^"])
+ ("a``" ["a`"])
+ ("a^^" ["a^"])
+ ("E``" ["E`"])
+ ("E''" ["E'"])
+ ("E^^" ["E^"])
+ ("E\"\"" ["E\""])
+ ("e``" ["e`"])
+ ("e''" ["e'"])
+ ("e^^" ["e^"])
+ ("e\"\"" ["e\""])
+ ("I^^" ["I^"])
+ ("I\"\"" ["I\""])
+ ("i^^" ["i^"])
+ ("i\"\"" ["i\""])
+ ("O^^" ["O^"])
+ ("o^^" ["o^"])
+ ("U``" ["U`"])
+ ("U^^" ["U^"])
+ ("U\"\"" ["U\""])
+ ("u``" ["u`"])
+ ("u^^" ["u^"])
+ ("u\"\"" ["u\""])
+ ("C,," ["C,"])
+ ("c,," ["c,"])
+ ("<<<" ["<<"])
+ (">>>" [">>"])
  )
 
 (quail-define-package
  "german-postfix" "Latin-1" "DE<" t
- "German (Deutsch) input method (rule: AE -> \e,AD\e(B, OE -> \e,AV\e(B, UE -> \e,A\\e(B, sz -> \e,A_\e(B)
-
-\e,A_\e(B can also be input by 'ss' followed by M-n."
+ "German (Deutsch) input method
+
+ae  -> \e,Ad\e(B
+aee -> ae
+oe  -> \e,Av\e(B
+oee -> oe
+ue  -> \e,A|\e(B
+uee -> ue
+sz  -> \e,A_\e(B
+szz -> sz
+"
  nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("AE" ?\e,AD\e(B)
  ("ae" ?\e,Ad\e(B)
-
  ("OE" ?\e,AV\e(B)
  ("oe" ?\e,Av\e(B)
-
  ("UE" ?\e,A\\e(B)
  ("ue" ?\e,A|\e(B)
-
  ("sz" ?\e,A_\e(B)
- ("ss" ["ss" ?\e,A_\e(B])
+
+ ("AEE" ["AE"])
+ ("aee" ["ae"])
+ ("OEE" ["OE"])
+ ("oee" ["oe"])
+ ("UEE" ["UE"])
+ ("uee" ["ue"])
+ ("szz" ["sz"])
  )
 
 (quail-define-package
@@ -661,39 +1107,53 @@ Y' -> \e,A]\e(B
 AE -> \e,AF\e(B
 OE -> \e,AV\e(B
 D/ -> \e,AP\e(B (eth)
-T/ -> \e,A^\e(B (thorn)"
- nil t nil nil nil nil nil nil nil nil t)
+T/ -> \e,A^\e(B (thorn)
+
+Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A'" ?\e,AA\e(B)
  ("a'" ?\e,Aa\e(B)
-
  ("E'" ?\e,AI\e(B)
  ("e'" ?\e,Ai\e(B)
-
  ("I'" ?\e,AM\e(B)
  ("i'" ?\e,Am\e(B)
-
  ("O'" ?\e,AS\e(B)
  ("o'" ?\e,As\e(B)
-
  ("U'" ?\e,AZ\e(B)
  ("u'" ?\e,Az\e(B)
-
  ("Y'" ?\e,A]\e(B)
  ("y'" ?\e,A}\e(B)
-
  ("AE" ?\e,AF\e(B)
  ("ae" ?\e,Af\e(B)
-
  ("OE" ?\e,AV\e(B)
  ("oe" ?\e,Av\e(B)
-
  ("D/" ?\e,AP\e(B)
  ("d/" ?\e,Ap\e(B)
-
  ("T/" ?\e,A^\e(B)
  ("t/" ?\e,A~\e(B)
+
+ ("A''" ["A'"])
+ ("a''" ["a'"])
+ ("E''" ["E'"])
+ ("e''" ["e'"])
+ ("I''" ["I'"])
+ ("i''" ["i'"])
+ ("O''" ["O'"])
+ ("o''" ["o'"])
+ ("U''" ["U'"])
+ ("u''" ["u'"])
+ ("Y''" ["Y'"])
+ ("y''" ["y'"])
+ ("AEE" ["AE"])
+ ("aee" ["ae"])
+ ("OEE" ["OE"])
+ ("oee" ["oe"])
+ ("D//" ["D/"])
+ ("d//" ["d/"])
+ ("T//" ["T/"])
+ ("t//" ["t/"])
  )
 
 (quail-define-package
@@ -705,66 +1165,104 @@ E` -> \e,AH\e(B
 I` -> \e,AL\e(B
 O` -> \e,AR\e(B
 U` -> \e,AY\e(B
+
+Doubling the postfix separates the letter and postfix: e.g. a`` -> a`
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A`" ?\e,A@\e(B)
  ("a`" ?\e,A`\e(B)
-
  ("E`" ?\e,AH\e(B)
  ("e`" ?\e,Ah\e(B)
-
  ("I`" ?\e,AL\e(B)
  ("i`" ?\e,Al\e(B)
-
  ("O`" ?\e,AR\e(B)
  ("o`" ?\e,Ar\e(B)
-
  ("U`" ?\e,AY\e(B)
  ("u`" ?\e,Ay\e(B)
+
+ ("A``" ["A`"])
+ ("a``" ["a`"])
+ ("E``" ["E`"])
+ ("e``" ["e`"])
+ ("I``" ["I`"])
+ ("i``" ["i`"])
+ ("O``" ["O`"])
+ ("o``" ["o`"])
+ ("U``" ["U`"])
+ ("u``" ["u`"])
  )
 
 (quail-define-package
  "norwegian-postfix" "Latin-1" "NO<" t
- "Norwegian (Norsk) input method (rule: AE->\e,AF\e(B, OE->\e,AX\e(B, AA->\e,AE\e(B, E'->\e,AI\e(B)"
+ "Norwegian (Norsk) input method (rule: AE->\e,AF\e(B, OE->\e,AX\e(B, AA->\e,AE\e(B, E'->\e,AI\e(B)
+
+Doubling the postfix separates the letter and postfix: e.g. aee -> ae
+"
  nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("AE" ?\e,AF\e(B)
  ("ae" ?\e,Af\e(B)
-
  ("OE" ?\e,AX\e(B)
  ("oe" ?\e,Ax\e(B)
-
  ("AA" ?\e,AE\e(B)
  ("aa" ?\e,Ae\e(B)
-
  ("E'" ?\e,AI\e(B)
  ("e'" ?\e,Ai\e(B)
+
+ ("AEE" ["AE"])
+ ("aee" ["ae"])
+ ("OEE" ["OE"])
+ ("oee" ["oe"])
+ ("AAA" ["AA"])
+ ("aaa" ["aa"])
+ ("E''" ["E'"])
+ ("e''" ["e'"])
  )
 
 (quail-define-package
  "scandinavian-postfix" "Latin-1" "SC<" t
- "Scandinavian input method (rule: AE->\e,AD\e(B/\e,AF\e(B, OE->\e,AV\e(B/\e,AX\e(B, AA->\e,AE\e(B, E'->\e,AI\e(B)
-
+ "Scandinavian input method with postfix modifiers
 Supported languages are Swidish, Norwegian, Danish, and Finnish.
 
-You can toggle between \e,AD\e(B and \e,AF\e(B, or between OE and \e,AV\e(B, by typing M-n
-when the character is underlined.
-" nil nil nil nil nil nil nil nil nil nil t)
+ae -> \e,Af\e(B
+oe -> \e,Ax\e(B
+aa -> \e,Ae\e(B
+a\" -> \e,Ad\e(B
+o\" -> \e,Av\e(B
+e' -> \e,Ai\e(B
 
-(quail-define-rules
- ("AE" [?\e,AD\e(B ?\e,AF\e(B])
- ("ae" [?\e,Ad\e(B ?\e,Af\e(B])
+Doubling the postfix separates the letter and postfix:
+aee -> ae, o\"\" -> o\", etc.
+" nil t nil nil nil nil nil nil nil nil t)
 
+(quail-define-rules
+ ("AE" ?\e,AF\e(B)
+ ("ae" ?\e,Af\e(B)
+ ("OE" ?\e,AX\e(B)
+ ("oe" ?\e,Ax\e(B)
  ("AA" ?\e,AE\e(B)
  ("aa" ?\e,Ae\e(B)
-
- ("OE" [?\e,AV\e(B ?\e,AX\e(B])
- ("oe" [?\e,Av\e(B ?\e,Ax\e(B])
-
+ ("A\"" ?\e,AD\e(B)
+ ("a\"" ?\e,Ad\e(B)
+ ("O\"" ?\e,AV\e(B)
+ ("o\"" ?\e,Av\e(B)
  ("E'" ?\e,AI\e(B)
  ("e'" ?\e,Ai\e(B)
+
+ ("AEE" ["AE"])
+ ("aee" ["ae"])
+ ("OEE" ["OE"])
+ ("oee" ["oe"])
+ ("AAA" ["AA"])
+ ("aaa" ["aa"])
+ ("A\"\"" ["A\""])
+ ("a\"\"" ["a\""])
+ ("O\"\"" ["O\""])
+ ("o\"\"" ["o\""])
+ ("E''" ["E'"])
+ ("e''" ["e'"])
  )
 
 (quail-define-package
@@ -779,48 +1277,68 @@ U' -> \e,AZ\e(B
 N~ -> \e,AQ\e(B
 !/ -> \e,A!\e(B
 ?/ -> \e,A?\e(B
+
+Doubling the postfix separates the letter and postfix:
+a'' -> a', n~~ -> n~, etc.
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A'" ?\e,AA\e(B)
  ("a'" ?\e,Aa\e(B)
-
  ("E'" ?\e,AI\e(B)
  ("e'" ?\e,Ai\e(B)
-
  ("I'" ?\e,AM\e(B)
  ("i'" ?\e,Am\e(B)
-
  ("O'" ?\e,AS\e(B)
  ("o'" ?\e,As\e(B)
-
  ("U'" ?\e,AZ\e(B)
  ("u'" ?\e,Az\e(B)
-
  ("N~" ?\e,AQ\e(B)
  ("n~" ?\e,Aq\e(B)
-
  ("?/" ?\e,A?\e(B)
  ("!/" ?\e,A!\e(B)
+
+ ("A''" ["A'"])
+ ("a''" ["a'"])
+ ("E''" ["E'"])
+ ("e''" ["e'"])
+ ("I''" ["I'"])
+ ("i''" ["i'"])
+ ("O''" ["O'"])
+ ("o''" ["o'"])
+ ("U''" ["U'"])
+ ("u''" ["u'"])
+ ("N~~" ["N~"])
+ ("n~~" ["n~"])
+ ("?//" ["?/"])
+ ("!//" ["!/"])
  )
 
 (quail-define-package
  "swedish-postfix" "Latin-1" "SV<" t
- "Swedish (Svenska) input method (rule: AA -> \e,AE\e(B, AE -> \e,AD\e(B, OE -> \e,AV\e(B, E' -> \e,AI\e(B)"
- nil t nil nil nil nil nil nil nil nil t)
+ "Swedish (Svenska) input method (rule: AA -> \e,AE\e(B, AE -> \e,AD\e(B, OE -> \e,AV\e(B, E' -> \e,AI\e(B)
+
+Doubling the postfix separates the letter and postfix: e.g. aee -> ae
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("AA" ?\e,AE\e(B)
  ("aa" ?\e,Ae\e(B)
-
  ("AE" ?\e,AD\e(B)
  ("ae" ?\e,Ad\e(B)
-
  ("OE" ?\e,AV\e(B)
  ("oe" ?\e,Av\e(B)
-
  ("E'" ?\e,AI\e(B)
  ("e'" ?\e,Ai\e(B)
+
+ ("AAA" ["AA"])
+ ("aaa" ["aa"])
+ ("AEE" ["AE"])
+ ("aee" ["ae"])
+ ("OEE" ["OE"])
+ ("oee" ["oe"])
+ ("E''" ["E'"])
+ ("e''" ["e'"])
  )
 
 (quail-define-package
@@ -830,42 +1348,56 @@ N~ -> \e,AQ\e(B
 Note for I, \e,C9\e(B, \e,C)\e(B, i.
 
 A^ -> \e,CB\e(B
-C/ -> \e,CG\e(B
+C, -> \e,CG\e(B
 G^ -> \e,C+\e(B
 I  -> I
 i  -> \e,C9\e(B
-I' -> \e,C)\e(B
-i' -> i
+I. -> \e,C)\e(B
+i. -> i
 O\" -> \e,CV\e(B
-S/ -> \e,C*\e(B
+S, -> \e,C*\e(B
 U\" -> \e,C\\e(B
 U^ -> \e,C[\e(B
+
+Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A^" ?\e,CB\e(B)
  ("a^" ?\e,Cb\e(B)
-
- ("C/" ?\e,CG\e(B)
- ("c/" ?\e,Cg\e(B)
-
+ ("C," ?\e,CG\e(B)
+ ("c," ?\e,Cg\e(B)
  ("G^" ?\e,C+\e(B)
  ("g^" ?\e,C;\e(B)
-
- ("I'" ?\e,C)\e(B)
+ ("I." ?\e,C)\e(B)
  ("i" ?\e,C9\e(B)
- ("i'" ?i)
-
+ ("i." ?i)
  ("O\"" ?\e,CV\e(B)
  ("o\"" ?\e,Cv\e(B)
-
- ("S/" ?\e,C*\e(B)
- ("s/" ?\e,C:\e(B)
-
+ ("S," ?\e,C*\e(B)
+ ("s," ?\e,C:\e(B)
  ("U\"" ?\e,C\\e(B)
  ("u\"" ?\e,C|\e(B)
  ("U^" ?\e,C[\e(B)
  ("u^" ?\e,C{\e(B)
+
+ ("A^^" ["A^"])
+ ("a^^" ["a^"])
+ ("C,," ["C,"])
+ ("c,," ["c,"])
+ ("G^^" ["G^"])
+ ("g^^" ["g^"])
+ ("I.." ["I."])
+ ("i" ["i"])
+ ("i.." ["i."])
+ ("O\"\"" ["O\""])
+ ("o\"\"" ["o\""])
+ ("S,," ["S,"])
+ ("s,," ["s,"])
+ ("U\"\"" ["U\""])
+ ("u\"\"" ["u\""])
+ ("U^^" ["U^"])
+ ("u^^" ["u^"])
  )
 
 (quail-define-package
@@ -1057,6 +1589,9 @@ pr\e,Ai\e(Bfixes:  ^ pour circonflexe,  \e,A(\e(B pour tr\e,Ai\e(Bma.
  ("{e" ?\e,Ak\e(B)
  ("{i" ?\e,Ao\e(B)
  ("{u" ?\e,A|\e(B)
+
+ ("[[" ?^)
+ ("{{" ?\e,A(\e(B)
  )
 
 ;;
@@ -1105,6 +1640,8 @@ Dead accent is right to \e,Af\e(B." nil t t t t nil nil nil nil nil t)
  ("'O" ?\e,AS\e(B)
  ("'U" ?\e,AZ\e(B)
  ("'Y" ?\e,A]\e(B)
+
+ ("''" ?\e,A4\e(B)
  )
 
 ;;