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

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

diff --git a/leim/quail/latin-post.el b/leim/quail/latin-post.el
index bc47c6daceba668ed4b55341a7db42e174d961db..d0b2c338c138df218227390a6a9ad1467e4afc74 100644 (file)
--- 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\e,C|\e(Brk\e,Cg\e(Be) input method with postfix modifiers
+ "turkish-latin-3-postfix" "Latin-3" "TR3<" t
+ "Turkish (T\e,C|\e(Brk\e,Cg\e(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, \e,C9\e(B, \e,C)\e(B, i.
 
@@ -1425,6 +1428,69 @@ Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
  ("u^^" ["u^"])
  )
 
+(quail-define-package
+ "turkish-postfix" "Latin-5" "TR<" t
+ "Turkish (T\e,M|\e(Brk\e,Mg\e(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, \e,M}\e(B, \e,M]\e(B, i.
+
+A^ -> \e,MB\e(B
+C, -> \e,MG\e(B
+G^ -> \e,MP\e(B
+I  -> I
+i  -> \e,M}\e(B
+I. -> \e,M]\e(B
+i. -> i
+O\" -> \e,MV\e(B
+S, -> \e,M^\e(B
+U\" -> \e,M\\e(B
+U^ -> \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
+ ("A^" ?\e,MB\e(B)
+ ("a^" ?\e,Mb\e(B)
+ ("C," ?\e,MG\e(B)
+ ("c," ?\e,Mg\e(B)
+ ("G^" ?\e,MP\e(B)
+ ("g^" ?\e,Mp\e(B)
+ ("I." ?\e,M]\e(B)
+ ("i" ?\e,M}\e(B)
+ ("i." ?i)
+ ("O\"" ?\e,MV\e(B)
+ ("o\"" ?\e,Mv\e(B)
+ ("S," ?\e,M^\e(B)
+ ("s," ?\e,M~\e(B)
+ ("U\"" ?\e,M\\e(B)
+ ("u\"" ?\e,M|\e(B)
+ ("U^" ?\e,M[\e(B)
+ ("u^" ?\e,M{\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
  "british" "Latin-1" "\e,A#\e(B@" t
  "British English input method with Latin-1 character \e,A#\e(B (# -> \e,A#\e(B)"