(show-paren-mode): Use define-minor-mode.

[bpt/emacs.git] / leim / quail / latin-alt.el

diff --git a/leim/quail/latin-alt.el b/leim/quail/latin-alt.el
index 2eae483..f7e0bf6 100644 (file)
--- a/leim/quail/latin-alt.el
+++ b/leim/quail/latin-alt.el
@@ -1401,9 +1401,12 @@ Doubling the postfix separates the letter and postfix: e.g. aee -> ae
  )
 
 (quail-define-package
- "turkish-alt-postfix" "Latin-3" "TR<" t
+ "turkish-latin-3-alt-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.
 
 A^ -> \e,CB\e(B
@@ -1458,3 +1461,66 @@ Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
  ("U^^" ["U^"])
  ("u^^" ["u^"])
  )
+
+(quail-define-package
+ "turkish-alt-postfix" "Latin-5" "TR\e,M+\e(B" 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-alt-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,Cv\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^"])
+ )