("dutch"): New method.

diff --git a/leim/quail/latin-alt.el b/leim/quail/latin-alt.el
index eed14a17453e52b1ad0271725554030a536048ab..5b4582236988826b10ff5aa4f02f0b5c5792abfa 100644 (file)
--- a/leim/quail/latin-alt.el
+++ b/leim/quail/latin-alt.el
@@ -1,7 +1,8 @@
-;;; latin-alt.el --- Quail packages for inputting various European characters
+;; latin-alt.el --- Quail package for inputting various European characters -*-coding: iso-2022-7bit;-*-
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2001 Free Software Foundation, Inc.
 
 ;; Keywords: multilingual, input method, latin
 
@@ -1529,4 +1530,94 @@ Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
  ("u^^" ["u^"])
  )
 
+;; Dutch Quail input method derived from the one in Yudit by Roman
+;; Czyborra.
+(quail-define-package
+ "dutch" "Latin" "NL" t
+ "Dutch character mixfix input method.
+Uses the `mule-unicode-0100-24ff' charset to supplement Latin-1.
+
+             |         | examples
+ ------------+---------+----------
+  others     |         | fl. -> \e$,1!R\e(B  eur. -> \e$,1tL\e(B  ij -> \e$,1 S\e(B  IJ -> \e$,1 R\e(B
+ ------------+---------+----------
+             | postfix |
+ ------------+---------+----------
+  acute      |    '    | a' -> \e,Aa\e(B
+  grave      |    `    | a` -> \e,A`\e(B
+  circumflex |    ^    | a^ -> \e,Ab\e(B
+  Turkish    | various | i/ -> \e$,1 Q\e(B  s, -> \e$,1 \7f\e(B  g^ -> \e$,1 ?\e(B   I/ -> \e$,1 P\e(B
+             |         |  S, -> \e$,1 ~\e(B  G^ -> \e$,1 >\e(B
+ ------------+---------+----------
+             | prefix  |
+ ------------+---------+----------
+  diaeresis  |    \"    | \"a -> \e,Ad\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
+ ("fl." "\e$,1!R\e(B") ;; (florin currency symbol)
+ ("eur." "\e$,1tL\e(B")
+ ;; \e$,1r|\e(BThe 25th letter of the Dutch alphabet.\e$,1r}\e(B
+ ("ij" "\e$,1 S\e(B")
+ ("IJ" "\e$,1 R\e(B")
+ ;; \e$,1r|\e(BTrema on the second letter of vowel pair.\e$,1r}\e(B  Yudit uses `:', not `"'.
+ ("\"a" "\e,Ad\e(B")
+ ("\"e" "\e,Ak\e(B")
+ ("\"i" "\e,Ao\e(B")
+ ("\"o" "\e,Av\e(B")
+ ("\"u" "\e,A|\e(B")
+ ("\"A" "\e,AD\e(B")
+ ("\"E" "\e,AK\e(B")
+ ("\"I" "\e,AO\e(B")
+ ("\"O" "\e,AV\e(B")
+ ("\"U" "\e,A\\e(B")
+ ;; \e$,1r|\e(BAcute, marking emphasis on long vowels\e$,1r}\e(B:
+ ("a'" "\e,Aa\e(B")
+ ("e'" "\e,Ai\e(B")
+ ("i'" "\e,Am\e(B")
+ ("o'" "\e,As\e(B")
+ ("u'" "\e,Az\e(B")
+ ("A'" "\e,AA\e(B")
+ ("E'" "\e,AI\e(B")
+ ("I'" "\e,AM\e(B")
+ ("O'" "\e,AS\e(B")
+ ("U'" "\e,AZ\e(B")
+ ;; \e$,1r|\e(BGrave, marking emphasis on short vowels\e$,1r}\e(B:
+ ("a`" "\e,A`\e(B")
+ ("e`" "\e,Ah\e(B")
+ ("i`" "\e,Al\e(B")
+ ("o`" "\e,Ar\e(B")
+ ("u`" "\e,Ay\e(B")
+ ("A`" "\e,A@\e(B") 
+ ("E`" "\e,AH\e(B") 
+ ("I`" "\e,AL\e(B") 
+ ("O`" "\e,AR\e(B") 
+ ("U`" "\e,AY\e(B")
+ ;; \e$,1r|\e(BCater for the use of many French words and use of the circumflex
+ ;; in Frisian.\e$,1r}\e(B  Yudit used `;' for cedilla.
+ ("c," "\e,Ag\e(B")
+ ("C," "\e,AG\e(B")
+ ("a^" "\e,Ab\e(B")
+ ("e^" "\e,Aj\e(B")
+ ("i^" "\e,An\e(B")
+ ("o^" "\e,At\e(B")
+ ("u^" "\e,A{\e(B")
+ ("A^" "\e,AB\e(B") 
+ ("E^" "\e,AJ\e(B") 
+ ("I^" "\e,AN\e(B") 
+ ("O^" "\e,AT\e(B") 
+ ("U^" "\e,A[\e(B")
+ ;; \e$,1r|\e(BFollow the example of the Dutch POSIX locale, using ISO-8859-9 to
+ ;; cater to the many Turks in Dutch society.\e$,1r}\e(B  Perhaps German methods
+ ;; should do so too.  Follow turkish-alt-postfix here.
+ ("i/" "\e$,1 Q\e(B")
+ ("s," "\e$,1 \7f\e(B")
+ ("g^" "\e$,1 ?\e(B")
+ ("I/" "\e$,1 P\e(B")
+ ("S," "\e$,1 ~\e(B")
+ ("G^" "\e$,1 >\e(B")
+ )
+
 ;;; latin-alt.el ends here