("turkish-latin-3-postfix"): Renamed from

turkish-postfix.
("turkish-postfix"): New Turkish input method which inserts
Latin-5 characters.

1 files changed, 68 insertions, 2 deletions

diff --git a/leim/quail/latin-post.el b/leim/quail/latin-post.el
index bc47c6daceb..d0b2c338c13 100644
--- a/leim/quail/latin-post.el
+++ b/leim/quail/latin-post.el
@@ -1367,8 +1367,11 @@ Doubling the postfix separates the letter and postfix: e.g. aee -> ae
  )
 
 (quail-define-package
- "turkish-postfix" "Latin-3" "TR<" t
- "Turkish (T,C|(Brk,Cg(Be) input method with postfix modifiers
+ "turkish-latin-3-postfix" "Latin-3" "TR3<" t
+ "Turkish (T,C|(Brk,Cg(Be) input method with postfix modifiers.
+
+This is for those who use Latin-3 (ISO-8859-3) for Turkish.  If you
+use Latin-5 (ISO-8859-9), you should use \"turkish-postfix\" instead.
 
 Note for I, ,C9(B, ,C)(B, i.
 
@@ -1426,6 +1429,69 @@ Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
  )
 
 (quail-define-package
+ "turkish-postfix" "Latin-5" "TR<" t
+ "Turkish (T,M|(Brk,Mg(Be) input method with postfix modifiers.
+
+This is for those who use Latin-5 (ISO-8859-9) for Turkish.  If you
+use Latin-3 (ISO-8859-3), you should use \"turkish-latin-3-postfix\"
+instead.
+
+Note for I, ,M}(B, ,M](B, i.
+
+A^ -> ,MB(B
+C, -> ,MG(B
+G^ -> ,MP(B
+I  -> I
+i  -> ,M}(B
+I. -> ,M](B
+i. -> i
+O\" -> ,MV(B
+S, -> ,M^(B
+U\" -> ,M\(B
+U^ -> ,M[(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^" ?,MB(B)
+ ("a^" ?,Mb(B)
+ ("C," ?,MG(B)
+ ("c," ?,Mg(B)
+ ("G^" ?,MP(B)
+ ("g^" ?,Mp(B)
+ ("I." ?,M](B)
+ ("i" ?,M}(B)
+ ("i." ?i)
+ ("O\"" ?,MV(B)
+ ("o\"" ?,Mv(B)
+ ("S," ?,M^(B)
+ ("s," ?,M~(B)
+ ("U\"" ?,M\(B)
+ ("u\"" ?,M|(B)
+ ("U^" ?,M[(B)
+ ("u^" ?,M{(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
  "british" "Latin-1" ",A#(B@" t
  "British English input method with Latin-1 character ,A#(B (# -> ,A#(B)"
  nil t nil nil nil nil nil nil nil nil t)