Mercurial > emacs
annotate lisp/language/lao-util.el @ 22841:330629423307
(push_key_description): Output multibyte char as itself.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 28 Jul 1998 23:10:44 +0000 |
parents | df8fab27273f |
children | 708271862495 |
rev | line source |
---|---|
17315
a3ca5e15c82a
Fix the format of the first line.
Kenichi Handa <handa@m17n.org>
parents:
17083
diff
changeset
|
1 ;;; lao-util.el --- utilities for Lao |
17083 | 2 |
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. | |
18377
8b4a66c66dd6
Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents:
18309
diff
changeset
|
4 ;; Licensed to the Free Software Foundation. |
17083 | 5 |
6 ;; Keywords: multilingual, Lao | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
24 | |
25 ;;; Code: | |
26 | |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
27 ;;;###autoload |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
28 (defun setup-lao-environment () |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
29 "Setup multilingual environment (MULE) for Lao." |
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
30 (interactive) |
20737
df8fab27273f
In setup-LANGUAGE-environment functions, adjust for the change of
Kenichi Handa <handa@m17n.org>
parents:
19271
diff
changeset
|
31 (setup-8-bit-environment "Lao" 'lao "lao")) |
17993
73869115ae0a
Most of setup-LANGUAGE-environment functions are
Kenichi Handa <handa@m17n.org>
parents:
17315
diff
changeset
|
32 |
17083 | 33 (let ((l '((?(1!(B consonant "LETTER KOR KAI'" "CHICKEN") |
34 (?(1"(B consonant "LETTER KHOR KHAI'" "EGG") | |
35 (?(1#(B invalid nil) | |
36 (?(1$(B consonant "LETTER QHOR QHWARGN" "BUFFALO") | |
37 (?(1%(B invalid nil) | |
38 (? invalid nil) | |
39 (?(1'(B consonant "LETTER NGOR NGUU" "SNAKE") | |
40 (?(1((B consonant "LETTER JOR JUA" "BUDDHIST NOVICE") | |
41 (?(1)(B invalid nil) | |
42 (?(1*(B consonant "LETTER XOR X\"ARNG" "ELEPHANT") | |
43 (?(1+(B invalid nil) | |
44 (?(1,(B invalid nil) | |
45 (?(1-(B consonant "LETTER YOR YUNG" "MOSQUITO") | |
46 (?(1.(B invalid nil) | |
47 (?(1.(B invalid nil) | |
48 (?(1.(B invalid nil) | |
49 (?(1.(B invalid nil) | |
50 (?(1.(B invalid nil) | |
51 (?(1.(B invalid nil) | |
52 (?(14(B consonant "LETTER DOR DANG" "NOSE") | |
53 (?(15(B consonant "LETTER TOR TAR" "EYE") | |
19271
0caaca9020bc
Set t for Rao-SEMIVOWEL-SIGN-LO in
Kenichi Handa <handa@m17n.org>
parents:
18550
diff
changeset
|
54 (?(16(B consonant "LETTER THOR THUNG" "TO ASK,QUESTION") |
0caaca9020bc
Set t for Rao-SEMIVOWEL-SIGN-LO in
Kenichi Handa <handa@m17n.org>
parents:
18550
diff
changeset
|
55 (?(17(B consonant "LETTER DHOR DHARM" "FLAG") |
17083 | 56 (?(18(B invalid nil) |
57 (?(19(B consonant "LETTER NOR NOK" "BIRD") | |
58 (?(1:(B consonant "LETTER BOR BED" "FISHHOOK") | |
59 (?(1;(B consonant "LETTER POR PAR" "FISH") | |
60 (?(1<(B consonant "LETTER HPOR HPER\"" "BEE") | |
61 (?(1=(B consonant "LETTER FHOR FHAR" "WALL") | |
62 (?(1>(B consonant "LETTER PHOR PHUU" "MOUNTAIN") | |
63 (?(1?(B consonant "LETTER FOR FAI" "FIRE") | |
64 (?(1@(B invalid nil) | |
65 (?(1A(B consonant "LETTER MOR MAR\"" "HORSE") | |
66 (?(1B(B consonant "LETTER GNOR GNAR" "MEDICINE") | |
67 (?(1C(B consonant "LETTER ROR ROD" "CAR") | |
68 (?(1D(B invalid nil) | |
69 (?(1E(B consonant "LETTER LOR LIING" "MONKEY") | |
70 (?(1F(B invalid nil) | |
71 (?(1G(B consonant "LETTER WOR WII" "HAND FAN") | |
72 (?(1H(B invalid nil) | |
73 (?(1I(B invalid nil) | |
74 (?(1J(B consonant "LETTER SOR SEA" "TIGER") | |
75 (?(1K(B consonant "LETTER HHOR HHAI" "JAR") | |
76 (?(1L(B invalid nil) | |
77 (?(1M(B consonant "LETTER OR OOW" "TAKE") | |
78 (?(1N(B consonant "LETTER HOR HEA" "BOAT") | |
79 (?(1O(B special "ELLIPSIS") | |
80 (?(1P(B vowel-base "VOWEL SIGN SARA A") | |
81 (?(1Q(B vowel-upper "VOWEL SIGN MAI KAN") | |
82 (?(1R(B vowel-base "VOWEL SIGN SARA AR") | |
83 (?(1S(B vowel-base "VOWEL SIGN SARA AM") | |
84 (?(1T(B vowel-upper "VOWEL SIGN SARA I") | |
85 (?(1U(B vowel-upper "VOWEL SIGN SARA II") | |
86 (?(1V(B vowel-upper "VOWEL SIGN SARA EU") | |
87 (?(1W(B vowel-upper "VOWEL SIGN SARA UR") | |
88 (?(1X(B vowel-lower "VOWEL SIGN SARA U") | |
89 (?(1Y(B vowel-lower "VOWEL SIGN SARA UU") | |
90 (?(1Z(B invalid nil) | |
91 (?(1[(B vowel-upper "VOWEL SIGN MAI KONG") | |
92 (?(1\(B semivowel-lower "SEMIVOWEL SIGN LO") | |
93 (?(1](B vowel-base "SEMIVOWEL SIGN SARA IA") | |
94 (?(1^(B invalid nil) | |
95 (?(1_(B invalid nil) | |
96 (?(1`(B vowel-base "VOWEL SIGN SARA EE") | |
97 (?(1a(B vowel-base "VOWEL SIGN SARA AA") | |
98 (?(1b(B vowel-base "VOWEL SIGN SARA OO") | |
99 (?(1c(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"") | |
100 (?(1d(B vowel-base "VOWEL SIGN SARA AI MAI MAY") | |
101 (?(1e(B invalid nil) | |
102 (?(1f(B special "KO LA (REPETITION)") | |
103 (?(1g(B invalid nil) | |
104 (?(1h(B tone "TONE MAI EK") | |
105 (?(1i(B tone "TONE MAI THO") | |
106 (?(1j(B tone "TONE MAI TI") | |
107 (?(1k(B tone "TONE MAI JADTAWAR") | |
108 (?(1l(B tone "CANCELLATION MARK") | |
109 (?(1m(B vowel-upper "VOWEL SIGN SARA OR") | |
110 (?(1n(B invalid nil) | |
111 (?(1o(B invalid nil) | |
112 (?(1p(B special "DIGIT ZERO") | |
113 (?(1q(B special "DIGIT ONE") | |
114 (?(1r(B special "DIGIT TWO") | |
115 (?(1s(B special "DIGIT THREE") | |
116 (?(1t(B special "DIGIT FOUR") | |
117 (?(1u(B special "DIGIT FIVE") | |
118 (?(1v(B special "DIGIT SIX") | |
119 (?(1w(B special "DIGIT SEVEN") | |
120 (?(1x(B special "DIGIT EIGHT") | |
121 (?(1y(B special "DIGIT NINE") | |
122 (?(1z(B invalid nil) | |
123 (?(1{(B invalid nil) | |
124 (?(1|(B consonant "LETTER NHOR NHUU" "MOUSE") | |
125 (?(1}(B consonant "LETTER MHOR MHAR" "DOG") | |
126 (?(1~(B invalid nil) | |
127 )) | |
128 elm) | |
129 (while l | |
130 (setq elm (car l)) | |
131 (put-char-code-property (car elm) 'phonetic-type (car (cdr elm))) | |
132 (put-char-code-property (car elm) 'name (nth 2 elm)) | |
133 (put-char-code-property (car elm) 'meaning (nth 3 elm)) | |
134 (setq l (cdr l)))) | |
135 | |
136 ;; | |
18309
bd8b521f5218
Provide XXX-util instead of
Kenichi Handa <handa@m17n.org>
parents:
18203
diff
changeset
|
137 (provide 'lao-util) |
17083 | 138 |
139 ;;; lao-util.el ends here |