|
159
|
1 ;;; lao-util.el --- utilities for Lao
|
|
|
2
|
|
|
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
|
|
197
|
4 ;; Licensed to the Free Software Foundation.
|
|
159
|
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
|
|
197
|
27 ;;;###autoload
|
|
|
28 (defun setup-lao-environment ()
|
|
|
29 "Setup multilingual environment (MULE) for Lao."
|
|
|
30 (interactive)
|
|
|
31 (setup-8-bit-environment "Lao" 'lao 'iso-2022-7bit
|
|
|
32 "lao"))
|
|
|
33
|
|
159
|
34 (let ((l '((?(1!(B consonant "LETTER KOR KAI'" "CHICKEN")
|
|
|
35 (?(1"(B consonant "LETTER KHOR KHAI'" "EGG")
|
|
|
36 (?(1#(B invalid nil)
|
|
|
37 (?(1$(B consonant "LETTER QHOR QHWARGN" "BUFFALO")
|
|
|
38 (?(1%(B invalid nil)
|
|
|
39 (? invalid nil)
|
|
|
40 (?(1'(B consonant "LETTER NGOR NGUU" "SNAKE")
|
|
|
41 (?(1((B consonant "LETTER JOR JUA" "BUDDHIST NOVICE")
|
|
|
42 (?(1)(B invalid nil)
|
|
|
43 (?(1*(B consonant "LETTER XOR X\"ARNG" "ELEPHANT")
|
|
|
44 (?(1+(B invalid nil)
|
|
|
45 (?(1,(B invalid nil)
|
|
|
46 (?(1-(B consonant "LETTER YOR YUNG" "MOSQUITO")
|
|
|
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 (?(1.(B invalid nil)
|
|
|
53 (?(14(B consonant "LETTER DOR DANG" "NOSE")
|
|
|
54 (?(15(B consonant "LETTER TOR TAR" "EYE")
|
|
197
|
55 (?(16(B consonant "LETTER THOR THUNG" "TO ASK,QUESTION")
|
|
|
56 (?(17(B consonant "LETTER DHOR DHARM" "FLAG")
|
|
159
|
57 (?(18(B invalid nil)
|
|
|
58 (?(19(B consonant "LETTER NOR NOK" "BIRD")
|
|
|
59 (?(1:(B consonant "LETTER BOR BED" "FISHHOOK")
|
|
|
60 (?(1;(B consonant "LETTER POR PAR" "FISH")
|
|
|
61 (?(1<(B consonant "LETTER HPOR HPER\"" "BEE")
|
|
|
62 (?(1=(B consonant "LETTER FHOR FHAR" "WALL")
|
|
|
63 (?(1>(B consonant "LETTER PHOR PHUU" "MOUNTAIN")
|
|
|
64 (?(1?(B consonant "LETTER FOR FAI" "FIRE")
|
|
|
65 (?(1@(B invalid nil)
|
|
|
66 (?(1A(B consonant "LETTER MOR MAR\"" "HORSE")
|
|
|
67 (?(1B(B consonant "LETTER GNOR GNAR" "MEDICINE")
|
|
|
68 (?(1C(B consonant "LETTER ROR ROD" "CAR")
|
|
|
69 (?(1D(B invalid nil)
|
|
|
70 (?(1E(B consonant "LETTER LOR LIING" "MONKEY")
|
|
|
71 (?(1F(B invalid nil)
|
|
|
72 (?(1G(B consonant "LETTER WOR WII" "HAND FAN")
|
|
|
73 (?(1H(B invalid nil)
|
|
|
74 (?(1I(B invalid nil)
|
|
|
75 (?(1J(B consonant "LETTER SOR SEA" "TIGER")
|
|
|
76 (?(1K(B consonant "LETTER HHOR HHAI" "JAR")
|
|
|
77 (?(1L(B invalid nil)
|
|
|
78 (?(1M(B consonant "LETTER OR OOW" "TAKE")
|
|
|
79 (?(1N(B consonant "LETTER HOR HEA" "BOAT")
|
|
|
80 (?(1O(B special "ELLIPSIS")
|
|
|
81 (?(1P(B vowel-base "VOWEL SIGN SARA A")
|
|
|
82 (?(1Q(B vowel-upper "VOWEL SIGN MAI KAN")
|
|
|
83 (?(1R(B vowel-base "VOWEL SIGN SARA AR")
|
|
|
84 (?(1S(B vowel-base "VOWEL SIGN SARA AM")
|
|
|
85 (?(1T(B vowel-upper "VOWEL SIGN SARA I")
|
|
|
86 (?(1U(B vowel-upper "VOWEL SIGN SARA II")
|
|
|
87 (?(1V(B vowel-upper "VOWEL SIGN SARA EU")
|
|
|
88 (?(1W(B vowel-upper "VOWEL SIGN SARA UR")
|
|
|
89 (?(1X(B vowel-lower "VOWEL SIGN SARA U")
|
|
|
90 (?(1Y(B vowel-lower "VOWEL SIGN SARA UU")
|
|
|
91 (?(1Z(B invalid nil)
|
|
|
92 (?(1[(B vowel-upper "VOWEL SIGN MAI KONG")
|
|
|
93 (?(1\(B semivowel-lower "SEMIVOWEL SIGN LO")
|
|
|
94 (?(1](B vowel-base "SEMIVOWEL SIGN SARA IA")
|
|
|
95 (?(1^(B invalid nil)
|
|
|
96 (?(1_(B invalid nil)
|
|
|
97 (?(1`(B vowel-base "VOWEL SIGN SARA EE")
|
|
|
98 (?(1a(B vowel-base "VOWEL SIGN SARA AA")
|
|
|
99 (?(1b(B vowel-base "VOWEL SIGN SARA OO")
|
|
|
100 (?(1c(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"")
|
|
|
101 (?(1d(B vowel-base "VOWEL SIGN SARA AI MAI MAY")
|
|
|
102 (?(1e(B invalid nil)
|
|
|
103 (?(1f(B special "KO LA (REPETITION)")
|
|
|
104 (?(1g(B invalid nil)
|
|
|
105 (?(1h(B tone "TONE MAI EK")
|
|
|
106 (?(1i(B tone "TONE MAI THO")
|
|
|
107 (?(1j(B tone "TONE MAI TI")
|
|
|
108 (?(1k(B tone "TONE MAI JADTAWAR")
|
|
|
109 (?(1l(B tone "CANCELLATION MARK")
|
|
|
110 (?(1m(B vowel-upper "VOWEL SIGN SARA OR")
|
|
|
111 (?(1n(B invalid nil)
|
|
|
112 (?(1o(B invalid nil)
|
|
|
113 (?(1p(B special "DIGIT ZERO")
|
|
|
114 (?(1q(B special "DIGIT ONE")
|
|
|
115 (?(1r(B special "DIGIT TWO")
|
|
|
116 (?(1s(B special "DIGIT THREE")
|
|
|
117 (?(1t(B special "DIGIT FOUR")
|
|
|
118 (?(1u(B special "DIGIT FIVE")
|
|
|
119 (?(1v(B special "DIGIT SIX")
|
|
|
120 (?(1w(B special "DIGIT SEVEN")
|
|
|
121 (?(1x(B special "DIGIT EIGHT")
|
|
|
122 (?(1y(B special "DIGIT NINE")
|
|
|
123 (?(1z(B invalid nil)
|
|
|
124 (?(1{(B invalid nil)
|
|
|
125 (?(1|(B consonant "LETTER NHOR NHUU" "MOUSE")
|
|
|
126 (?(1}(B consonant "LETTER MHOR MHAR" "DOG")
|
|
|
127 (?(1~(B invalid nil)
|
|
|
128 ))
|
|
|
129 elm)
|
|
|
130 (while l
|
|
|
131 (setq elm (car l))
|
|
|
132 (put-char-code-property (car elm) 'phonetic-type (car (cdr elm)))
|
|
|
133 (put-char-code-property (car elm) 'name (nth 2 elm))
|
|
|
134 (put-char-code-property (car elm) 'meaning (nth 3 elm))
|
|
|
135 (setq l (cdr l))))
|
|
|
136
|
|
|
137 ;;
|
|
197
|
138 (provide 'lao-util)
|
|
159
|
139
|
|
|
140 ;;; lao-util.el ends here
|
