Mercurial > hg > xemacs-beta

comparison lisp/quail/quail-viet.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents
children
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;; Quail packages for inputting Vietnamese characters.
2 ;; Copyright (C) 1992 Free Software Foundation, Inc.
3 ;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs).
4
5 ;; Mule is free software distributed in the form of patches to GNU Emacs.
6 ;; You can redistribute it and/or modify
7 ;; it under the terms of the GNU General Public License as published by
8 ;; the Free Software Foundation; either version 1, or (at your option)
9 ;; any later version.
10
11 ;; Mule is distributed in the hope that it will be useful,
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;; GNU General Public License for more details.
15
16 ;; You should have received a copy of the GNU General Public License
17 ;; along with GNU Emacs; see the file COPYING. If not, write to
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
19
20 ;;; 93.5.19 created for Mule Ver.0.9.8
21 ;;; by Cuong T. Nguyen <cuong@haydn.stanford.edu>
22 ;;; 93.5.26 modified for Mule Ver.0.9.8 by K.Handa <handa@etl.go.jp>
23
24 (require 'quail)
25
26 (quail-define-package "viqr" "VIQR" t "Vietnamese VIQR inputting method.
27
28 effect | postfix | examples
29 ------------+---------+----------
30 breve | ( | a( -> ,1e(B
31 circumflex | ^ | a^ -> ,1b(B
32 horn | + | o+ -> ,1=(B
33 ------------+---------+----------
34 acute | ' | a' -> ,1a(B
35 grave | ` | a` -> ,1`(B
36 hook above | ? | a? -> ,1d(B
37 tilde | ~ | a~ -> ,1c(B
38 dot below | . | a. -> ,1U(B
39 ------------+---------+----------
40 d bar | dd | dd -> ,1p(B
41 ------------+---------+----------
42 no compose | \ | a\. -> a.
43 ------------+---------+----------
44 combination| (~ | a(~ -> ,1G(B
45
46 " nil t t nil nil nil t)
47
48 ;;; lower-case
49 (quail-defrule "a('" ?,1!(B) ; 161
50 (quail-defrule "a(`" ?,1"(B) ; 162
51 (quail-defrule "a(." ?,1#(B) ; 163
52 (quail-defrule "a^'" ?,1$(B) ; 164
53 (quail-defrule "a^`" ?,1%(B) ; 165
54 (quail-defrule "a^?" ?,1&(B) ; 166
55 (quail-defrule "a^." ?,1'(B) ; 167
56 (quail-defrule "e~" ?,1((B) ; 168
57 (quail-defrule "e." ?,1)(B) ; 169
58 (quail-defrule "e^'" ?,1*(B) ; 170
59 (quail-defrule "e^`" ?,1+(B) ; 171
60 (quail-defrule "e^?" ?,1,(B) ; 172
61 (quail-defrule "e^~" ?,1-(B) ; 173
62 (quail-defrule "e^." ?,1.(B) ; 174
63 (quail-defrule "o^'" ?,1/(B) ; 175
64 (quail-defrule "o^`" ?,10(B) ; 176
65 (quail-defrule "o^?" ?,11(B) ; 177
66 (quail-defrule "o^~" ?,12(B) ; 178
67 (quail-defrule "o^." ?,15(B) ; 181
68 (quail-defrule "o+`" ?,16(B) ; 182
69 (quail-defrule "o+?" ?,17(B) ; 183
70 (quail-defrule "i." ?,18(B) ; 184
71 (quail-defrule "o+" ?,1=(B) ; 189
72 (quail-defrule "o+'" ?,1>(B) ; 190
73 (quail-defrule "a(?" ?,1F(B) ; 198
74 (quail-defrule "a(~" ?,1G(B) ; 199
75 (quail-defrule "y`" ?,1O(B) ; 207
76 (quail-defrule "u+'" ?,1Q(B) ; 209
77 (quail-defrule "a." ?,1U(B) ; 213
78 (quail-defrule "y?" ?,1V(B) ; 214
79 (quail-defrule "u+`" ?,1W(B) ; 215
80 (quail-defrule "u+?" ?,1X(B) ; 216
81 (quail-defrule "y~" ?,1[(B) ; 219
82 (quail-defrule "y." ?,1\(B) ; 220
83 (quail-defrule "o+~" ?,1^(B) ; 222
84 (quail-defrule "u+" ?,1_(B) ; 223
85 (quail-defrule "a`" ?,1`(B) ; 224
86 (quail-defrule "a'" ?,1a(B) ; 225
87 (quail-defrule "a^" ?,1b(B) ; 226
88 (quail-defrule "a~" ?,1c(B) ; 227
89 (quail-defrule "a?" ?,1d(B) ; 228
90 (quail-defrule "a(" ?,1e(B) ; 229
91 (quail-defrule "u+~" ?,1f(B) ; 230
92 (quail-defrule "a^~" ?,1g(B) ; 231
93 (quail-defrule "e`" ?,1h(B) ; 232
94 (quail-defrule "e'" ?,1i(B) ; 233
95 (quail-defrule "e^" ?,1j(B) ; 234
96 (quail-defrule "e?" ?,1k(B) ; 235
97 (quail-defrule "i`" ?,1l(B) ; 236
98 (quail-defrule "i'" ?,1m(B) ; 237
99 (quail-defrule "i~" ?,1n(B) ; 238
100 (quail-defrule "i?" ?,1o(B) ; 239
101 (quail-defrule "dd" ?,1p(B) ; 240
102 (quail-defrule "u+." ?,1q(B) ; 241
103 (quail-defrule "o`" ?,1r(B) ; 242
104 (quail-defrule "o'" ?,1s(B) ; 243
105 (quail-defrule "o^" ?,1t(B) ; 244
106 (quail-defrule "o~" ?,1u(B) ; 245
107 (quail-defrule "o?" ?,1v(B) ; 246
108 (quail-defrule "o." ?,1w(B) ; 247
109 (quail-defrule "u." ?,1x(B) ; 248
110 (quail-defrule "u`" ?,1y(B) ; 249
111 (quail-defrule "u'" ?,1z(B) ; 250
112 (quail-defrule "u~" ?,1{(B) ; 251
113 (quail-defrule "u?" ?,1|(B) ; 252
114 (quail-defrule "y'" ?,1}(B) ; 253
115 (quail-defrule "o+." ?,1~(B) ; 254
116
117 ;;; upper-case
118 (quail-defrule "A('" ?,2!(B) ; 161
119 (quail-defrule "A(`" ?,2"(B) ; 162
120 (quail-defrule "A(." ?,2#(B) ; 163
121 (quail-defrule "A^'" ?,2$(B) ; 164
122 (quail-defrule "A^`" ?,2%(B) ; 165
123 (quail-defrule "A^?" ?,2&(B) ; 166
124 (quail-defrule "A^." ?,2'(B) ; 167
125 (quail-defrule "E~" ?,2((B) ; 168
126 (quail-defrule "E." ?,2)(B) ; 169
127 (quail-defrule "E^'" ?,2*(B) ; 170
128 (quail-defrule "E^`" ?,2+(B) ; 171
129 (quail-defrule "E^?" ?,2,(B) ; 172
130 (quail-defrule "E^~" ?,2-(B) ; 173
131 (quail-defrule "E^." ?,2.(B) ; 174
132 (quail-defrule "O^'" ?,2/(B) ; 175
133 (quail-defrule "O^`" ?,20(B) ; 176
134 (quail-defrule "O^?" ?,21(B) ; 177
135 (quail-defrule "O^~" ?,22(B) ; 178
136 (quail-defrule "O^." ?,25(B) ; 181
137 (quail-defrule "O+`" ?,26(B) ; 182
138 (quail-defrule "O+?" ?,27(B) ; 183
139 (quail-defrule "I." ?,28(B) ; 184
140 (quail-defrule "O+" ?,2=(B) ; 189
141 (quail-defrule "O+'" ?,2>(B) ; 190
142 (quail-defrule "A(?" ?,2F(B) ; 198
143 (quail-defrule "A(~" ?,2G(B) ; 199
144 (quail-defrule "Y`" ?,2O(B) ; 207
145 (quail-defrule "U+'" ?,2Q(B) ; 209
146 (quail-defrule "A." ?,2U(B) ; 213
147 (quail-defrule "Y?" ?,2V(B) ; 214
148 (quail-defrule "U+`" ?,2W(B) ; 215
149 (quail-defrule "U+?" ?,2X(B) ; 216
150 (quail-defrule "Y~" ?,2[(B) ; 219
151 (quail-defrule "Y." ?,2\(B) ; 220
152 (quail-defrule "O+~" ?,2^(B) ; 222
153 (quail-defrule "U+" ?,2_(B) ; 223
154 (quail-defrule "A`" ?,2`(B) ; 224
155 (quail-defrule "A'" ?,2a(B) ; 225
156 (quail-defrule "A^" ?,2b(B) ; 226
157 (quail-defrule "A~" ?,2c(B) ; 227
158 (quail-defrule "A?" ?,2d(B) ; 228
159 (quail-defrule "A(" ?,2e(B) ; 229
160 (quail-defrule "U+~" ?,2f(B) ; 230
161 (quail-defrule "A^~" ?,2g(B) ; 231
162 (quail-defrule "E`" ?,2h(B) ; 232
163 (quail-defrule "E'" ?,2i(B) ; 233
164 (quail-defrule "E^" ?,2j(B) ; 234
165 (quail-defrule "E?" ?,2k(B) ; 235
166 (quail-defrule "I`" ?,2l(B) ; 236
167 (quail-defrule "I'" ?,2m(B) ; 237
168 (quail-defrule "I~" ?,2n(B) ; 238
169 (quail-defrule "I?" ?,2o(B) ; 239
170 (quail-defrule "DD" ?,2p(B) ; 240
171 (quail-defrule "dD" ?,2p(B) ; 240
172 (quail-defrule "Dd" ?,2p(B) ; 240
173 (quail-defrule "U+." ?,2q(B) ; 241
174 (quail-defrule "O`" ?,2r(B) ; 242
175 (quail-defrule "O'" ?,2s(B) ; 243
176 (quail-defrule "O^" ?,2t(B) ; 244
177 (quail-defrule "O~" ?,2u(B) ; 245
178 (quail-defrule "O?" ?,2v(B) ; 246
179 (quail-defrule "O." ?,2w(B) ; 247
180 (quail-defrule "U." ?,2x(B) ; 248
181 (quail-defrule "U`" ?,2y(B) ; 249
182 (quail-defrule "U'" ?,2z(B) ; 250
183 (quail-defrule "U~" ?,2{(B) ; 251
184 (quail-defrule "U?" ?,2|(B) ; 252
185 (quail-defrule "Y'" ?,2}(B) ; 253
186 (quail-defrule "O+." ?,2~(B) ; 254
187
188 ;;; Escape from composition
189 (quail-defrule "\\(" ?() ; breve (left parenthesis)
190 (quail-defrule "\\^" ?^) ; circumflex (caret)
191 (quail-defrule "\\+" ?+) ; horn (plus sign)
192 (quail-defrule "\\'" ?') ; acute (apostrophe)
193 (quail-defrule "\\`" ?`) ; grave (backquote)
194 (quail-defrule "\\?" ??) ; hook above (question mark)
195 (quail-defrule "\\~" ?~) ; tilde (tilde)
196 (quail-defrule "\\." ?.) ; dot below (period)
197 (quail-defrule "\\d" ?d) ; d-bar (d)
198 (quail-defrule "\\\\" ?\\) ; literal backslash
199
200 (quail-setup-current-package)