Mercurial > hg > xemacs-beta

comparison lisp/quail/quail-ethio.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 package for Ethiopic characters.
2 ;; Copyright (C) 1994 Free Software Foundation, Inc.
3 ;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs).
4 ;; This file contains Ethipic characters.
5
6 ;; Mule is free software distributed in the form of patches to GNU Emacs.
7 ;; You can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation; either version 1, or (at your option)
10 ;; any later version.
11
12 ;; Mule is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
16
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs; see the file COPYING. If not, write to
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
20
21 ;;; 94.10.13 created for Mule Ver.2.1 by TAKAHASHI Naoto <ntakahas@etl.go.jp>
22 ;;; 95.7.19 modified for Mule Ver.2.2.2 by TAKAHASHI Naoto <ntakahas@etl.go.jp>
23
24 (require 'quail)
25 (require 'ethio)
26
27 ;;
28 ;; toggle ethio & latin input
29 ;;
30
31 (defvar ethio-prefer-arabic-digit t)
32 (make-variable-buffer-local 'ethio-prefer-arabic-digit)
33 (defvar ethio-prefer-latin-space t)
34 (make-variable-buffer-local 'ethio-prefer-latin-space)
35 (defvar ethio-prefer-ethiopic-space nil)
36 (make-variable-buffer-local 'ethio-prefer-ethiopic-space)
37 (defvar ethio-prefer-latin-punctuation nil)
38 (make-variable-buffer-local 'ethio-prefer-latin-punctuation)
39
40 (defconst arabic-digit-strings
41 '("1" "2" "3" "4" "5" "6" "7" "8" "9"
42 "10" "20" "30" "40" "50" "60" "70" "80" "90"
43 "100" "200" "300" "400" "500" "600" "700" "800" "900"
44 "1000" "2000" "3000" "4000" "5000" "6000" "7000" "8000" "9000"
45 "10000" "20000" "30000" "40000" "50000" "60000" "70000" "80000" "90000"
46 "100000" "200000" "300000" "400000" "500000" "600000" "700000" "80000"
47 "900000" "1000000"))
48
49 (defconst ethiopic-digit-strings
50 '("$(2$W(B" "$(2$X(B" "$(2$Y(B" "$(2$Z(B" "$(2$[(B" "$(2$\(B" "$(2$](B" "$(2$^(B" "$(2$_(B"
51 "$(2$`(B" "$(2$a(B" "$(2$b(B" "$(2$c(B" "$(2$d(B" "$(2$e(B" "$(2$f(B" "$(2$g(B" "$(2$h(B"
52 "$(2$i(B" "$(2$X$i(B" "$(2$Y$i(B" "$(2$Z$i(B" "$(2$[$i(B" "$(2$\$i(B" "$(2$]$i(B" "$(2$^$i(B" "$(2$_$i(B"
53 "$(2$`$i(B" "$(2$a$i(B" "$(2$b$i(B" "$(2$c$i(B" "$(2$d$i(B" "$(2$e$i(B" "$(2$f$i(B" "$(2$g$i(B" "$(2$h$i(B"
54 "$(2$j(B" "$(2$X$j(B" "$(2$Y$j(B" "$(2$Z$j(B" "$(2$[$j(B" "$(2$\$j(B" "$(2$]$j(B" "$(2$^$j(B" "$(2$_$j(B"
55 "$(2$`$j(B" "$(2$a$j(B" "$(2$b$j(B" "$(2$c$j(B" "$(2$d$j(B" "$(2$e$j(B" "$(2$f$j(B" "$(2$g$j(B" "$(2$h$j(B"
56 "$(2$i$j(B"))
57
58 (defconst latin-punctuation-strings
59 '("." ".." "," ",," ";" ";;" ":" ":::" "*" "**"))
60
61 (defconst ethiopic-punctuation-strings
62 '("$(2$P(B" "." "$(2$Q(B" "," "$(2$R(B" ";" "$(2$S(B" ":" "$(2$T(B" "*"))
63
64 (defun ethio-toggle-digit nil
65 "Toggle Arabic numbers and Ethiopic numbers for keyboard input."
66 (interactive)
67 (if (and quail-mode
68 (string= (quail-package-name) "ethio"))
69 (let ((nums (if ethio-prefer-arabic-digit
70 ethiopic-digit-strings
71 arabic-digit-strings))
72 (keys arabic-digit-strings))
73 (while keys
74 (quail-defrule (car keys) (car nums))
75 (setq keys (cdr keys)
76 nums (cdr nums)))
77 (setq ethio-prefer-arabic-digit (not ethio-prefer-arabic-digit))
78 (redraw-modeline t))))
79
80 (defun ethio-toggle-space nil
81 "Toggle Latin space and Ethiopic separator for keyboard input."
82 (interactive)
83 (if (and quail-mode
84 (string= (quail-package-name) "ethio"))
85 (progn
86 (cond (ethio-prefer-latin-space
87 (quail-defrule " " "$(2$N(B")
88 (setq ethio-prefer-latin-space nil
89 ethio-prefer-ethiopic-space t))
90 (ethio-prefer-ethiopic-space
91 (quail-defrule " " "$(2$O(B")
92 (setq ethio-prefer-ethiopic-space nil))
93 (t
94 (quail-defrule " " " " "ethio")
95 (setq ethio-prefer-latin-space t)))
96 (redraw-modeline t))))
97
98 (defun ethio-toggle-punctuation nil
99 "Toggle Ethiopic punctuation and Latin punctuation for keyboard input."
100 (interactive)
101 (if (and quail-mode
102 (string= (quail-package-name) "ethio"))
103 (let ((puncs (if ethio-prefer-latin-punctuation
104 ethiopic-punctuation-strings
105 latin-punctuation-strings))
106 (keys latin-punctuation-strings))
107 (while keys
108 (quail-defrule (car keys) (car puncs))
109 (setq keys (cdr keys)
110 puncs (cdr puncs)))
111 (setq ethio-prefer-latin-punctuation
112 (not ethio-prefer-latin-punctuation))
113 (redraw-modeline t))))
114
115 (defvar quail-ethio-mode nil)
116 (make-variable-buffer-local 'quail-ethio-mode)
117
118 (defvar quail-ethio-mode-map nil)
119 (or quail-ethio-mode-map
120 (let ((map (make-sparse-keymap)))
121 (define-key map [f1] 'ethio-toggle-digit)
122 (define-key map [f2] 'ethio-toggle-space)
123 (define-key map [f3] 'ethio-toggle-punctuation)
124 (setq quail-ethio-mode-map map)))
125
126 (or (assq 'quail-ethio-mode minor-mode-map-alist)
127 (setq minor-mode-map-alist
128 (cons (cons 'quail-ethio-mode quail-ethio-mode-map)
129 minor-mode-map-alist)))
130
131 (defun quail-ethio-mode (&optional arg)
132 (interactive "P")
133 (setq quail-ethio-mode
134 (and quail-mode
135 (if (null arg) (not quail-ethio-mode)
136 (> (prefix-numeric-value arg) 0)))))
137
138 (quail-define-package
139 "ethio"
140 '("$(2"="#!&(B "
141 (ethio-prefer-arabic-digit "1" "$(2$W(B")
142 (ethio-prefer-latin-space "_"
143 (ethio-prefer-ethiopic-space "$(2$N(B" "$(2$O(B"))
144 (ethio-prefer-latin-punctuation "." "$(2$P(B"))
145 t " KEYS AND FUNCTIONS
146
147 [F1] or `M-x ethio-toggle-digit'
148 toggles Arabic digit input and Ethiopic digit input. The
149 current input mode is indicated by the character `1' or `$(2$W(B' in
150 the mode line, next to the `Q-ETHIO' string. The default is
151 Arabic.
152 In Ethiopic mode, you can input up to 1000000 ($(2$i$j(B) by
153 continuous zeros. To input 2000000 ($(2$X$i$j(B), for example, you
154 have to type `21000000'.
155
156 [F2] or `M-x ethio-toggle-space'
157 toggles space characters (one of the three below) for keyboard
158 input.
159 a) ` ' - Single width ASCII space. Mode line Indicator is `_'.
160 b) `$(2$N(B' - Double width Ethiopic blank. Mode line Indicator is `$(2$N(B'.
161 c) `$(2$O(B' - Ethiopic word separator. Mode line Indicator is `$(2$O(B'.
162 Each time you hit [F2], the space character changes a -> b -> c -> a
163 and so on. The default is ASCII space.
164
165 [F3] or `M-x ethio-toggle-punctuation'
166 toggles Latin punctuation input and Ethiopic punctuation input.
167 The mode line indicator is `.' (Latin) and `$(2$P(B' (Ethiopic).
168 The default is Ethiopic.
169 " nil t t nil nil nil nil '(quail-ethio-mode))
170
171 (qd "le" "$(2!!(B")
172 (qd "lu" "$(2!"(B")
173 (qd "li" "$(2!#(B")
174 (qd "la" "$(2!$(B")
175 (qd "lE" "$(2!%(B")
176 (qd "l" "$(2!&(B")
177 (qd "lo" "$(2!'(B")
178 (qd "lW" "$(2!((B")
179 (qd "lWa" "$(2!((B")
180 (qd "lWe" "$(2!&#L(B")
181 (qd "lWu" "$(2!&#M(B")
182 (qd "lWi" "$(2!&#N(B")
183 (qd "lWE" "$(2!&#P(B")
184 (qd "lW'" "$(2!&#M(B")
185
186 (qd "Le" "$(2!!(B")
187 (qd "Lu" "$(2!"(B")
188 (qd "Li" "$(2!#(B")
189 (qd "La" "$(2!$(B")
190 (qd "LE" "$(2!%(B")
191 (qd "L" "$(2!&(B")
192 (qd "Lo" "$(2!'(B")
193 (qd "LW" "$(2!((B")
194 (qd "LWa" "$(2!((B")
195 (qd "LWe" "$(2!&#L(B")
196 (qd "LWu" "$(2!&#M(B")
197 (qd "LWi" "$(2!&#N(B")
198 (qd "LWE" "$(2!&#P(B")
199 (qd "LW'" "$(2!&#M(B")
200
201 (qd "me" "$(2!)(B")
202 (qd "mu" "$(2!*(B")
203 (qd "mi" "$(2!+(B")
204 (qd "ma" "$(2!,(B")
205 (qd "mE" "$(2!-(B")
206 (qd "m" "$(2!.(B")
207 (qd "mo" "$(2!/(B")
208 (qd "mW" "$(2!0(B")
209 (qd "mWa" "$(2!0(B")
210 (qd "mWe" "$(2!.#L(B")
211 (qd "mWu" "$(2!.#M(B")
212 (qd "mWi" "$(2!.#N(B")
213 (qd "mWE" "$(2!.#P(B")
214 (qd "mW'" "$(2!.#M(B")
215
216 (qd "Me" "$(2!)(B")
217 (qd "Mu" "$(2!*(B")
218 (qd "Mi" "$(2!+(B")
219 (qd "Ma" "$(2!,(B")
220 (qd "ME" "$(2!-(B")
221 (qd "M" "$(2!.(B")
222 (qd "Mo" "$(2!/(B")
223 (qd "MW" "$(2!0(B")
224 (qd "MWa" "$(2!0(B")
225 (qd "MWe" "$(2!.#L(B")
226 (qd "MWu" "$(2!.#M(B")
227 (qd "MWi" "$(2!.#N(B")
228 (qd "MWE" "$(2!.#P(B")
229 (qd "MW'" "$(2!.#M(B")
230
231 (qd "re" "$(2!1(B")
232 (qd "ru" "$(2!2(B")
233 (qd "ri" "$(2!3(B")
234 (qd "ra" "$(2!4(B")
235 (qd "rE" "$(2!5(B")
236 (qd "r" "$(2!6(B")
237 (qd "ro" "$(2!7(B")
238 (qd "rW" "$(2!8(B")
239 (qd "rWa" "$(2!8(B")
240 (qd "rWe" "$(2!6#L(B")
241 (qd "rWu" "$(2!6#M(B")
242 (qd "rWi" "$(2!6#N(B")
243 (qd "rWE" "$(2!6#P(B")
244 (qd "rW'" "$(2!6#M(B")
245
246 (qd "Re" "$(2!1(B")
247 (qd "Ru" "$(2!2(B")
248 (qd "Ri" "$(2!3(B")
249 (qd "Ra" "$(2!4(B")
250 (qd "RE" "$(2!5(B")
251 (qd "R" "$(2!6(B")
252 (qd "Ro" "$(2!7(B")
253 (qd "RW" "$(2!8(B")
254 (qd "RWa" "$(2!8(B")
255 (qd "RWe" "$(2!6#L(B")
256 (qd "RWu" "$(2!6#M(B")
257 (qd "RWi" "$(2!6#N(B")
258 (qd "RWE" "$(2!6#P(B")
259 (qd "RW'" "$(2!6#M(B")
260
261 (qd "xe" "$(2!9(B")
262 (qd "xu" "$(2!:(B")
263 (qd "xi" "$(2!;(B")
264 (qd "xa" "$(2!<(B")
265 (qd "xE" "$(2!=(B")
266 (qd "x" "$(2!>(B")
267 (qd "xo" "$(2!?(B")
268 (qd "xW" "$(2!@(B")
269 (qd "xWa" "$(2!@(B")
270 (qd "xWe" "$(2!>#L(B")
271 (qd "xWu" "$(2!>#M(B")
272 (qd "xWi" "$(2!>#N(B")
273 (qd "xWE" "$(2!>#P(B")
274 (qd "xW'" "$(2!>#M(B")
275
276 (qd "be" "$(2!A(B")
277 (qd "bu" "$(2!B(B")
278 (qd "bi" "$(2!C(B")
279 (qd "ba" "$(2!D(B")
280 (qd "bE" "$(2!E(B")
281 (qd "b" "$(2!F(B")
282 (qd "bo" "$(2!G(B")
283 (qd "bW" "$(2!H(B")
284 (qd "bWa" "$(2!H(B")
285 (qd "bWe" "$(2!F#L(B")
286 (qd "bWu" "$(2!F#M(B")
287 (qd "bWi" "$(2!F#N(B")
288 (qd "bWE" "$(2!F#P(B")
289 (qd "bW'" "$(2!F#M(B")
290
291 (qd "Be" "$(2!A(B")
292 (qd "Bu" "$(2!B(B")
293 (qd "Bi" "$(2!C(B")
294 (qd "Ba" "$(2!D(B")
295 (qd "BE" "$(2!E(B")
296 (qd "B" "$(2!F(B")
297 (qd "Bo" "$(2!G(B")
298 (qd "BW" "$(2!H(B")
299 (qd "BWa" "$(2!H(B")
300 (qd "BWe" "$(2!F#L(B")
301 (qd "BWu" "$(2!F#M(B")
302 (qd "BWi" "$(2!F#N(B")
303 (qd "BWE" "$(2!F#P(B")
304 (qd "BW'" "$(2!F#M(B")
305
306 (qd "ve" "$(2!I(B")
307 (qd "vu" "$(2!J(B")
308 (qd "vi" "$(2!K(B")
309 (qd "va" "$(2!L(B")
310 (qd "vE" "$(2!M(B")
311 (qd "v" "$(2!N(B")
312 (qd "vo" "$(2!O(B")
313 (qd "vW" "$(2!P(B")
314 (qd "vWa" "$(2!P(B")
315 (qd "vWe" "$(2!N#L(B")
316 (qd "vWu" "$(2!N#M(B")
317 (qd "vWi" "$(2!N#N(B")
318 (qd "vWE" "$(2!N#P(B")
319 (qd "vW'" "$(2!N#M(B")
320
321 (qd "Ve" "$(2!I(B")
322 (qd "Vu" "$(2!J(B")
323 (qd "Vi" "$(2!K(B")
324 (qd "Va" "$(2!L(B")
325 (qd "VE" "$(2!M(B")
326 (qd "V" "$(2!N(B")
327 (qd "Vo" "$(2!O(B")
328 (qd "VW" "$(2!P(B")
329 (qd "VWa" "$(2!P(B")
330 (qd "VWe" "$(2!N#L(B")
331 (qd "VWu" "$(2!N#M(B")
332 (qd "VWi" "$(2!N#N(B")
333 (qd "VWE" "$(2!N#P(B")
334 (qd "VW'" "$(2!N#M(B")
335
336 (qd "te" "$(2!Q(B")
337 (qd "tu" "$(2!R(B")
338 (qd "ti" "$(2!S(B")
339 (qd "ta" "$(2!T(B")
340 (qd "tE" "$(2!U(B")
341 (qd "t" "$(2!V(B")
342 (qd "to" "$(2!W(B")
343 (qd "tW" "$(2!X(B")
344 (qd "tWa" "$(2!X(B")
345 (qd "tWe" "$(2!V#L(B")
346 (qd "tWu" "$(2!V#M(B")
347 (qd "tWi" "$(2!V#N(B")
348 (qd "tWE" "$(2!V#P(B")
349 (qd "tW'" "$(2!V#M(B")
350
351 (qd "ce" "$(2!Y(B")
352 (qd "cu" "$(2!Z(B")
353 (qd "ci" "$(2![(B")
354 (qd "ca" "$(2!\(B")
355 (qd "cE" "$(2!](B")
356 (qd "c" "$(2!^(B")
357 (qd "co" "$(2!_(B")
358 (qd "cW" "$(2!`(B")
359 (qd "cWa" "$(2!`(B")
360 (qd "cWe" "$(2!^#L(B")
361 (qd "cWu" "$(2!^#M(B")
362 (qd "cWi" "$(2!^#N(B")
363 (qd "cWE" "$(2!^#P(B")
364 (qd "cW'" "$(2!^#M(B")
365
366 (qd "ne" "$(2!a(B")
367 (qd "nu" "$(2!b(B")
368 (qd "ni" "$(2!c(B")
369 (qd "na" "$(2!d(B")
370 (qd "nE" "$(2!e(B")
371 (qd "n" "$(2!f(B")
372 (qd "no" "$(2!g(B")
373 (qd "nW" "$(2!h(B")
374 (qd "nWa" "$(2!h(B")
375 (qd "nWe" "$(2!f#L(B")
376 (qd "nWu" "$(2!f#M(B")
377 (qd "nWi" "$(2!f#N(B")
378 (qd "nWE" "$(2!f#P(B")
379 (qd "nW'" "$(2!f#M(B")
380
381 (qd "Ne" "$(2!i(B")
382 (qd "Nu" "$(2!j(B")
383 (qd "Ni" "$(2!k(B")
384 (qd "Na" "$(2!l(B")
385 (qd "NE" "$(2!m(B")
386 (qd "N" "$(2!n(B")
387 (qd "No" "$(2!o(B")
388 (qd "NW" "$(2!p(B")
389 (qd "NWa" "$(2!p(B")
390 (qd "NWe" "$(2!n#L(B")
391 (qd "NWu" "$(2!n#M(B")
392 (qd "NWi" "$(2!n#N(B")
393 (qd "NWE" "$(2!n#P(B")
394 (qd "NW'" "$(2!n#M(B")
395
396 (qd "ze" "$(2!q(B")
397 (qd "zu" "$(2!r(B")
398 (qd "zi" "$(2!s(B")
399 (qd "za" "$(2!t(B")
400 (qd "zE" "$(2!u(B")
401 (qd "z" "$(2!v(B")
402 (qd "zo" "$(2!w(B")
403 (qd "zW" "$(2!x(B")
404 (qd "zWa" "$(2!x(B")
405 (qd "zWe" "$(2!v#L(B")
406 (qd "zWu" "$(2!v#M(B")
407 (qd "zWi" "$(2!v#N(B")
408 (qd "zWE" "$(2!v#P(B")
409 (qd "zW'" "$(2!v#M(B")
410
411 (qd "Ze" "$(2!y(B")
412 (qd "Zu" "$(2!z(B")
413 (qd "Zi" "$(2!{(B")
414 (qd "Za" "$(2!|(B")
415 (qd "ZE" "$(2!}(B")
416 (qd "Z" "$(2!~(B")
417 (qd "Zo" "$(2"!(B")
418 (qd "ZW" "$(2""(B")
419 (qd "ZWa" "$(2""(B")
420 (qd "ZWe" "$(2!~#L(B")
421 (qd "ZWu" "$(2!~#M(B")
422 (qd "ZWi" "$(2!~#N(B")
423 (qd "ZWE" "$(2!~#P(B")
424 (qd "ZW'" "$(2!~#M(B")
425
426 (qd "de" "$(2"#(B")
427 (qd "du" "$(2"$(B")
428 (qd "di" "$(2"%(B")
429 (qd "da" "$(2"&(B")
430 (qd "dE" "$(2"'(B")
431 (qd "d" "$(2"((B")
432 (qd "do" "$(2")(B")
433 (qd "dW" "$(2"*(B")
434 (qd "dWa" "$(2"*(B")
435 (qd "dWe" "$(2"(#L(B")
436 (qd "dWu" "$(2"(#M(B")
437 (qd "dWi" "$(2"(#N(B")
438 (qd "dWE" "$(2"(#P(B")
439 (qd "dW'" "$(2"(#M(B")
440
441 (qd "Te" "$(2"+(B")
442 (qd "Tu" "$(2",(B")
443 (qd "Ti" "$(2"-(B")
444 (qd "Ta" "$(2".(B")
445 (qd "TE" "$(2"/(B")
446 (qd "T" "$(2"0(B")
447 (qd "To" "$(2"1(B")
448 (qd "TW" "$(2"2(B")
449 (qd "TWa" "$(2"2(B")
450 (qd "TWe" "$(2"0#L(B")
451 (qd "TWu" "$(2"0#M(B")
452 (qd "TWi" "$(2"0#N(B")
453 (qd "TWE" "$(2"0#P(B")
454 (qd "TW'" "$(2"0#M(B")
455
456 (qd "Ce" "$(2"3(B")
457 (qd "Cu" "$(2"4(B")
458 (qd "Ci" "$(2"5(B")
459 (qd "Ca" "$(2"6(B")
460 (qd "CE" "$(2"7(B")
461 (qd "C" "$(2"8(B")
462 (qd "Co" "$(2"9(B")
463 (qd "CW" "$(2":(B")
464 (qd "CWa" "$(2":(B")
465 (qd "CWe" "$(2"8#L(B")
466 (qd "CWu" "$(2"8#M(B")
467 (qd "CWi" "$(2"8#N(B")
468 (qd "CWE" "$(2"8#P(B")
469 (qd "CW'" "$(2"8#M(B")
470
471 (qd "fe" "$(2";(B")
472 (qd "fu" "$(2"<(B")
473 (qd "fi" "$(2"=(B")
474 (qd "fa" "$(2">(B")
475 (qd "fE" "$(2"?(B")
476 (qd "f" "$(2"@(B")
477 (qd "fo" "$(2"A(B")
478 (qd "fW" "$(2"B(B")
479 (qd "fWa" "$(2"B(B")
480 (qd "fWe" "$(2"@#L(B")
481 (qd "fWu" "$(2"@#M(B")
482 (qd "fWi" "$(2"@#N(B")
483 (qd "fWE" "$(2"@#P(B")
484 (qd "fW'" "$(2"@#M(B")
485
486 (qd "Fe" "$(2";(B")
487 (qd "Fu" "$(2"<(B")
488 (qd "Fi" "$(2"=(B")
489 (qd "Fa" "$(2">(B")
490 (qd "FE" "$(2"?(B")
491 (qd "F" "$(2"@(B")
492 (qd "Fo" "$(2"A(B")
493 (qd "FW" "$(2"B(B")
494 (qd "FWa" "$(2"B(B")
495 (qd "FWe" "$(2"@#L(B")
496 (qd "FWu" "$(2"@#M(B")
497 (qd "FWi" "$(2"@#N(B")
498 (qd "FWE" "$(2"@#P(B")
499 (qd "FW'" "$(2"@#M(B")
500
501 (qd "se" "$(2"C(B")
502 (qd "su" "$(2"D(B")
503 (qd "si" "$(2"E(B")
504 (qd "sa" "$(2"F(B")
505 (qd "sE" "$(2"G(B")
506 (qd "s" "$(2"H(B")
507 (qd "so" "$(2"I(B")
508 (qd "sW" "$(2"J(B")
509 (qd "sWa" "$(2"J(B")
510 (qd "sWe" "$(2"H#L(B")
511 (qd "sWu" "$(2"H#M(B")
512 (qd "sWi" "$(2"H#N(B")
513 (qd "sWE" "$(2"H#P(B")
514 (qd "sW'" "$(2"H#M(B")
515
516 (qd "Se" "$(2"K(B")
517 (qd "Su" "$(2"L(B")
518 (qd "Si" "$(2"M(B")
519 (qd "Sa" "$(2"N(B")
520 (qd "SE" "$(2"O(B")
521 (qd "S" "$(2"P(B")
522 (qd "So" "$(2"Q(B")
523 (qd "SW" "$(2"R(B")
524 (qd "SWa" "$(2"R(B")
525 (qd "SWe" "$(2"P#L(B")
526 (qd "SWu" "$(2"P#M(B")
527 (qd "SWi" "$(2"P#N(B")
528 (qd "SWE" "$(2"P#P(B")
529 (qd "SW'" "$(2"P#M(B")
530
531 (qd "a" "$(2"S(B")
532 (qd "e" "$(2"S(B")
533 (qd "u" "$(2"T(B")
534 (qd "U" "$(2"T(B")
535 (qd "i" "$(2"U(B")
536 (qd "A" "$(2"V(B")
537 (qd "E" "$(2"W(B")
538 (qd "I" "$(2"X(B")
539 (qd "o" "$(2"Y(B")
540 (qd "O" "$(2"Y(B")
541 (qd "e3" "$(2"Z(B")
542
543 (qd "he" "$(2"[(B")
544 (qd "hu" "$(2"\(B")
545 (qd "hi" "$(2"](B")
546 (qd "ha" "$(2"^(B")
547 (qd "hE" "$(2"_(B")
548 (qd "h" "$(2"`(B")
549 (qd "ho" "$(2"a(B")
550 (qd "hW" "$(2"c(B")
551 (qd "hWe" "$(2"b(B")
552 (qd "hWu" "$(2"c(B")
553 (qd "hWi" "$(2"d(B")
554 (qd "hWa" "$(2"e(B")
555 (qd "hWE" "$(2"f(B")
556
557 (qd "ke" "$(2"g(B")
558 (qd "ku" "$(2"h(B")
559 (qd "ki" "$(2"i(B")
560 (qd "ka" "$(2"j(B")
561 (qd "kE" "$(2"k(B")
562 (qd "k" "$(2"l(B")
563 (qd "ko" "$(2"m(B")
564 (qd "kW" "$(2"o(B")
565 (qd "kWe" "$(2"n(B")
566 (qd "kWu" "$(2"o(B")
567 (qd "kWi" "$(2"p(B")
568 (qd "kWa" "$(2"q(B")
569 (qd "kWE" "$(2"r(B")
570
571 (qd "Ke" "$(2"s(B")
572 (qd "Ku" "$(2"t(B")
573 (qd "Ki" "$(2"u(B")
574 (qd "Ka" "$(2"v(B")
575 (qd "KE" "$(2"w(B")
576 (qd "K" "$(2"x(B")
577 (qd "Ko" "$(2"y(B")
578 (qd "KW" "$(2"{(B")
579 (qd "KWe" "$(2"z(B")
580 (qd "KWu" "$(2"{(B")
581 (qd "KWi" "$(2"|(B")
582 (qd "KWa" "$(2"}(B")
583 (qd "KWE" "$(2"~(B")
584
585 (qd "qe" "$(2#!(B")
586 (qd "qu" "$(2#"(B")
587 (qd "qi" "$(2##(B")
588 (qd "qa" "$(2#$(B")
589 (qd "qE" "$(2#%(B")
590 (qd "q" "$(2#&(B")
591 (qd "qo" "$(2#'(B")
592 (qd "qW" "$(2#)(B")
593 (qd "qWe" "$(2#((B")
594 (qd "qWu" "$(2#)(B")
595 (qd "qWi" "$(2#*(B")
596 (qd "qWa" "$(2#+(B")
597 (qd "qWE" "$(2#,(B")
598
599 (qd "Qe" "$(2#-(B")
600 (qd "Qu" "$(2#.(B")
601 (qd "Qi" "$(2#/(B")
602 (qd "Qa" "$(2#0(B")
603 (qd "QE" "$(2#1(B")
604 (qd "Q" "$(2#2(B")
605 (qd "Qo" "$(2#3(B")
606 (qd "QW" "$(2#5(B")
607 (qd "QWe" "$(2#4(B")
608 (qd "QWu" "$(2#5(B")
609 (qd "QWi" "$(2#6(B")
610 (qd "QWa" "$(2#7(B")
611 (qd "QWE" "$(2#8(B")
612
613 (qd "ge" "$(2#9(B")
614 (qd "gu" "$(2#:(B")
615 (qd "gi" "$(2#;(B")
616 (qd "ga" "$(2#<(B")
617 (qd "gE" "$(2#=(B")
618 (qd "g" "$(2#>(B")
619 (qd "go" "$(2#?(B")
620 (qd "gW" "$(2#A(B")
621 (qd "gWe" "$(2#@(B")
622 (qd "gWu" "$(2#A(B")
623 (qd "gWi" "$(2#B(B")
624 (qd "gWa" "$(2#C(B")
625 (qd "gWE" "$(2#D(B")
626
627 (qd "we" "$(2#E(B")
628 (qd "wu" "$(2#F(B")
629 (qd "wi" "$(2#G(B")
630 (qd "wa" "$(2#H(B")
631 (qd "wE" "$(2#I(B")
632 (qd "w" "$(2#J(B")
633 (qd "wo" "$(2#K(B")
634
635 (qd "W" "$(2#M(B")
636 (qd "We" "$(2#L(B")
637 (qd "Wu" "$(2#M(B")
638 (qd "Wi" "$(2#N(B")
639 (qd "Wa" "$(2#O(B")
640 (qd "WE" "$(2#P(B")
641
642 (qd "wW" "$(2#M(B")
643 (qd "wWe" "$(2#L(B")
644 (qd "wWu" "$(2#M(B")
645 (qd "wWi" "$(2#N(B")
646 (qd "wWa" "$(2#O(B")
647 (qd "wWE" "$(2#P(B")
648
649 (qd "`se" "$(2#Q(B")
650 (qd "`su" "$(2#R(B")
651 (qd "`si" "$(2#S(B")
652 (qd "`sa" "$(2#T(B")
653 (qd "`sE" "$(2#U(B")
654 (qd "`s" "$(2#V(B")
655 (qd "`so" "$(2#W(B")
656 (qd "`sW" "$(2"J(B")
657 (qd "`sWa" "$(2"J(B")
658 (qd "`sWe" "$(2#V#L(B")
659 (qd "`sWu" "$(2#V#M(B")
660 (qd "`sWi" "$(2#V#N(B")
661 (qd "`sWE" "$(2#V#P(B")
662 (qd "`sW'" "$(2#V#M(B")
663
664 (qd "s2e" "$(2#Q(B")
665 (qd "s2u" "$(2#R(B")
666 (qd "s2i" "$(2#S(B")
667 (qd "s2a" "$(2#T(B")
668 (qd "s2E" "$(2#U(B")
669 (qd "s2" "$(2#V(B")
670 (qd "s2o" "$(2#W(B")
671 (qd "s2W" "$(2"J(B")
672 (qd "s2Wa" "$(2"J(B")
673 (qd "s2We" "$(2#V#L(B")
674 (qd "s2Wu" "$(2#V#M(B")
675 (qd "s2Wi" "$(2#V#N(B")
676 (qd "s2WE" "$(2#V#P(B")
677 (qd "s2W'" "$(2#V#M(B")
678
679 (qd "sse" "$(2#Q(B")
680 (qd "ssu" "$(2#R(B")
681 (qd "ssi" "$(2#S(B")
682 (qd "ssa" "$(2#T(B")
683 (qd "ssE" "$(2#U(B")
684 (qd "ss" "$(2#V(B")
685 (qd "sso" "$(2#W(B")
686 (qd "ssW" "$(2"J(B")
687 (qd "ssWa" "$(2"J(B")
688 (qd "ssWe" "$(2#V#L(B")
689 (qd "ssWu" "$(2#V#M(B")
690 (qd "ssWi" "$(2#V#N(B")
691 (qd "ssWE" "$(2#V#P(B")
692 (qd "ssW'" "$(2#V#M(B")
693
694 (qd "`Se" "$(2#X(B")
695 (qd "`Su" "$(2#Y(B")
696 (qd "`Si" "$(2#Z(B")
697 (qd "`Sa" "$(2#[(B")
698 (qd "`SE" "$(2#\(B")
699 (qd "`S" "$(2#](B")
700 (qd "`So" "$(2#^(B")
701 (qd "`SW" "$(2"R(B")
702 (qd "`SWa" "$(2"R(B")
703 (qd "`SWe" "$(2#]#L(B")
704 (qd "`SWu" "$(2#]#M(B")
705 (qd "`SWi" "$(2#]#N(B")
706 (qd "`SWE" "$(2#]#P(B")
707 (qd "`SW'" "$(2#]#M(B")
708
709 (qd "S2e" "$(2#X(B")
710 (qd "S2u" "$(2#Y(B")
711 (qd "S2i" "$(2#Z(B")
712 (qd "S2a" "$(2#[(B")
713 (qd "S2E" "$(2#\(B")
714 (qd "S2" "$(2#](B")
715 (qd "S2o" "$(2#^(B")
716 (qd "S2W" "$(2"R(B")
717 (qd "S2Wa" "$(2"R(B")
718 (qd "S2We" "$(2#]#L(B")
719 (qd "S2Wu" "$(2#]#M(B")
720 (qd "S2Wi" "$(2#]#N(B")
721 (qd "S2WE" "$(2#]#P(B")
722 (qd "S2W'" "$(2#]#M(B")
723
724 (qd "SSe" "$(2#X(B")
725 (qd "SSu" "$(2#Y(B")
726 (qd "SSi" "$(2#Z(B")
727 (qd "SSa" "$(2#[(B")
728 (qd "SSE" "$(2#\(B")
729 (qd "SS" "$(2#](B")
730 (qd "SSo" "$(2#^(B")
731 (qd "SSW" "$(2"R(B")
732 (qd "SSWa" "$(2"R(B")
733 (qd "SSWe" "$(2#]#L(B")
734 (qd "SSWu" "$(2#]#M(B")
735 (qd "SSWi" "$(2#]#N(B")
736 (qd "SSWE" "$(2#]#P(B")
737 (qd "SSW'" "$(2#]#M(B")
738
739 (qd "`e" "$(2#_(B")
740 (qd "`u" "$(2#`(B")
741 (qd "`U" "$(2#`(B")
742 (qd "`i" "$(2#a(B")
743 (qd "`a" "$(2#b(B")
744 (qd "`A" "$(2#b(B")
745 (qd "`E" "$(2#c(B")
746 (qd "`I" "$(2#d(B")
747 (qd "`o" "$(2#e(B")
748 (qd "`O" "$(2#e(B")
749
750 (qd "e2" "$(2#_(B")
751 (qd "u2" "$(2#`(B")
752 (qd "U2" "$(2#`(B")
753 (qd "i2" "$(2#a(B")
754 (qd "a2" "$(2#b(B")
755 (qd "A2" "$(2#b(B")
756 (qd "E2" "$(2#c(B")
757 (qd "I2" "$(2#d(B")
758 (qd "o2" "$(2#e(B")
759 (qd "O2" "$(2#e(B")
760
761 (qd "`he" "$(2#f(B")
762 (qd "`hu" "$(2#g(B")
763 (qd "`hi" "$(2#h(B")
764 (qd "`ha" "$(2#i(B")
765 (qd "`hE" "$(2#j(B")
766 (qd "`h" "$(2#k(B")
767 (qd "`ho" "$(2#l(B")
768 (qd "`hW" "$(2"c(B")
769 (qd "`hWe" "$(2"b(B")
770 (qd "`hWu" "$(2"c(B")
771 (qd "`hWi" "$(2"d(B")
772 (qd "`hWa" "$(2"e(B")
773 (qd "`hWE" "$(2"f(B")
774
775 (qd "h2e" "$(2#f(B")
776 (qd "h2u" "$(2#g(B")
777 (qd "h2i" "$(2#h(B")
778 (qd "h2a" "$(2#i(B")
779 (qd "h2E" "$(2#j(B")
780 (qd "h2" "$(2#k(B")
781 (qd "h2o" "$(2#l(B")
782 (qd "h2W" "$(2"c(B")
783 (qd "h2We" "$(2"b(B")
784 (qd "h2Wu" "$(2"c(B")
785 (qd "h2Wi" "$(2"d(B")
786 (qd "h2Wa" "$(2"e(B")
787 (qd "h2WE" "$(2"f(B")
788
789 (qd "hhe" "$(2#f(B")
790 (qd "hhu" "$(2#g(B")
791 (qd "hhi" "$(2#h(B")
792 (qd "hha" "$(2#i(B")
793 (qd "hhE" "$(2#j(B")
794 (qd "hh" "$(2#k(B")
795 (qd "hho" "$(2#l(B")
796 (qd "hhW" "$(2"c(B")
797 (qd "hhWe" "$(2"b(B")
798 (qd "hhWu" "$(2"c(B")
799 (qd "hhWi" "$(2"d(B")
800 (qd "hhWa" "$(2"e(B")
801 (qd "hhWE" "$(2"f(B")
802
803 (qd "`ke" "$(2#m(B")
804 (qd "`ku" "$(2#n(B")
805 (qd "`ki" "$(2#o(B")
806 (qd "`ka" "$(2#p(B")
807 (qd "`kE" "$(2#q(B")
808 (qd "`k" "$(2#r(B")
809 (qd "`ko" "$(2#s(B")
810
811 (qd "k2e" "$(2#m(B")
812 (qd "k2u" "$(2#n(B")
813 (qd "k2i" "$(2#o(B")
814 (qd "k2a" "$(2#p(B")
815 (qd "k2E" "$(2#q(B")
816 (qd "k2" "$(2#r(B")
817 (qd "k2o" "$(2#s(B")
818
819 (qd "kke" "$(2#m(B")
820 (qd "kku" "$(2#n(B")
821 (qd "kki" "$(2#o(B")
822 (qd "kka" "$(2#p(B")
823 (qd "kkE" "$(2#q(B")
824 (qd "kk" "$(2#r(B")
825 (qd "kko" "$(2#s(B")
826
827 (qd "Xe" "$(2#t(B")
828 (qd "Xu" "$(2#u(B")
829 (qd "Xi" "$(2#v(B")
830 (qd "Xa" "$(2#w(B")
831 (qd "XE" "$(2#x(B")
832 (qd "X" "$(2#y(B")
833 (qd "Xo" "$(2#z(B")
834
835 (qd "He" "$(2#{(B")
836 (qd "Hu" "$(2#|(B")
837 (qd "Hi" "$(2#}(B")
838 (qd "Ha" "$(2#~(B")
839 (qd "HE" "$(2$!(B")
840 (qd "H" "$(2$"(B")
841 (qd "Ho" "$(2$#(B")
842
843 (qd "ye" "$(2$$(B")
844 (qd "yu" "$(2$%(B")
845 (qd "yi" "$(2$&(B")
846 (qd "ya" "$(2$'(B")
847 (qd "yE" "$(2$((B")
848 (qd "y" "$(2$)(B")
849 (qd "yo" "$(2$*(B")
850
851 (qd "Ye" "$(2$$(B")
852 (qd "Yu" "$(2$%(B")
853 (qd "Yi" "$(2$&(B")
854 (qd "Ya" "$(2$'(B")
855 (qd "YE" "$(2$((B")
856 (qd "Y" "$(2$)(B")
857 (qd "Yo" "$(2$*(B")
858
859 (qd "De" "$(2$+(B")
860 (qd "Du" "$(2$,(B")
861 (qd "Di" "$(2$-(B")
862 (qd "Da" "$(2$.(B")
863 (qd "DE" "$(2$/(B")
864 (qd "D" "$(2$0(B")
865 (qd "Do" "$(2$1(B")
866
867 (qd "je" "$(2$2(B")
868 (qd "ju" "$(2$3(B")
869 (qd "ji" "$(2$4(B")
870 (qd "ja" "$(2$5(B")
871 (qd "jE" "$(2$6(B")
872 (qd "j" "$(2$7(B")
873 (qd "jo" "$(2$8(B")
874
875 (qd "Je" "$(2$2(B")
876 (qd "Ju" "$(2$3(B")
877 (qd "Ji" "$(2$4(B")
878 (qd "Ja" "$(2$5(B")
879 (qd "JE" "$(2$6(B")
880 (qd "J" "$(2$7(B")
881 (qd "Jo" "$(2$8(B")
882
883 (qd "Ge" "$(2$9(B")
884 (qd "Gu" "$(2$:(B")
885 (qd "Gi" "$(2$;(B")
886 (qd "Ga" "$(2$<(B")
887 (qd "GE" "$(2$=(B")
888 (qd "G" "$(2$>(B")
889 (qd "Go" "$(2$?(B")
890
891 (qd "Pe" "$(2$@(B")
892 (qd "Pu" "$(2$A(B")
893 (qd "Pi" "$(2$B(B")
894 (qd "Pa" "$(2$C(B")
895 (qd "PE" "$(2$D(B")
896 (qd "P" "$(2$E(B")
897 (qd "Po" "$(2$F(B")
898
899 (qd "pe" "$(2$G(B")
900 (qd "pu" "$(2$H(B")
901 (qd "pi" "$(2$I(B")
902 (qd "pa" "$(2$J(B")
903 (qd "pE" "$(2$K(B")
904 (qd "p" "$(2$L(B")
905 (qd "po" "$(2$M(B")
906
907 (qd "'" "")
908 (qd "''" "'")
909 (qd "::" "$(2$O(B")
910 (qd "." "$(2$P(B")
911 (qd ".." ".")
912 (qd "," "$(2$Q(B")
913 (qd ",," ",")
914 (qd ";" "$(2$R(B")
915 (qd ";;" ";")
916 (qd ":" "$(2$S(B")
917 (qd ":::" ":")
918 (qd "*" "$(2$T(B")
919 (qd "**" "*")
920 (qd "<<" "$(2$U(B")
921 (qd ">>" "$(2$V(B")
922
923 ;; These two are necessary for toggling commands.
924 (qd "1" "1")
925 (qd " " " ")
926
927 (quail-setup-current-package)