--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/quail/quail-viet.el	Mon Aug 13 09:02:59 2007 +0200
@@ -0,0 +1,200 @@
+;; Quail packages for inputting Vietnamese characters.
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs).
+
+;; Mule is free software distributed in the form of patches to GNU Emacs.
+;; You can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 1, or (at your option)
+;; any later version.
+
+;; Mule is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;; 93.5.19  created for Mule Ver.0.9.8
+;;;			by Cuong T. Nguyen <cuong@haydn.stanford.edu>
+;;; 93.5.26  modified for Mule Ver.0.9.8 by K.Handa <handa@etl.go.jp>
+
+(require 'quail)
+
+(quail-define-package "viqr" "VIQR" t "Vietnamese VIQR inputting method.
+
+    effect   | postfix | examples
+ ------------+---------+----------
+    breve    |    (    | a( -> ,1e(B
+  circumflex |    ^    | a^ -> ,1b(B
+    horn     |    +    | o+ -> ,1=(B
+ ------------+---------+----------
+    acute    |    '    | a' -> ,1a(B
+    grave    |    `    | a` -> ,1`(B
+  hook above |    ?    | a? -> ,1d(B
+    tilde    |    ~    | a~ -> ,1c(B
+   dot below |    .    | a. -> ,1U(B
+ ------------+---------+----------
+    d bar    |   dd    | dd -> ,1p(B
+ ------------+---------+----------
+  no compose |    \    | a\. -> a.
+ ------------+---------+----------
+  combination|   (~    | a(~ -> ,1G(B
+
+" nil t t nil nil nil t)
+
+;;; lower-case
+(quail-defrule "a('"   ?,1!(B)	; 161
+(quail-defrule "a(`"   ?,1"(B)	; 162
+(quail-defrule "a(."   ?,1#(B)	; 163
+(quail-defrule "a^'"   ?,1$(B)	; 164
+(quail-defrule "a^`"   ?,1%(B)	; 165
+(quail-defrule "a^?"   ?,1&(B)	; 166
+(quail-defrule "a^."   ?,1'(B)	; 167
+(quail-defrule "e~"   ?,1((B)	; 168
+(quail-defrule "e."   ?,1)(B)	; 169
+(quail-defrule "e^'"   ?,1*(B)	; 170
+(quail-defrule "e^`"   ?,1+(B)	; 171
+(quail-defrule "e^?"   ?,1,(B)	; 172
+(quail-defrule "e^~"   ?,1-(B)	; 173
+(quail-defrule "e^."   ?,1.(B)	; 174
+(quail-defrule "o^'"   ?,1/(B)	; 175
+(quail-defrule "o^`"   ?,10(B)	; 176
+(quail-defrule "o^?"   ?,11(B)	; 177
+(quail-defrule "o^~"   ?,12(B)	; 178
+(quail-defrule "o^."   ?,15(B)	; 181
+(quail-defrule "o+`"   ?,16(B)	; 182
+(quail-defrule "o+?"   ?,17(B)	; 183
+(quail-defrule "i."   ?,18(B)	; 184
+(quail-defrule "o+"   ?,1=(B)	; 189
+(quail-defrule "o+'"   ?,1>(B)	; 190
+(quail-defrule "a(?"   ?,1F(B)	; 198
+(quail-defrule "a(~"   ?,1G(B)	; 199
+(quail-defrule "y`"   ?,1O(B)	; 207
+(quail-defrule "u+'"   ?,1Q(B)	; 209
+(quail-defrule "a."   ?,1U(B)	; 213
+(quail-defrule "y?"   ?,1V(B)	; 214
+(quail-defrule "u+`"   ?,1W(B)	; 215
+(quail-defrule "u+?"   ?,1X(B)	; 216
+(quail-defrule "y~"   ?,1[(B)	; 219
+(quail-defrule "y."   ?,1\(B)	; 220
+(quail-defrule "o+~"   ?,1^(B)	; 222
+(quail-defrule "u+"   ?,1_(B)	; 223
+(quail-defrule "a`"   ?,1`(B)	; 224
+(quail-defrule "a'"   ?,1a(B)	; 225
+(quail-defrule "a^"   ?,1b(B)	; 226
+(quail-defrule "a~"   ?,1c(B)	; 227
+(quail-defrule "a?"   ?,1d(B)	; 228
+(quail-defrule "a("   ?,1e(B)	; 229
+(quail-defrule "u+~"   ?,1f(B)	; 230
+(quail-defrule "a^~"   ?,1g(B)	; 231
+(quail-defrule "e`"   ?,1h(B)	; 232
+(quail-defrule "e'"   ?,1i(B)	; 233
+(quail-defrule "e^"   ?,1j(B)	; 234
+(quail-defrule "e?"   ?,1k(B)	; 235
+(quail-defrule "i`"   ?,1l(B)	; 236
+(quail-defrule "i'"   ?,1m(B)	; 237
+(quail-defrule "i~"   ?,1n(B)	; 238
+(quail-defrule "i?"   ?,1o(B)	; 239
+(quail-defrule "dd"   ?,1p(B)	; 240
+(quail-defrule "u+."   ?,1q(B)	; 241
+(quail-defrule "o`"   ?,1r(B)	; 242
+(quail-defrule "o'"   ?,1s(B)	; 243
+(quail-defrule "o^"   ?,1t(B)	; 244
+(quail-defrule "o~"   ?,1u(B)	; 245
+(quail-defrule "o?"   ?,1v(B)	; 246
+(quail-defrule "o."   ?,1w(B)	; 247
+(quail-defrule "u."   ?,1x(B)	; 248
+(quail-defrule "u`"   ?,1y(B)	; 249
+(quail-defrule "u'"   ?,1z(B)	; 250
+(quail-defrule "u~"   ?,1{(B)	; 251
+(quail-defrule "u?"   ?,1|(B)	; 252
+(quail-defrule "y'"   ?,1}(B)	; 253
+(quail-defrule "o+."   ?,1~(B)	; 254
+
+;;; upper-case
+(quail-defrule "A('"   ?,2!(B)	; 161
+(quail-defrule "A(`"   ?,2"(B)	; 162
+(quail-defrule "A(."   ?,2#(B)	; 163
+(quail-defrule "A^'"   ?,2$(B)	; 164
+(quail-defrule "A^`"   ?,2%(B)	; 165
+(quail-defrule "A^?"   ?,2&(B)	; 166
+(quail-defrule "A^."   ?,2'(B)	; 167
+(quail-defrule "E~"   ?,2((B)	; 168
+(quail-defrule "E."   ?,2)(B)	; 169
+(quail-defrule "E^'"   ?,2*(B)	; 170
+(quail-defrule "E^`"   ?,2+(B)	; 171
+(quail-defrule "E^?"   ?,2,(B)	; 172
+(quail-defrule "E^~"   ?,2-(B)	; 173
+(quail-defrule "E^."   ?,2.(B)	; 174
+(quail-defrule "O^'"   ?,2/(B)	; 175
+(quail-defrule "O^`"   ?,20(B)	; 176
+(quail-defrule "O^?"   ?,21(B)	; 177
+(quail-defrule "O^~"   ?,22(B)	; 178
+(quail-defrule "O^."   ?,25(B)	; 181
+(quail-defrule "O+`"   ?,26(B)	; 182
+(quail-defrule "O+?"   ?,27(B)	; 183
+(quail-defrule "I."   ?,28(B)	; 184
+(quail-defrule "O+"   ?,2=(B)	; 189
+(quail-defrule "O+'"   ?,2>(B)	; 190
+(quail-defrule "A(?"   ?,2F(B)	; 198
+(quail-defrule "A(~"   ?,2G(B)	; 199
+(quail-defrule "Y`"   ?,2O(B)	; 207
+(quail-defrule "U+'"   ?,2Q(B)	; 209
+(quail-defrule "A."   ?,2U(B)	; 213
+(quail-defrule "Y?"   ?,2V(B)	; 214
+(quail-defrule "U+`"   ?,2W(B)	; 215
+(quail-defrule "U+?"   ?,2X(B)	; 216
+(quail-defrule "Y~"   ?,2[(B)	; 219
+(quail-defrule "Y."   ?,2\(B)	; 220
+(quail-defrule "O+~"   ?,2^(B)	; 222
+(quail-defrule "U+"   ?,2_(B)	; 223
+(quail-defrule "A`"   ?,2`(B)	; 224
+(quail-defrule "A'"   ?,2a(B)	; 225
+(quail-defrule "A^"   ?,2b(B)	; 226
+(quail-defrule "A~"   ?,2c(B)	; 227
+(quail-defrule "A?"   ?,2d(B)	; 228
+(quail-defrule "A("   ?,2e(B)	; 229
+(quail-defrule "U+~"   ?,2f(B)	; 230
+(quail-defrule "A^~"   ?,2g(B)	; 231
+(quail-defrule "E`"   ?,2h(B)	; 232
+(quail-defrule "E'"   ?,2i(B)	; 233
+(quail-defrule "E^"   ?,2j(B)	; 234
+(quail-defrule "E?"   ?,2k(B)	; 235
+(quail-defrule "I`"   ?,2l(B)	; 236
+(quail-defrule "I'"   ?,2m(B)	; 237
+(quail-defrule "I~"   ?,2n(B)	; 238
+(quail-defrule "I?"   ?,2o(B)	; 239
+(quail-defrule "DD"   ?,2p(B)	; 240
+(quail-defrule "dD"   ?,2p(B)	; 240
+(quail-defrule "Dd"   ?,2p(B)	; 240
+(quail-defrule "U+."   ?,2q(B)	; 241
+(quail-defrule "O`"   ?,2r(B)	; 242
+(quail-defrule "O'"   ?,2s(B)	; 243
+(quail-defrule "O^"   ?,2t(B)	; 244
+(quail-defrule "O~"   ?,2u(B)	; 245
+(quail-defrule "O?"   ?,2v(B)	; 246
+(quail-defrule "O."   ?,2w(B)	; 247
+(quail-defrule "U."   ?,2x(B)	; 248
+(quail-defrule "U`"   ?,2y(B)	; 249
+(quail-defrule "U'"   ?,2z(B)	; 250
+(quail-defrule "U~"   ?,2{(B)	; 251
+(quail-defrule "U?"   ?,2|(B)	; 252
+(quail-defrule "Y'"   ?,2}(B)	; 253
+(quail-defrule "O+."   ?,2~(B)	; 254
+
+;;; Escape from composition
+(quail-defrule "\\("   ?()	; breve (left parenthesis)
+(quail-defrule "\\^"   ?^)	; circumflex (caret)
+(quail-defrule "\\+"   ?+)	; horn (plus sign)
+(quail-defrule "\\'"   ?')	; acute (apostrophe)
+(quail-defrule "\\`"   ?`)	; grave (backquote)
+(quail-defrule "\\?"   ??)	; hook above (question mark)
+(quail-defrule "\\~"   ?~)	; tilde (tilde)
+(quail-defrule "\\."   ?.)	; dot below (period)
+(quail-defrule "\\d"   ?d)	; d-bar (d)
+(quail-defrule "\\\\"  ?\\)	; literal backslash
+
+(quail-setup-current-package)