aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/language
diff options
context:
space:
mode:
authorPaul Eggert <[email protected]>2013-04-01 18:18:40 -0700
committerPaul Eggert <[email protected]>2013-04-01 18:18:40 -0700
commit4b725a70efa7ed781b6d5e466c8acc246f68f49d (patch)
tree62906e8a0d27be11f79a8effba31bd67646385d1 /lisp/language
parent54451ffafafb7f286753fb09871eb84d70bf70ae (diff)
Use UTF-8 for most files with non-ASCII characters.
* admin/notes/unicode (etc/tutorials/TUTORIAL.ko, leim/quail/hanja.el) (leim/quail/hanja3.el, leim/quail/symbol-ksc.el): Now utf-8, not iso-2022-7bit. Also, files that contain non-UTF-8 characters are now encoded in utf-8-emacs, not iso-2022-7bit. * etc/tutorials/TUTORIAL.ko, tutorials/TUTORIAL.th: Switch from iso-2022-7bit to utf-8. * leim/quail/cyrillic.el, leim/quail/czech.el, leim/quail/ethiopic.el: * leim/quail/greek.el, leim/quail/hanja.el, leim/quail/hanja3.el: * leim/quail/hebrew.el, leim/quail/lao.el, leim/quail/lrt.el: * leim/quail/slovak.el, leim/quail/symbol-ksc.el, leim/quail/thai.el: * leim/quail/tibetan.el, leim/quail/viqr.el, leim/quail/vntelex.el: * leim/quail/vnvni.el, leim/quail/welsh.el: * lisp/international/latin1-disp.el, lisp/international/mule-util.el: * lisp/language/cyril-util.el, lisp/language/european.el: * lisp/language/ind-util.el, lisp/language/lao-util.el, lisp/language/thai.el: * lisp/language/tibet-util.el, lisp/language/tibetan.el: * lisp/language/viet-util.el: Switch from iso-2022-7bit to utf-8 or (if needed) utf-8-emacs. Fixes: debbugs:13936
Diffstat (limited to 'lisp/language')
-rw-r--r--lisp/language/cyril-util.el216
-rw-r--r--lisp/language/european.el32
-rw-r--r--lisp/language/ind-util.el1098
-rw-r--r--lisp/language/lao-util.el436
-rw-r--r--lisp/language/thai.el10
-rw-r--r--lisp/language/tibet-util.el78
-rw-r--r--lisp/language/tibetan.el822
-rw-r--r--lisp/language/viet-util.el292
8 files changed, 1492 insertions, 1492 deletions
diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index 441519d542..7af8b99328 100644
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -71,124 +71,124 @@ If the argument is nil, we return the display table to its standard state."
(if (null cyrillic-language)
(setq standard-display-table (make-display-table))
- (aset standard-display-table ?,LP(B [?a])
- (aset standard-display-table ?,LQ(B [?b])
- (aset standard-display-table ?,LR(B [?v])
- (aset standard-display-table ?,LS(B [?g])
- (aset standard-display-table ?,LT(B [?d])
- (aset standard-display-table ?,LU(B [?e])
- (aset standard-display-table ?,Lq(B [?y ?o])
- (aset standard-display-table ?,LV(B [?z ?h])
- (aset standard-display-table ?,LW(B [?z])
- (aset standard-display-table ?,LX(B [?i])
- (aset standard-display-table ?,LY(B [?j])
- (aset standard-display-table ?,LZ(B [?k])
- (aset standard-display-table ?,L[(B [?l])
- (aset standard-display-table ?,L\(B [?m])
- (aset standard-display-table ?,L](B [?n])
- (aset standard-display-table ?,L^(B [?o])
- (aset standard-display-table ?,L_(B [?p])
- (aset standard-display-table ?,L`(B [?r])
- (aset standard-display-table ?,La(B [?s])
- (aset standard-display-table ?,Lb(B [?t])
- (aset standard-display-table ?,Lc(B [?u])
- (aset standard-display-table ?,Ld(B [?f])
- (aset standard-display-table ?,Le(B [?k ?h])
- (aset standard-display-table ?,Lf(B [?t ?s])
- (aset standard-display-table ?,Lg(B [?c ?h])
- (aset standard-display-table ?,Lh(B [?s ?h])
- (aset standard-display-table ?,Li(B [?s ?c ?h])
- (aset standard-display-table ?,Lj(B [?~])
- (aset standard-display-table ?,Lk(B [?y])
- (aset standard-display-table ?,Ll(B [?'])
- (aset standard-display-table ?,Lm(B [?e ?'])
- (aset standard-display-table ?,Ln(B [?y ?u])
- (aset standard-display-table ?,Lo(B [?y ?a])
-
- (aset standard-display-table ?,L0(B [?A])
- (aset standard-display-table ?,L1(B [?B])
- (aset standard-display-table ?,L2(B [?V])
- (aset standard-display-table ?,L3(B [?G])
- (aset standard-display-table ?,L4(B [?D])
- (aset standard-display-table ?,L5(B [?E])
- (aset standard-display-table ?,L!(B [?Y ?o])
- (aset standard-display-table ?,L6(B [?Z ?h])
- (aset standard-display-table ?,L7(B [?Z])
- (aset standard-display-table ?,L8(B [?I])
- (aset standard-display-table ?,L9(B [?J])
- (aset standard-display-table ?,L:(B [?K])
- (aset standard-display-table ?,L;(B [?L])
- (aset standard-display-table ?,L<(B [?M])
- (aset standard-display-table ?,L=(B [?N])
- (aset standard-display-table ?,L>(B [?O])
- (aset standard-display-table ?,L?(B [?P])
- (aset standard-display-table ?,L@(B [?R])
- (aset standard-display-table ?,LA(B [?S])
- (aset standard-display-table ?,LB(B [?T])
- (aset standard-display-table ?,LC(B [?U])
- (aset standard-display-table ?,LD(B [?F])
- (aset standard-display-table ?,LE(B [?K ?h])
- (aset standard-display-table ?,LF(B [?T ?s])
- (aset standard-display-table ?,LG(B [?C ?h])
- (aset standard-display-table ?,LH(B [?S ?h])
- (aset standard-display-table ?,LI(B [?S ?c ?h])
- (aset standard-display-table ?,LJ(B [?~])
- (aset standard-display-table ?,LK(B [?Y])
- (aset standard-display-table ?,LL(B [?'])
- (aset standard-display-table ?,LM(B [?E ?'])
- (aset standard-display-table ?,LN(B [?Y ?u])
- (aset standard-display-table ?,LO(B [?Y ?a])
-
- (aset standard-display-table ?,Lt(B [?i ?e])
- (aset standard-display-table ?,Lw(B [?i])
- (aset standard-display-table ?,L~(B [?u])
- (aset standard-display-table ?,Lr(B [?d ?j])
- (aset standard-display-table ?,L{(B [?c ?h ?j])
- (aset standard-display-table ?,Ls(B [?g ?j])
- (aset standard-display-table ?,Lu(B [?s])
- (aset standard-display-table ?,L|(B [?k])
- (aset standard-display-table ?,Lv(B [?i])
- (aset standard-display-table ?,Lx(B [?j])
- (aset standard-display-table ?,Ly(B [?l ?j])
- (aset standard-display-table ?,Lz(B [?n ?j])
- (aset standard-display-table ?,L(B [?d ?z])
-
- (aset standard-display-table ?,L$(B [?Y ?e])
- (aset standard-display-table ?,L'(B [?Y ?i])
- (aset standard-display-table ?,L.(B [?U])
- (aset standard-display-table ?,L"(B [?D ?j])
- (aset standard-display-table ?,L+(B [?C ?h ?j])
- (aset standard-display-table ?,L#(B [?G ?j])
- (aset standard-display-table ?,L%(B [?S])
- (aset standard-display-table ?,L,(B [?K])
- (aset standard-display-table ?,L&(B [?I])
- (aset standard-display-table ?,L((B [?J])
- (aset standard-display-table ?,L)(B [?L ?j])
- (aset standard-display-table ?,L*(B [?N ?j])
- (aset standard-display-table ?,L/(B [?D ?j])
+ (aset standard-display-table ?а [?a])
+ (aset standard-display-table ?б [?b])
+ (aset standard-display-table ?в [?v])
+ (aset standard-display-table ?г [?g])
+ (aset standard-display-table ?д [?d])
+ (aset standard-display-table ?е [?e])
+ (aset standard-display-table ?ё [?y ?o])
+ (aset standard-display-table ?ж [?z ?h])
+ (aset standard-display-table ?з [?z])
+ (aset standard-display-table ?и [?i])
+ (aset standard-display-table ?й [?j])
+ (aset standard-display-table ?к [?k])
+ (aset standard-display-table ?л [?l])
+ (aset standard-display-table ?м [?m])
+ (aset standard-display-table ?н [?n])
+ (aset standard-display-table ?о [?o])
+ (aset standard-display-table ?п [?p])
+ (aset standard-display-table ?р [?r])
+ (aset standard-display-table ?с [?s])
+ (aset standard-display-table ?т [?t])
+ (aset standard-display-table ?у [?u])
+ (aset standard-display-table ?ф [?f])
+ (aset standard-display-table ?х [?k ?h])
+ (aset standard-display-table ?ц [?t ?s])
+ (aset standard-display-table ?ч [?c ?h])
+ (aset standard-display-table ?ш [?s ?h])
+ (aset standard-display-table ?щ [?s ?c ?h])
+ (aset standard-display-table ?ъ [?~])
+ (aset standard-display-table ?ы [?y])
+ (aset standard-display-table ?ь [?'])
+ (aset standard-display-table ?э [?e ?'])
+ (aset standard-display-table ?ю [?y ?u])
+ (aset standard-display-table ?я [?y ?a])
+
+ (aset standard-display-table ?А [?A])
+ (aset standard-display-table ?Б [?B])
+ (aset standard-display-table ?В [?V])
+ (aset standard-display-table ?Г [?G])
+ (aset standard-display-table ?Д [?D])
+ (aset standard-display-table ?Е [?E])
+ (aset standard-display-table ?Ё [?Y ?o])
+ (aset standard-display-table ?Ж [?Z ?h])
+ (aset standard-display-table ?З [?Z])
+ (aset standard-display-table ?И [?I])
+ (aset standard-display-table ?Й [?J])
+ (aset standard-display-table ?К [?K])
+ (aset standard-display-table ?Л [?L])
+ (aset standard-display-table ?М [?M])
+ (aset standard-display-table ?Н [?N])
+ (aset standard-display-table ?О [?O])
+ (aset standard-display-table ?П [?P])
+ (aset standard-display-table ?Р [?R])
+ (aset standard-display-table ?С [?S])
+ (aset standard-display-table ?Т [?T])
+ (aset standard-display-table ?У [?U])
+ (aset standard-display-table ?Ф [?F])
+ (aset standard-display-table ?Х [?K ?h])
+ (aset standard-display-table ?Ц [?T ?s])
+ (aset standard-display-table ?Ч [?C ?h])
+ (aset standard-display-table ?Ш [?S ?h])
+ (aset standard-display-table ?Щ [?S ?c ?h])
+ (aset standard-display-table ?Ъ [?~])
+ (aset standard-display-table ?Ы [?Y])
+ (aset standard-display-table ?Ь [?'])
+ (aset standard-display-table ?Э [?E ?'])
+ (aset standard-display-table ?Ю [?Y ?u])
+ (aset standard-display-table ?Я [?Y ?a])
+
+ (aset standard-display-table ?є [?i ?e])
+ (aset standard-display-table ?ї [?i])
+ (aset standard-display-table ?ў [?u])
+ (aset standard-display-table ?ђ [?d ?j])
+ (aset standard-display-table ?ћ [?c ?h ?j])
+ (aset standard-display-table ?ѓ [?g ?j])
+ (aset standard-display-table ?ѕ [?s])
+ (aset standard-display-table ?ќ [?k])
+ (aset standard-display-table ?і [?i])
+ (aset standard-display-table ?ј [?j])
+ (aset standard-display-table ?љ [?l ?j])
+ (aset standard-display-table ?њ [?n ?j])
+ (aset standard-display-table ?џ [?d ?z])
+
+ (aset standard-display-table ?Є [?Y ?e])
+ (aset standard-display-table ?Ї [?Y ?i])
+ (aset standard-display-table ?Ў [?U])
+ (aset standard-display-table ?Ђ [?D ?j])
+ (aset standard-display-table ?Ћ [?C ?h ?j])
+ (aset standard-display-table ?Ѓ [?G ?j])
+ (aset standard-display-table ?Ѕ [?S])
+ (aset standard-display-table ?Ќ [?K])
+ (aset standard-display-table ?І [?I])
+ (aset standard-display-table ?Ј [?J])
+ (aset standard-display-table ?Љ [?L ?j])
+ (aset standard-display-table ?Њ [?N ?j])
+ (aset standard-display-table ?Џ [?D ?j])
(when (equal cyrillic-language "Bulgarian")
- (aset standard-display-table ?,Li(B [?s ?h ?t])
- (aset standard-display-table ?,LI(B [?S ?h ?t])
- (aset standard-display-table ?,Ln(B [?i ?u])
- (aset standard-display-table ?,LN(B [?I ?u])
- (aset standard-display-table ?,Lo(B [?i ?a])
- (aset standard-display-table ?,LO(B [?I ?a]))
+ (aset standard-display-table ?щ [?s ?h ?t])
+ (aset standard-display-table ?Щ [?S ?h ?t])
+ (aset standard-display-table ?ю [?i ?u])
+ (aset standard-display-table ?Ю [?I ?u])
+ (aset standard-display-table ?я [?i ?a])
+ (aset standard-display-table ?Я [?I ?a]))
(when (equal cyrillic-language "Ukrainian") ; based on the official
; transliteration table
- (aset standard-display-table ?,LX(B [?y])
- (aset standard-display-table ?,L8(B [?Y])
- (aset standard-display-table ?,LY(B [?i])
- (aset standard-display-table ?,L9(B [?Y])
- (aset standard-display-table ?,Ln(B [?i ?u])
- (aset standard-display-table ?,Lo(B [?i ?a]))))
+ (aset standard-display-table ?и [?y])
+ (aset standard-display-table ?И [?Y])
+ (aset standard-display-table ?й [?i])
+ (aset standard-display-table ?Й [?Y])
+ (aset standard-display-table ?ю [?i ?u])
+ (aset standard-display-table ?я [?i ?a]))))
;;
(provide 'cyril-util)
;; Local Variables:
-;; coding: iso-2022-7bit
+;; coding: utf-8
;; End:
;;; cyril-util.el ends here
diff --git a/lisp/language/european.el b/lisp/language/european.el
index e3156fa855..efcdf9db2c 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -1,4 +1,4 @@
-;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*-
+;;; european.el --- support for European languages -*- coding: utf-8; -*-
;; Copyright (C) 1997-1998, 2000-2013 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
@@ -43,7 +43,7 @@
(unibyte-display . iso-latin-1)
(input-method . "latin-1-prefix")
(sample-text
- . "Hello, Hej, Tere, Hei, Bonjour, Gr$(D+d)N(B Gott, Ciao, $(D"B(BHola!")
+ . "Hello, Hej, Tere, Hei, Bonjour, Grüß Gott, Ciao, ¡Hola!")
(documentation . "\
This language environment is a generic one for the Latin-1 (ISO-8859-1)
character set which supports the following European languages:
@@ -241,7 +241,7 @@ See also the Turkish environment."))
(unibyte-display . iso-latin-8)
(input-method . "latin-8-prefix")
;; Fixme: Welsh/Ga{e}lic greetings
- (sample-text . ",_"(B $(D+q(B $(D*t(B")
+ (sample-text . "ḃ ŵ Ŷ")
(documentation . "\
This language environment is a generic one for the Latin-8 (ISO-8859-14)
character set which supports the Celtic languages, including those not
@@ -271,7 +271,7 @@ covered by other ISO-8859 character sets:
(unibyte-display . iso-latin-9)
(input-method . "latin-9-prefix")
(sample-text
- . "AVE. $(D*^+^*v+v)-)M*s(B $(Q)!(B")
+ . "AVE. ŠšŽžŒœŸ €")
(documentation . "\
This language environment is a generic one for the Latin-9 (ISO-8859-15)
character set which supports the same languages as Latin-1 with the
@@ -427,7 +427,7 @@ but it selects the Dutch tutorial and input method."))
(unibyte-display . iso-latin-1)
(sample-text . "\
German (Deutsch Nord) Guten Tag
-German (Deutsch S$(D+d(Bd) Gr$(D+d)N(B Gott")
+German (Deutsch Süd) Grüß Gott")
(documentation . "\
This language environment is almost the same as Latin-1,
but sets the default input method to \"german-postfix\".
@@ -442,7 +442,7 @@ Additionally, it selects the German tutorial."))
(nonascii-translation . iso-8859-1)
(unibyte-display . iso-latin-1)
(input-method . "latin-1-prefix")
- (sample-text . "French (Fran$(D+.(Bais) Bonjour, Salut")
+ (sample-text . "French (Français) Bonjour, Salut")
(documentation . "\
This language environment is almost the same as Latin-1,
but it selects the French tutorial and input method."))
@@ -471,7 +471,7 @@ Additionally, it selects the Italian tutorial."))
(input-method . "slovenian")
(unibyte-display . iso-8859-2)
(tutorial . "TUTORIAL.sl")
- (sample-text . "$(D*v(Belimo vam uspe$(D+^(Ben dan!")
+ (sample-text . "Želimo vam uspešen dan!")
(documentation . "\
This language environment is almost the same as Latin-2,
but it selects the Slovenian tutorial and input method."))
@@ -485,7 +485,7 @@ but it selects the Slovenian tutorial and input method."))
(input-method . "spanish-postfix")
(nonascii-translation . iso-8859-1)
(unibyte-display . iso-latin-1)
- (sample-text . "Spanish (Espa$(D+P(Bol) $(D"B(BHola!")
+ (sample-text . "Spanish (Español) ¡Hola!")
(documentation . "\
This language environment is almost the same as Latin-1,
but it sets the default input method to \"spanish-postfix\",
@@ -504,25 +504,25 @@ and it selects the Spanish tutorial."))
(nonascii-translation . iso-8859-9)
(unibyte-display . iso-latin-5)
(input-method . "turkish-postfix")
- (sample-text . "Turkish (T$(D+d(Brk$(D+.(Be) Merhaba")
+ (sample-text . "Turkish (Türkçe) Merhaba")
(setup-function . turkish-case-conversion-enable)
(setup-function . turkish-case-conversion-disable)
(documentation . "Support for Turkish.
Differs from the Latin-5 environment in using the `turkish-postfix' input
-method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D*D(B.")))
+method and applying Turkish case rules for the characters i, I, ı, İ.")))
(defun turkish-case-conversion-enable ()
- "Set up Turkish case conversion of `i' and `I' into `$(D*D(B' and `$(D)E(B'."
+ "Set up Turkish case conversion of `i' and `I' into `İ' and `ı'."
(let ((table (standard-case-table)))
- (set-case-syntax-pair ?$(D*D(B ?i table)
- (set-case-syntax-pair ?I ?$(D)E(B table)))
+ (set-case-syntax-pair ?İ ?i table)
+ (set-case-syntax-pair ?I ?ı table)))
(defun turkish-case-conversion-disable ()
"Set up normal (non-Turkish) case conversion of `i' into `I'."
(let ((table (standard-case-table)))
(set-case-syntax-pair ?I ?i table)
- (set-case-syntax ?$(D*D(B "w" table)
- (set-case-syntax ?$(D)E(B "w" table)))
+ (set-case-syntax ?İ "w" table)
+ (set-case-syntax ?ı "w" table)))
;; Polish ISO 8859-2 environment.
;; Maintainer: Wlodek Bzyl <[email protected]>
@@ -536,7 +536,7 @@ method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D*
(nonascii-translation . iso-8859-2)
(unibyte-display . iso-8859-2)
(tutorial . "TUTORIAL.pl")
- (sample-text . "P$(D+Q(Bjd$(D+u(B, ki$(D+M(B-$(D+w(Be t$(D+8(B chmurno$(D+\++(B w g$(D)H+((Bb flaszy")
+ (sample-text . "Pójdź, kiń-że tę chmurność w głąb flaszy")
(documentation . t))
'("European"))
diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el
index 8964da1ea1..c8df282e6e 100644
--- a/lisp/language/ind-util.el
+++ b/lisp/language/ind-util.el
@@ -1,4 +1,4 @@
-;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*-
+;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: utf-8-emacs; -*-
;; Copyright (C) 2001-2013 Free Software Foundation, Inc.
@@ -47,233 +47,233 @@
(defvar indian-dev-base-table
'(
(;; VOWELS (18)
- (?$,15E(B nil) (?$,15F(B ?$,15~(B) (?$,15G(B ?$,15(B) (?$,15H(B ?$,16 (B) (?$,15I(B ?$,16!(B) (?$,15J(B ?$,16"(B)
- (?$,15K(B ?$,16#(B) (?$,15L(B ?$,16B(B) (?$,15M(B ?$,16%(B) (?$,15N(B ?$,16&(B) (?$,15O(B ?$,16'(B) (?$,15P(B ?$,16((B)
- (?$,15Q(B ?$,16)(B) (?$,15R(B ?$,16*(B) (?$,15S(B ?$,16+(B) (?$,15T(B ?$,16,(B) (?$,16@(B ?$,16$(B) (?$,16A(B ?$,16C(B))
+ (?अ nil) (?आ ?ा) (?इ ?ि) (?ई ?ी) (?उ ?ु) (?ऊ ?ू)
+ (?ऋ ?ृ) (?ऌ ?ॢ) (?ऍ ?ॅ) (?ऎ ?ॆ) (?ए ?े) (?ऐ ?ै)
+ (?ऑ ?ॉ) (?ऒ ?ॊ) (?ओ ?ो) (?औ ?ौ) (?ॠ ?ॄ) (?ॡ ?ॣ))
(;; CONSONANTS (currently 42, including special cases)
- ?$,15U(B ?$,15V(B ?$,15W(B ?$,15X(B ?$,15Y(B ;; GUTTRULS
- ?$,15Z(B ?$,15[(B ?$,15\(B ?$,15](B ?$,15^(B ;; PALATALS
- ?$,15_(B ?$,15`(B ?$,15a(B ?$,15b(B ?$,15c(B ;; CEREBRALS
- ?$,15d(B ?$,15e(B ?$,15f(B ?$,15g(B ?$,15h(B ?$,15i(B ;; DENTALS
- ?$,15j(B ?$,15k(B ?$,15l(B ?$,15m(B ?$,15n(B ;; LABIALS
- ?$,15o(B ?$,15p(B ?$,15q(B ?$,15r(B ?$,15s(B ?$,15t(B ?$,15u(B ;; SEMIVOWELS
- ?$,15v(B ?$,15w(B ?$,15x(B ?$,15y(B ;; SIBILANTS
- ?$,168(B ?$,169(B ?$,16:(B ?$,16;(B ?$,16<(B ?$,16=(B ?$,16>(B ?$,16?(B ;; NUKTAS
- "$,15\6-5^(B" "$,15U6-5w(B")
+ ?क ?ख ?ग ?घ ?ङ ;; GUTTRULS
+ ?च ?छ ?ज ?झ ?ञ ;; PALATALS
+ ?ट ?ठ ?ड ?ढ ?ण ;; CEREBRALS
+ ?त ?थ ?द ?ध ?न ?ऩ ;; DENTALS
+ ?प ?फ ?ब ?भ ?म ;; LABIALS
+ ?य ?र ?ऱ ?ल ?ळ ?ऴ ?व ;; SEMIVOWELS
+ ?श ?ष ?स ?ह ;; SIBILANTS
+ ?क़ ?ख़ ?ग़ ?ज़ ?ड़ ?ढ़ ?फ़ ?य़ ;; NUKTAS
+ "ज्ञ" "क्ष")
(;; Misc Symbols (7)
- ?$,15A(B ?$,15B(B ?$,15C(B ?$,15}(B ?$,16-(B ?$,160(B ?$,16D(B)
+ ?ँ ?ं ?ः ?ऽ ?् ?ॐ ?।)
(;; Digits (10)
- ?$,16F(B ?$,16G(B ?$,16H(B ?$,16I(B ?$,16J(B ?$,16K(B ?$,16L(B ?$,16M(B ?$,16N(B ?$,16O(B)
+ ?० ?१ ?२ ?३ ?४ ?५ ?६ ?७ ?८ ?९)
(;; Inscript-extra (4) (#, $, ^, *, ])
- "$,16-5p(B" "$,15p6-(B" "$,15d6-5p(B" "$,15v6-5p(B" "$,15|(B")))
+ "्र" "र्" "त्र" "श्र" "़")))
;; Punjabi is also known as Gurmukhi.
(defvar indian-pnj-base-table
'(
(;; VOWELS
- (?$,18%(B nil) (?$,18&(B ?$,18^(B) (?$,18'(B ?$,18_(B) (?$,18((B ?$,18`(B) (?$,18)(B ?$,18a(B) (?$,18*(B ?$,18b(B)
- nil nil nil nil (?$,18/(B ?$,18g(B) (?$,180(B ?$,18h(B)
- nil nil (?$,183(B ?$,18k(B) (?$,184(B ?$,18l(B) nil nil)
+ (?ਅ nil) (?ਆ ?ਾ) (?ਇ ?ਿ) (?ਈ ?ੀ) (?ਉ ?ੁ) (?ਊ ?ੂ)
+ nil nil nil nil (?ਏ ?ੇ) (?ਐ ?ੈ)
+ nil nil (?ਓ ?ੋ) (?ਔ ?ੌ) nil nil)
(;; CONSONANTS
- ?$,185(B ?$,186(B ?$,187(B ?$,188(B ?$,189(B ;; GUTTRULS
- ?$,18:(B ?$,18;(B ?$,18<(B ?$,18=(B ?$,18>(B ;; PALATALS
- ?$,18?(B ?$,18@(B ?$,18A(B ?$,18B(B ?$,18C(B ;; CEREBRALS
- ?$,18D(B ?$,18E(B ?$,18F(B ?$,18G(B ?$,18H(B nil ;; DENTALS
- ?$,18J(B ?$,18K(B ?$,18L(B ?$,18M(B ?$,18N(B ;; LABIALS
- ?$,18O(B ?$,18P(B nil ?$,18R(B ?$,18S(B nil ?$,18U(B ;; SEMIVOWELS
- ?$,18V(B nil ?$,18X(B ?$,18Y(B ;; SIBILANTS
- nil ?$,18y(B ?$,18z(B ?$,18{(B ?$,18|(B nil ?$,18~(B nil ;; NUKTAS
- "$,18<8m8>(B" nil)
+ ?ਕ ?ਖ ?ਗ ?ਘ ?ਙ ;; GUTTRULS
+ ?ਚ ?ਛ ?ਜ ?ਝ ?ਞ ;; PALATALS
+ ?ਟ ?ਠ ?ਡ ?ਢ ?ਣ ;; CEREBRALS
+ ?ਤ ?ਥ ?ਦ ?ਧ ?ਨ nil ;; DENTALS
+ ?ਪ ?ਫ ?ਬ ?ਭ ?ਮ ;; LABIALS
+ ?ਯ ?ਰ nil ?ਲ ?ਲ਼ nil ?ਵ ;; SEMIVOWELS
+ ?ਸ਼ nil ?ਸ ?ਹ ;; SIBILANTS
+ nil ?ਖ਼ ?ਗ਼ ?ਜ਼ ?ੜ nil ?ਫ਼ nil ;; NUKTAS
+ "ਜ੍ਞ" nil)
(;; Misc Symbols (7)
- nil ?$,18"(B nil nil ?$,18m(B nil nil) ;; ek onkar, etc.
+ nil ?ਂ nil nil ?੍ nil nil) ;; ek onkar, etc.
(;; Digits
- ?$,19&(B ?$,19'(B ?$,19((B ?$,19)(B ?$,19*(B ?$,19+(B ?$,19,(B ?$,19-(B ?$,19.(B ?$,19/(B)
+ ?੦ ?੧ ?੨ ?੩ ?੪ ?੫ ?੬ ?੭ ?੮ ?੯)
(;; Inscript-extra (4) (#, $, ^, *, ])
- "$,18m8P(B" "$,18P8m(B" "$,18D8m8P(B" "$,18V8m8P(B" "$,18\(B")))
+ "੍ਰ" "ਰ੍" "ਤ੍ਰ" "ਸ਼੍ਰ" "਼")))
(defvar indian-gjr-base-table
'(
(;; VOWELS
- (?$,19E(B nil) (?$,19F(B ?$,19~(B) (?$,19G(B ?$,19(B) (?$,19H(B ?$,1: (B) (?$,19I(B ?$,1:!(B) (?$,19J(B ?$,1:"(B)
- (?$,19K(B ?$,1:#(B) nil (?$,19M(B ?$,1:%(B) nil (?$,19O(B ?$,1:'(B) (?$,19P(B ?$,1:((B)
- (?$,19Q(B ?$,1:)(B) nil (?$,19S(B ?$,1:+(B) (?$,19T(B ?$,1:,(B) (?$,1:@(B ?$,1:$(B) nil)
+ (?અ nil) (?આ ?ા) (?ઇ ?િ) (?ઈ ?ી) (?ઉ ?ુ) (?ઊ ?ૂ)
+ (?ઋ ?ૃ) nil (?ઍ ?ૅ) nil (?એ ?ે) (?ઐ ?ૈ)
+ (?ઑ ?ૉ) nil (?ઓ ?ો) (?ઔ ?ૌ) (?ૠ ?ૄ) nil)
(;; CONSONANTS
- ?$,19U(B ?$,19V(B ?$,19W(B ?$,19X(B ?$,19Y(B ;; GUTTRULS
- ?$,19Z(B ?$,19[(B ?$,19\(B ?$,19](B ?$,19^(B ;; PALATALS
- ?$,19_(B ?$,19`(B ?$,19a(B ?$,19b(B ?$,19c(B ;; CEREBRALS
- ?$,19d(B ?$,19e(B ?$,19f(B ?$,19g(B ?$,19h(B nil ;; DENTALS
- ?$,19j(B ?$,19k(B ?$,19l(B ?$,19m(B ?$,19n(B ;; LABIALS
- ?$,19o(B ?$,19p(B nil ?$,19r(B ?$,19s(B nil ?$,19u(B ;; SEMIVOWELS
- ?$,19v(B ?$,19w(B ?$,19x(B ?$,19y(B ;; SIBILANTS
+ ?ક ?ખ ?ગ ?ઘ ?ઙ ;; GUTTRULS
+ ?ચ ?છ ?જ ?ઝ ?ઞ ;; PALATALS
+ ?ટ ?ઠ ?ડ ?ઢ ?ણ ;; CEREBRALS
+ ?ત ?થ ?દ ?ધ ?ન nil ;; DENTALS
+ ?પ ?ફ ?બ ?ભ ?મ ;; LABIALS
+ ?ય ?ર nil ?લ ?ળ nil ?વ ;; SEMIVOWELS
+ ?શ ?ષ ?સ ?હ ;; SIBILANTS
nil nil nil nil nil nil nil nil ;; NUKTAS
- "$,19\:-9^(B" "$,19U:-9w(B")
+ "જ્ઞ" "ક્ષ")
(;; Misc Symbols (7)
- ?$,19A(B ?$,19B(B ?$,19C(B ?$,19}(B ?$,1:-(B ?$,1:0(B nil)
+ ?ઁ ?ં ?ઃ ?ઽ ?્ ?ૐ nil)
(;; Digits
- ?$,1:F(B ?$,1:G(B ?$,1:H(B ?$,1:I(B ?$,1:J(B ?$,1:K(B ?$,1:L(B ?$,1:M(B ?$,1:N(B ?$,1:O(B)
+ ?૦ ?૧ ?૨ ?૩ ?૪ ?૫ ?૬ ?૭ ?૮ ?૯)
(;; Inscript-extra (4) (#, $, ^, *, ])
- "$,1:-9p(B" "$,19p:-(B" "$,19d:-9p(B" "$,19v:-9p(B" "$,19|(B")))
+ "્ર" "ર્" "ત્ર" "શ્ર" "઼")))
(defvar indian-ori-base-table
'(
(;; VOWELS
- (?$,1:e(B nil) (?$,1:f(B ?$,1;>(B) (?$,1:g(B ?$,1;?(B) (?$,1:h(B ?$,1;@(B) (?$,1:i(B ?$,1;A(B) (?$,1:j(B ?$,1;B(B)
- (?$,1:k(B ?$,1;C(B) (?$,1:l(B nil) nil nil (?$,1:o(B ?$,1;G(B) (?$,1:p(B ?$,1;H(B)
- nil nil (?$,1:s(B ?$,1;K(B) (?$,1:t(B ?$,1;L(B) (?$,1;`(B nil) (?$,1;a(B nil))
+ (?ଅ nil) (?ଆ ?ା) (?ଇ ?ି) (?ଈ ?ୀ) (?ଉ ?ୁ) (?ଊ ?ୂ)
+ (?ଋ ?ୃ) (?ଌ nil) nil nil (?ଏ ?େ) (?ଐ ?ୈ)
+ nil nil (?ଓ ?ୋ) (?ଔ ?ୌ) (?ୠ nil) (?ୡ nil))
(;; CONSONANTS
- ?$,1:u(B ?$,1:v(B ?$,1:w(B ?$,1:x(B ?$,1:y(B ;; GUTTRULS
- ?$,1:z(B ?$,1:{(B ?$,1:|(B ?$,1:}(B ?$,1:~(B ;; PALATALS
- ?$,1:(B ?$,1; (B ?$,1;!(B ?$,1;"(B ?$,1;#(B ;; CEREBRALS
- ?$,1;$(B ?$,1;%(B ?$,1;&(B ?$,1;'(B ?$,1;((B nil ;; DENTALS
- ?$,1;*(B ?$,1;+(B ?$,1;,(B ?$,1;-(B ?$,1;.(B ;; LABIALS
- ?$,1;/(B ?$,1;0(B nil ?$,1;2(B ?$,1;3(B nil nil ;; SEMIVOWELS
- ?$,1;6(B ?$,1;7(B ?$,1;8(B ?$,1;9(B ;; SIBILANTS
- nil nil nil nil ?$,1;\(B ?$,1;](B nil ?$,1;_(B ;; NUKTAS
- "$,1:|;M:~(B" "$,1:u;M;7(B")
+ ?କ ?ଖ ?ଗ ?ଘ ?ଙ ;; GUTTRULS
+ ?ଚ ?ଛ ?ଜ ?ଝ ?ଞ ;; PALATALS
+ ?ଟ ?ଠ ?ଡ ?ଢ ?ଣ ;; CEREBRALS
+ ?ତ ?ଥ ?ଦ ?ଧ ?ନ nil ;; DENTALS
+ ?ପ ?ଫ ?ବ ?ଭ ?ମ ;; LABIALS
+ ?ଯ ?ର nil ?ଲ ?ଳ nil nil ;; SEMIVOWELS
+ ?ଶ ?ଷ ?ସ ?ହ ;; SIBILANTS
+ nil nil nil nil ?ଡ଼ ?ଢ଼ nil ?ୟ ;; NUKTAS
+ "ଜ୍ଞ" "କ୍ଷ")
(;; Misc Symbols
- ?$,1:a(B ?$,1:b(B ?$,1:c(B ?$,1;=(B ?$,1;M(B nil nil)
+ ?ଁ ?ଂ ?ଃ ?ଽ ?୍ nil nil)
(;; Digits
- ?$,1;f(B ?$,1;g(B ?$,1;h(B ?$,1;i(B ?$,1;j(B ?$,1;k(B ?$,1;l(B ?$,1;m(B ?$,1;n(B ?$,1;o(B)
+ ?୦ ?୧ ?୨ ?୩ ?୪ ?୫ ?୬ ?୭ ?୮ ?୯)
(;; Inscript-extra (4) (#, $, ^, *, ])
- "$,1;M;0(B" "$,1;0;M(B" "$,1;$;M;0(B" "$,1;6;M;0(B" "$,1;<(B")))
+ "୍ର" "ର୍" "ତ୍ର" "ଶ୍ର" "଼")))
(defvar indian-bng-base-table
'(
(;; VOWELS
- (?$,16e(B nil) (?$,16f(B ?$,17>(B) (?$,16g(B ?$,17?(B) (?$,16h(B ?$,17@(B) (?$,16i(B ?$,17A(B) (?$,16j(B ?$,17B(B)
- (?$,16k(B ?$,17C(B) (?$,16l(B ?$,17b(B) nil nil (?$,16o(B ?$,17G(B) (?$,16p(B ?$,17H(B)
- nil nil (?$,16s(B ?$,17K(B) (?$,16t(B ?$,17L(B) (?$,17`(B ?$,17D(B) (?$,17a(B ?$,17c(B))
+ (?অ nil) (?আ ?া) (?ই ?ি) (?ঈ ?ী) (?উ ?ু) (?ঊ ?ূ)
+ (?ঋ ?ৃ) (?ঌ ?ৢ) nil nil (?এ ?ে) (?ঐ ?ৈ)
+ nil nil (?ও ?ো) (?ঔ ?ৌ) (?ৠ ?ৄ) (?ৡ ?ৣ))
(;; CONSONANTS
- ?$,16u(B ?$,16v(B ?$,16w(B ?$,16x(B ?$,16y(B ;; GUTTRULS
- ?$,16z(B ?$,16{(B ?$,16|(B ?$,16}(B ?$,16~(B ;; PALATALS
- ?$,16(B ?$,17 (B ?$,17!(B ?$,17"(B ?$,17#(B ;; CEREBRALS
- ?$,17$(B ?$,17%(B ?$,17&(B ?$,17'(B ?$,17((B nil ;; DENTALS
- ?$,17*(B ?$,17+(B ?$,17,(B ?$,17-(B ?$,17.(B ;; LABIALS
- ?$,17/(B ?$,170(B nil ?$,172(B nil nil nil ;; SEMIVOWELS
- ?$,176(B ?$,177(B ?$,178(B ?$,179(B ;; SIBILANTS
- nil nil nil nil ?$,17\(B ?$,17](B nil ?$,17_(B ;; NUKTAS
- "$,16|7M6~(B" "$,16u7M77(B")
+ ?ক ?খ ?গ ?ঘ ?ঙ ;; GUTTRULS
+ ?চ ?ছ ?জ ?ঝ ?ঞ ;; PALATALS
+ ?ট ?ঠ ?ড ?ঢ ?ণ ;; CEREBRALS
+ ?ত ?থ ?দ ?ধ ?ন nil ;; DENTALS
+ ?প ?ফ ?ব ?ভ ?ম ;; LABIALS
+ ?য ?র nil ?ল nil nil nil ;; SEMIVOWELS
+ ?শ ?ষ ?স ?হ ;; SIBILANTS
+ nil nil nil nil ?ড় ?ঢ় nil ?য় ;; NUKTAS
+ "জ্ঞ" "ক্ষ")
(;; Misc Symbols
- ?$,16a(B ?$,16b(B ?$,16c(B nil ?$,17M(B nil nil)
+ ?ঁ ?ং ?ঃ nil ?্ nil nil)
(;; Digits
- ?$,17f(B ?$,17g(B ?$,17h(B ?$,17i(B ?$,17j(B ?$,17k(B ?$,17l(B ?$,17m(B ?$,17n(B ?$,17o(B)
+ ?০ ?১ ?২ ?৩ ?৪ ?৫ ?৬ ?৭ ?৮ ?৯)
(;; Inscript-extra (4) (#, $, ^, *, ])
- "$,17M70(B" "$,1707M(B" "$,17$7M70(B" "$,1767M70(B" "$,17<(B")))
+ "্র" "র্" "ত্র" "শ্র" "়")))
(defvar indian-asm-base-table
'(
(;; VOWELS
- (?$,16e(B nil) (?$,16f(B ?$,17>(B) (?$,16g(B ?$,17?(B) (?$,16h(B ?$,17@(B) (?$,16i(B ?$,17A(B) (?$,16j(B ?$,17B(B)
- (?$,16k(B ?$,17C(B) (?$,16l(B ?$,17b(B) nil nil (?$,16o(B ?$,17G(B) (?$,16p(B ?$,17H(B)
- nil nil (?$,16s(B ?$,17K(B) (?$,16t(B ?$,17L(B) (?$,17`(B ?$,17D(B) (?$,17a(B ?$,17c(B))
+ (?অ nil) (?আ ?া) (?ই ?ি) (?ঈ ?ী) (?উ ?ু) (?ঊ ?ূ)
+ (?ঋ ?ৃ) (?ঌ ?ৢ) nil nil (?এ ?ে) (?ঐ ?ৈ)
+ nil nil (?ও ?ো) (?ঔ ?ৌ) (?ৠ ?ৄ) (?ৡ ?ৣ))
(;; CONSONANTS
- ?$,16u(B ?$,16v(B ?$,16w(B ?$,16x(B ?$,16y(B ;; GUTTRULS
- ?$,16z(B ?$,16{(B ?$,16|(B ?$,16}(B ?$,16~(B ;; PALATALS
- ?$,16(B ?$,17 (B ?$,17!(B ?$,17"(B ?$,17#(B ;; CEREBRALS
- ?$,17$(B ?$,17%(B ?$,17&(B ?$,17'(B ?$,17((B nil ;; DENTALS
- ?$,17*(B ?$,17+(B ?$,17,(B ?$,17-(B ?$,17.(B ;; LABIALS
- ?$,17/(B ?$,17p(B nil ?$,172(B nil nil ?$,17q(B ;; SEMIVOWELS
- ?$,176(B ?$,177(B ?$,178(B ?$,179(B ;; SIBILANTS
- nil nil nil nil ?$,17\(B ?$,17](B nil ?$,17_(B ;; NUKTAS
- "$,16|7M6~(B" "$,16u7M77(B")
+ ?ক ?খ ?গ ?ঘ ?ঙ ;; GUTTRULS
+ ?চ ?ছ ?জ ?ঝ ?ঞ ;; PALATALS
+ ?ট ?ঠ ?ড ?ঢ ?ণ ;; CEREBRALS
+ ?ত ?থ ?দ ?ধ ?ন nil ;; DENTALS
+ ?প ?ফ ?ব ?ভ ?ম ;; LABIALS
+ ?য ?ৰ nil ?ল nil nil ?ৱ ;; SEMIVOWELS
+ ?শ ?ষ ?স ?হ ;; SIBILANTS
+ nil nil nil nil ?ড় ?ঢ় nil ?য় ;; NUKTAS
+ "জ্ঞ" "ক্ষ")
(;; Misc Symbols
- ?$,16a(B ?$,16b(B ?$,16c(B nil ?$,17M(B nil nil)
+ ?ঁ ?ং ?ঃ nil ?্ nil nil)
(;; Digits
- ?$,17f(B ?$,17g(B ?$,17h(B ?$,17i(B ?$,17j(B ?$,17k(B ?$,17l(B ?$,17m(B ?$,17n(B ?$,17o(B)
+ ?০ ?১ ?২ ?৩ ?৪ ?৫ ?৬ ?৭ ?৮ ?৯)
(;; Inscript-extra (4) (#, $, ^, *, ])
- "$,17M7p(B" "$,17p7M(B" "$,17$7M7p(B" "$,1767M7p(B" "$,17<(B")))
+ "্ৰ" "ৰ্" "ত্ৰ" "শ্ৰ" "়")))
(defvar indian-tlg-base-table
'(
(;; VOWELS
- (?$,1=E(B nil) (?$,1=F(B ?$,1=~(B) (?$,1=G(B ?$,1=(B) (?$,1=H(B ?$,1> (B) (?$,1=I(B ?$,1>!(B) (?$,1=J(B ?$,1>"(B)
- (?$,1=K(B ?$,1>#(B) (?$,1=L(B nil) nil (?$,1=O(B ?$,1>'(B) (?$,1=N(B ?$,1>&(B) (?$,1=P(B ?$,1>((B)
- nil (?$,1=S(B ?$,1>+(B) (?$,1=R(B ?$,1>*(B) (?$,1=T(B ?$,1>,(B) (?$,1>@(B ?$,1>$(B) (?$,1>A(B nil))
+ (?అ nil) (?ఆ ?ా) (?ఇ ?ి) (?ఈ ?ీ) (?ఉ ?ు) (?ఊ ?ూ)
+ (?ఋ ?ృ) (?ఌ nil) nil (?ఏ ?ే) (?ఎ ?ె) (?ఐ ?ై)
+ nil (?ఓ ?ో) (?ఒ ?ొ) (?ఔ ?ౌ) (?ౠ ?ౄ) (?ౡ nil))
(;; CONSONANTS
- ?$,1=U(B ?$,1=V(B ?$,1=W(B ?$,1=X(B ?$,1=Y(B ;; GUTTRULS
- ?$,1=Z(B ?$,1=[(B ?$,1=\(B ?$,1=](B ?$,1=^(B ;; PALATALS
- ?$,1=_(B ?$,1=`(B ?$,1=a(B ?$,1=b(B ?$,1=c(B ;; CEREBRALS
- ?$,1=d(B ?$,1=e(B ?$,1=f(B ?$,1=g(B ?$,1=h(B nil ;; DENTALS
- ?$,1=j(B ?$,1=k(B ?$,1=l(B ?$,1=m(B ?$,1=n(B ;; LABIALS
- ?$,1=o(B ?$,1=p(B ?$,1=q(B ?$,1=r(B ?$,1=s(B nil ?$,1=u(B ;; SEMIVOWELS
- ?$,1=v(B ?$,1=w(B ?$,1=x(B ?$,1=y(B ;; SIBILANTS
+ ?క ?ఖ ?గ ?ఘ ?ఙ ;; GUTTRULS
+ ?చ ?ఛ ?జ ?ఝ ?ఞ ;; PALATALS
+ ?ట ?ఠ ?డ ?ఢ ?ణ ;; CEREBRALS
+ ?త ?థ ?ద ?ధ ?న nil ;; DENTALS
+ ?ప ?ఫ ?బ ?భ ?మ ;; LABIALS
+ ?య ?ర ?ఱ ?ల ?ళ nil ?వ ;; SEMIVOWELS
+ ?శ ?ష ?స ?హ ;; SIBILANTS
nil nil nil nil nil nil nil nil ;; NUKTAS
- "$,1=\>-=^(B" "$,1=U>-=w(B")
+ "జ్ఞ" "క్ష")
(;; Misc Symbols
- ?$,1=A(B ?$,1=B(B ?$,1=C(B nil ?$,1>-(B nil nil)
+ ?ఁ ?ం ?ః nil ?్ nil nil)
(;; Digits
- ?$,1>F(B ?$,1>G(B ?$,1>H(B ?$,1>I(B ?$,1>J(B ?$,1>K(B ?$,1>L(B ?$,1>M(B ?$,1>N(B ?$,1>O(B)
+ ?౦ ?౧ ?౨ ?౩ ?౪ ?౫ ?౬ ?౭ ?౮ ?౯)
(;; Inscript-extra (4) (#, $, ^, *, ])
- "$,1>-=p(B" "$,1=p>-(B" "$,1=d>-=p(B" "$,1=v>-=p(B" nil)))
+ "్ర" "ర్" "త్ర" "శ్ర" nil)))
(defvar indian-knd-base-table
'(
(;; VOWELS
- (?$,1>e(B nil) (?$,1>f(B ?$,1?>(B) (?$,1>g(B ?$,1??(B) (?$,1>h(B ?$,1?@(B) (?$,1>i(B ?$,1?A(B) (?$,1>j(B ?$,1?B(B)
- (?$,1>k(B ?$,1?C(B) (?$,1>l(B nil) nil (?$,1>o(B ?$,1?G(B) (?$,1>n(B ?$,1?F(B) (?$,1>p(B ?$,1?H(B)
- nil (?$,1>s(B ?$,1?K(B) (?$,1>r(B ?$,1?J(B) (?$,1>t(B ?$,1?L(B) (?$,1?`(B ?$,1?D(B) (?$,1?a(B nil))
+ (?ಅ nil) (?ಆ ?ಾ) (?ಇ ?ಿ) (?ಈ ?ೀ) (?ಉ ?ು) (?ಊ ?ೂ)
+ (?ಋ ?ೃ) (?ಌ nil) nil (?ಏ ?ೇ) (?ಎ ?ೆ) (?ಐ ?ೈ)
+ nil (?ಓ ?ೋ) (?ಒ ?ೊ) (?ಔ ?ೌ) (?ೠ ?ೄ) (?ೡ nil))
(;; CONSONANTS
- ?$,1>u(B ?$,1>v(B ?$,1>w(B ?$,1>x(B ?$,1>y(B ;; GUTTRULS
- ?$,1>z(B ?$,1>{(B ?$,1>|(B ?$,1>}(B ?$,1>~(B ;; PALATALS
- ?$,1>(B ?$,1? (B ?$,1?!(B ?$,1?"(B ?$,1?#(B ;; CEREBRALS
- ?$,1?$(B ?$,1?%(B ?$,1?&(B ?$,1?'(B ?$,1?((B nil ;; DENTALS
- ?$,1?*(B ?$,1?+(B ?$,1?,(B ?$,1?-(B ?$,1?.(B ;; LABIALS
- ?$,1?/(B ?$,1?0(B ?$,1?1(B ?$,1?2(B ?$,1?3(B nil ?$,1?5(B ;; SEMIVOWELS
- ?$,1?6(B ?$,1?7(B ?$,1?8(B ?$,1?9(B ;; SIBILANTS
- nil nil nil nil nil nil ?$,1?^(B nil ;; NUKTAS
- "$,1>|?M>~(B" "$,1>u?M?7(B")
+ ?ಕ ?ಖ ?ಗ ?ಘ ?ಙ ;; GUTTRULS
+ ?ಚ ?ಛ ?ಜ ?ಝ ?ಞ ;; PALATALS
+ ?ಟ ?ಠ ?ಡ ?ಢ ?ಣ ;; CEREBRALS
+ ?ತ ?ಥ ?ದ ?ಧ ?ನ nil ;; DENTALS
+ ?ಪ ?ಫ ?ಬ ?ಭ ?ಮ ;; LABIALS
+ ?ಯ ?ರ ?ಱ ?ಲ ?ಳ nil ?ವ ;; SEMIVOWELS
+ ?ಶ ?ಷ ?ಸ ?ಹ ;; SIBILANTS
+ nil nil nil nil nil nil ?ೞ nil ;; NUKTAS
+ "ಜ್ಞ" "ಕ್ಷ")
(;; Misc Symbols
- nil ?$,1>b(B ?$,1>c(B nil ?$,1?M(B nil nil)
+ nil ?ಂ ?ಃ nil ?್ nil nil)
(;; Digits
- ?$,1?f(B ?$,1?g(B ?$,1?h(B ?$,1?i(B ?$,1?j(B ?$,1?k(B ?$,1?l(B ?$,1?m(B ?$,1?n(B ?$,1?o(B)
+ ?೦ ?೧ ?೨ ?೩ ?೪ ?೫ ?೬ ?೭ ?೮ ?೯)
(;; Inscript-extra (4) (#, $, ^, *, ])
- "$,1?M?0(B" "$,1?0?M(B" "$,1?$?M?0(B" "$,1?6?M?0(B" nil)))
+ "್ರ" "ರ್" "ತ್ರ" "ಶ್ರ" nil)))
(defvar indian-mlm-base-table
'(
(;; VOWELS
- (?$,1@%(B nil) (?$,1@&(B ?$,1@^(B) (?$,1@'(B ?$,1@_(B) (?$,1@((B ?$,1@`(B) (?$,1@)(B ?$,1@a(B) (?$,1@*(B ?$,1@b(B)
- (?$,1@+(B ?$,1@c(B) (?$,1@,(B nil) nil (?$,1@/(B ?$,1@g(B) (?$,1@.(B ?$,1@f(B) (?$,1@0(B ?$,1@h(B)
- nil (?$,1@3(B ?$,1@k(B) (?$,1@2(B ?$,1@j(B) (?$,1@4(B ?$,1@l(B) nil nil)
+ (?അ nil) (?ആ ?ാ) (?ഇ ?ി) (?ഈ ?ീ) (?ഉ ?ു) (?ഊ ?ൂ)
+ (?ഋ ?ൃ) (?ഌ nil) nil (?ഏ ?േ) (?എ ?െ) (?ഐ ?ൈ)
+ nil (?ഓ ?ോ) (?ഒ ?ൊ) (?ഔ ?ൌ) nil nil)
(;; CONSONANTS
- ?$,1@5(B ?$,1@6(B ?$,1@7(B ?$,1@8(B ?$,1@9(B ;; GUTTRULS
- ?$,1@:(B ?$,1@;(B ?$,1@<(B ?$,1@=(B ?$,1@>(B ;; PALATALS
- ?$,1@?(B ?$,1@@(B ?$,1@A(B ?$,1@B(B ?$,1@C(B ;; CEREBRALS
- ?$,1@D(B ?$,1@E(B ?$,1@F(B ?$,1@G(B ?$,1@H(B nil ;; DENTALS
- ?$,1@J(B ?$,1@K(B ?$,1@L(B ?$,1@M(B ?$,1@N(B ;; LABIALS
- ?$,1@O(B ?$,1@P(B ?$,1@Q(B ?$,1@R(B ?$,1@S(B ?$,1@T(B ?$,1@U(B ;; SEMIVOWELS
- ?$,1@V(B ?$,1@W(B ?$,1@X(B ?$,1@Y(B ;; SIBILANTS
+ ?ക ?ഖ ?ഗ ?ഘ ?ങ ;; GUTTRULS
+ ?ച ?ഛ ?ജ ?ഝ ?ഞ ;; PALATALS
+ ?ട ?ഠ ?ഡ ?ഢ ?ണ ;; CEREBRALS
+ ?ത ?ഥ ?ദ ?ധ ?ന nil ;; DENTALS
+ ?പ ?ഫ ?ബ ?ഭ ?മ ;; LABIALS
+ ?യ ?ര ?റ ?ല ?ള ?ഴ ?വ ;; SEMIVOWELS
+ ?ശ ?ഷ ?സ ?ഹ ;; SIBILANTS
nil nil nil nil nil nil nil nil ;; NUKTAS
- "$,1@<@m@>(B" "$,1@5@m@W(B")
+ "ജ്ഞ" "ക്ഷ")
(;; Misc Symbols
- nil ?$,1@"(B ?$,1@#(B nil ?$,1@m(B nil nil)
+ nil ?ം ?ഃ nil ?് nil nil)
(;; Digits
- ?$,1A&(B ?$,1A'(B ?$,1A((B ?$,1A)(B ?$,1A*(B ?$,1A+(B ?$,1A,(B ?$,1A-(B ?$,1A.(B ?$,1A/(B)
+ ?൦ ?൧ ?൨ ?൩ ?൪ ?൫ ?൬ ?൭ ?൮ ?൯)
(;; Inscript-extra (4) (#, $, ^, *, ])
- "$,1@m@P(B" "$,1@P@m(B" "$,1@D@m@P(B" "$,1@V@m@P(B" nil)))
+ "്ര" "ര്" "ത്ര" "ശ്ര" nil)))
(defvar indian-tml-base-table
'(
(;; VOWELS
- (?$,1<%(B nil) (?$,1<&(B ?$,1<^(B) (?$,1<'(B ?$,1<_(B) (?$,1<((B ?$,1<`(B) (?$,1<)(B ?$,1<a(B) (?$,1<*(B ?$,1<b(B)
- nil nil nil (?$,1</(B ?$,1<g(B) (?$,1<.(B ?$,1<f(B) (?$,1<0(B ?$,1<h(B)
- nil (?$,1<3(B ?$,1<k(B) (?$,1<2(B ?$,1<j(B) (?$,1<4(B ?$,1<l(B) nil nil)
+ (?அ nil) (?ஆ ?ா) (?இ ?ி) (?ஈ ?ீ) (?உ ?ு) (?ஊ ?ூ)
+ nil nil nil (?ஏ ?ே) (?எ ?ெ) (?ஐ ?ை)
+ nil (?ஓ ?ோ) (?ஒ ?ொ) (?ஔ ?ௌ) nil nil)
(;; CONSONANTS
- ?$,1<5(B nil nil nil ?$,1<9(B ;; GUTTRULS
- ?$,1<:(B nil ?$,1<<(B nil ?$,1<>(B ;; PALATALS
- ?$,1<?(B nil nil nil ?$,1<C(B ;; CEREBRALS
- ?$,1<D(B nil nil nil ?$,1<H(B ?$,1<I(B ;; DENTALS
- ?$,1<J(B nil nil nil ?$,1<N(B ;; LABIALS
- ?$,1<O(B ?$,1<P(B ?$,1<Q(B ?$,1<R(B ?$,1<S(B ?$,1<T(B ?$,1<U(B ;; SEMIVOWELS
- nil ?$,1<W(B ?$,1<X(B ?$,1<Y(B ;; SIBILANTS
+ ?க nil nil nil ?ங ;; GUTTRULS
+ ?ச nil ?ஜ nil ?ஞ ;; PALATALS
+ ?ட nil nil nil ?ண ;; CEREBRALS
+ ?த nil nil nil ?ந ?ன ;; DENTALS
+ ?ப nil nil nil ?ம ;; LABIALS
+ ?ய ?ர ?ற ?ல ?ள ?ழ ?வ ;; SEMIVOWELS
+ nil ?ஷ ?ஸ ?ஹ ;; SIBILANTS
nil nil nil nil nil nil nil nil ;; NUKTAS
- "$,1<<<m<>(B" "$,1<5<m<W(B")
+ "ஜ்ஞ" "க்ஷ")
(;; Misc Symbols
- nil ?$,1<"(B ?$,1<#(B nil ?$,1<m(B nil nil)
+ nil ?ஂ ?ஃ nil ?் nil nil)
(;; Digits
- ?$,1=&(B ?$,1='(B ?$,1=((B ?$,1=)(B ?$,1=*(B ?$,1=+(B ?$,1=,(B ?$,1=-(B ?$,1=.(B ?$,1=/(B)
+ ?௦ ?௧ ?௨ ?௩ ?௪ ?௫ ?௬ ?௭ ?௮ ?௯)
(;; Inscript-extra (4) (#, $, ^, *, ])
- "$,1<m<P(B" "$,1<P<m(B" "$,1<D<m<P(B" nil nil)))
+ "்ர" "ர்" "த்ர" nil nil)))
(defvar indian-base-table-to-language-alist
'((indian-dev-base-table . "Devanagari")
@@ -588,117 +588,117 @@
;;Unicode vs IS13194 ;; only Devanagari is supported now.
((ucs-devanagari-to-is13194-alist
'((?\x0900 . "[U+0900]")
- (?\x0901 . "(5!(B")
- (?\x0902 . "(5"(B")
- (?\x0903 . "(5#(B")
+ (?\x0901 . "����")
+ (?\x0902 . "����")
+ (?\x0903 . "����")
(?\x0904 . "[U+0904]")
- (?\x0905 . "(5$(B")
- (?\x0906 . "(5%(B")
- (?\x0907 . "(5&(B")
- (?\x0908 . "(5'(B")
- (?\x0909 . "(5((B")
- (?\x090a . "(5)(B")
- (?\x090b . "(5*(B")
- (?\x090c . "(5&i(B")
- (?\x090d . "(5.(B")
- (?\x090e . "(5+(B")
- (?\x090f . "(5,(B")
- (?\x0910 . "(5-(B")
- (?\x0911 . "(52(B")
- (?\x0912 . "(5/(B")
- (?\x0913 . "(50(B")
- (?\x0914 . "(51(B")
- (?\x0915 . "(53(B")
- (?\x0916 . "(54(B")
- (?\x0917 . "(55(B")
- (?\x0918 . "(56(B")
- (?\x0919 . "(57(B")
- (?\x091a . "(58(B")
- (?\x091b . "(59(B")
- (?\x091c . "(5:(B")
- (?\x091d . "(5;(B")
- (?\x091e . "(5<(B")
- (?\x091f . "(5=(B")
- (?\x0920 . "(5>(B")
- (?\x0921 . "(5?(B")
- (?\x0922 . "(5@(B")
- (?\x0923 . "(5A(B")
- (?\x0924 . "(5B(B")
- (?\x0925 . "(5C(B")
- (?\x0926 . "(5D(B")
- (?\x0927 . "(5E(B")
- (?\x0928 . "(5F(B")
- (?\x0929 . "(5G(B")
- (?\x092a . "(5H(B")
- (?\x092b . "(5I(B")
- (?\x092c . "(5J(B")
- (?\x092d . "(5K(B")
- (?\x092e . "(5L(B")
- (?\x092f . "(5M(B")
- (?\x0930 . "(5O(B")
- (?\x0931 . "(5P(B")
- (?\x0932 . "(5Q(B")
- (?\x0933 . "(5R(B")
- (?\x0934 . "(5S(B")
- (?\x0935 . "(5T(B")
- (?\x0936 . "(5U(B")
- (?\x0937 . "(5V(B")
- (?\x0938 . "(5W(B")
- (?\x0939 . "(5X(B")
+ (?\x0905 . "����")
+ (?\x0906 . "����")
+ (?\x0907 . "����")
+ (?\x0908 . "����")
+ (?\x0909 . "����")
+ (?\x090a . "����")
+ (?\x090b . "����")
+ (?\x090c . "��������")
+ (?\x090d . "����")
+ (?\x090e . "����")
+ (?\x090f . "����")
+ (?\x0910 . "����")
+ (?\x0911 . "����")
+ (?\x0912 . "����")
+ (?\x0913 . "����")
+ (?\x0914 . "����")
+ (?\x0915 . "����")
+ (?\x0916 . "����")
+ (?\x0917 . "����")
+ (?\x0918 . "����")
+ (?\x0919 . "����")
+ (?\x091a . "����")
+ (?\x091b . "����")
+ (?\x091c . "����")
+ (?\x091d . "����")
+ (?\x091e . "����")
+ (?\x091f . "����")
+ (?\x0920 . "����")
+ (?\x0921 . "����")
+ (?\x0922 . "����")
+ (?\x0923 . "����")
+ (?\x0924 . "����")
+ (?\x0925 . "����")
+ (?\x0926 . "����")
+ (?\x0927 . "����")
+ (?\x0928 . "����")
+ (?\x0929 . "����")
+ (?\x092a . "����")
+ (?\x092b . "����")
+ (?\x092c . "����")
+ (?\x092d . "����")
+ (?\x092e . "����")
+ (?\x092f . "����")
+ (?\x0930 . "����")
+ (?\x0931 . "����")
+ (?\x0932 . "����")
+ (?\x0933 . "����")
+ (?\x0934 . "����")
+ (?\x0935 . "����")
+ (?\x0936 . "����")
+ (?\x0937 . "����")
+ (?\x0938 . "����")
+ (?\x0939 . "����")
(?\x093a . "[U+093a]")
(?\x093b . "[U+093b]")
- (?\x093c . "(5i(B")
- (?\x093d . "(5ji(B")
- (?\x093e . "(5Z(B")
- (?\x093f . "(5[(B")
- (?\x0940 . "(5\(B")
- (?\x0941 . "(5](B")
- (?\x0942 . "(5^(B")
- (?\x0943 . "(5_(B")
- (?\x0944 . "(5_i(B")
- (?\x0945 . "(5c(B")
- (?\x0946 . "(5`(B")
- (?\x0947 . "(5a(B")
- (?\x0948 . "(5b(B")
- (?\x0949 . "(5g(B")
- (?\x094a . "(5d(B")
- (?\x094b . "(5e(B")
- (?\x094c . "(5f(B")
- (?\x094d . "(5h(B")
+ (?\x093c . "����")
+ (?\x093d . "��������")
+ (?\x093e . "����")
+ (?\x093f . "����")
+ (?\x0940 . "����")
+ (?\x0941 . "����")
+ (?\x0942 . "����")
+ (?\x0943 . "����")
+ (?\x0944 . "��������")
+ (?\x0945 . "����")
+ (?\x0946 . "����")
+ (?\x0947 . "����")
+ (?\x0948 . "����")
+ (?\x0949 . "����")
+ (?\x094a . "����")
+ (?\x094b . "����")
+ (?\x094c . "����")
+ (?\x094d . "����")
(?\x094e . "[U+094e]")
(?\x094f . "[U+094f]")
- (?\x0950 . "(5!i(B")
- (?\x0951 . "(5p5(B")
- (?\x0952 . "(5p8(B")
+ (?\x0950 . "��������")
+ (?\x0951 . "��������")
+ (?\x0952 . "��������")
(?\x0953 . "[DEVANAGARI GRAVE ACCENT]")
(?\x0954 . "[DEVANAGARI ACUTE ACCENT]")
(?\x0955 . "[U+0955]")
(?\x0956 . "[U+0956]")
(?\x0957 . "[U+0957]")
- (?\x0958 . "(53i(B")
- (?\x0959 . "(54i(B")
- (?\x095a . "(55i(B")
- (?\x095b . "(5:i(B")
- (?\x095c . "(5?i(B")
- (?\x095d . "(5@i(B")
- (?\x095e . "(5Ii(B")
- (?\x095f . "(5N(B")
- (?\x0960 . "(5*i(B")
- (?\x0961 . "(5'i(B")
- (?\x0962 . "(5[i(B")
- (?\x0963 . "(5ei(B")
- (?\x0964 . "(5j(B")
- (?\x0965 . "(5jj(B")
- (?\x0966 . "(5q(B")
- (?\x0967 . "(5r(B")
- (?\x0968 . "(5s(B")
- (?\x0969 . "(5t(B")
- (?\x096a . "(5u(B")
- (?\x096b . "(5v(B")
- (?\x096c . "(5w(B")
- (?\x096d . "(5x(B")
- (?\x096e . "(5y(B")
- (?\x096f . "(5z(B")
+ (?\x0958 . "��������")
+ (?\x0959 . "��������")
+ (?\x095a . "��������")
+ (?\x095b . "��������")
+ (?\x095c . "��������")
+ (?\x095d . "��������")
+ (?\x095e . "��������")
+ (?\x095f . "����")
+ (?\x0960 . "��������")
+ (?\x0961 . "��������")
+ (?\x0962 . "��������")
+ (?\x0963 . "��������")
+ (?\x0964 . "����")
+ (?\x0965 . "��������")
+ (?\x0966 . "����")
+ (?\x0967 . "����")
+ (?\x0968 . "����")
+ (?\x0969 . "����")
+ (?\x096a . "����")
+ (?\x096b . "����")
+ (?\x096c . "����")
+ (?\x096d . "����")
+ (?\x096e . "����")
+ (?\x096f . "����")
(?\x0970 . "[U+0970]")
(?\x0971 . "[U+0971]")
(?\x0972 . "[U+0972]")
@@ -870,332 +870,332 @@ Returns new end position."
(defconst indian-2-colum-to-ucs
'(
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2120 $(6!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B
- ("$(6!!(B" . "$,15A(B")
- ("$(6!"(B" . "$,15B(B")
- ("$(6!#(B" . "$,15C(B")
- ("$(6!$(B" . "$,15E(B")
- ("$(6!%(B" . "$,15F(B")
- ("$(6!&(B" . "$,15G(B")
- ("$(6!'(B" . "$,15H(B")
- ("$(6!((B" . "$,15I(B")
- ("$(6!)(B" . "$,15J(B")
- ("$(6!*(B" . "$,15K(B")
- ("$(6!*"p(B" . "$,15p6#(B")
- ("$(6!+(B" . "$,15N(B")
- ("$(6!,(B" . "$,15O(B")
- ("$(6!-(B" . "$,15P(B")
- ("$(6!.(B" . "$,15M(B")
- ("$(6!/(B" . "$,15R(B")
+ ;;2120 ������������������������������������������������������������
+ ("����" . "ँ")
+ ("����" . "ं")
+ ("����" . "ः")
+ ("����" . "अ")
+ ("����" . "आ")
+ ("����" . "इ")
+ ("����" . "ई")
+ ("����" . "उ")
+ ("����" . "ऊ")
+ ("����" . "ऋ")
+ ("��������" . "रृ")
+ ("����" . "ऎ")
+ ("����" . "ए")
+ ("����" . "ऐ")
+ ("����" . "ऍ")
+ ("����" . "ऒ")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2130 $(6!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B
- ("$(6!0(B" . "$,15S(B")
- ("$(6!1(B" . "$,15T(B")
- ("$(6!2(B" . "$,15Q(B")
- ("$(6!3(B" . "$,15U(B")
- ("$(6!4(B" . "$,15V(B")
- ("$(6!5(B" . "$,15W(B")
- ("$(6!6(B" . "$,15X(B")
- ("$(6!7(B" . "$,15Y(B")
- ("$(6!8(B" . "$,15Z(B")
- ("$(6!9(B" . "$,15[(B")
- ("$(6!:(B" . "$,15\(B")
- ("$(6!;(B" . "$,15](B")
- ("$(6!<(B" . "$,15^(B")
- ("$(6!=(B" . "$,15_(B")
- ("$(6!>(B" . "$,15`(B")
- ("$(6!?(B" . "$,15a(B")
+ ;;2130 ����������������������������������������������������������������
+ ("����" . "ओ")
+ ("����" . "औ")
+ ("����" . "ऑ")
+ ("����" . "क")
+ ("����" . "ख")
+ ("����" . "ग")
+ ("����" . "घ")
+ ("����" . "ङ")
+ ("����" . "च")
+ ("����" . "छ")
+ ("����" . "ज")
+ ("����" . "झ")
+ ("����" . "ञ")
+ ("����" . "ट")
+ ("����" . "ठ")
+ ("����" . "ड")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2140 $(6!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O(B
- ("$(6!@(B" . "$,15b(B")
- ("$(6!A(B" . "$,15c(B")
- ("$(6!B(B" . "$,15d(B")
- ("$(6!C(B" . "$,15e(B")
- ("$(6!D(B" . "$,15f(B")
- ("$(6!E(B" . "$,15g(B")
- ("$(6!F(B" . "$,15h(B")
- ("$(6!G(B" . "$,15i(B")
- ("$(6!H(B" . "$,15j(B")
- ("$(6!I(B" . "$,15k(B")
- ("$(6!J(B" . "$,15l(B")
- ("$(6!K(B" . "$,15m(B")
- ("$(6!L(B" . "$,15n(B")
- ("$(6!M(B" . "$,15o(B")
- ("$(6!N(B" . "$,16?(B")
- ("$(6!O(B" . "$,15p(B")
+ ;;2140 ����������������������������������������������������������������
+ ("����" . "ढ")
+ ("����" . "ण")
+ ("����" . "त")
+ ("����" . "थ")
+ ("����" . "द")
+ ("����" . "ध")
+ ("����" . "न")
+ ("����" . "ऩ")
+ ("����" . "प")
+ ("����" . "फ")
+ ("����" . "ब")
+ ("����" . "भ")
+ ("����" . "म")
+ ("����" . "य")
+ ("����" . "य़")
+ ("����" . "र")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2150 $(6!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B
- ("$(6!P(B" . "$,15q(B")
- ("$(6!Q(B" . "$,15r(B")
- ("$(6!R(B" . "$,15s(B")
- ("$(6!S(B" . "$,15t(B")
- ("$(6!T(B" . "$,15u(B")
- ("$(6!U(B" . "$,15v(B")
- ("$(6!V(B" . "$,15w(B")
- ("$(6!W(B" . "$,15x(B")
- ("$(6!X(B" . "$,15y(B")
- ("$(6!Z(B" . "$,15~(B")
- ("$(6![(B" . "$,15(B")
- ("$(6!\(B" . "$,16 (B")
- ("$(6!](B" . "$,16!(B")
- ("$(6!^(B" . "$,16"(B")
- ("$(6!_(B" . "$,16#(B")
+ ;;2150 ����������������������������������������������������������������
+ ("����" . "ऱ")
+ ("����" . "ल")
+ ("����" . "ळ")
+ ("����" . "ऴ")
+ ("����" . "व")
+ ("����" . "श")
+ ("����" . "ष")
+ ("����" . "स")
+ ("����" . "ह")
+ ("����" . "ा")
+ ("����" . "ि")
+ ("����" . "ी")
+ ("����" . "ु")
+ ("����" . "ू")
+ ("����" . "ृ")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2160 $(6!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B
- ("$(6!`(B" . "$,16&(B")
- ("$(6!a(B" . "$,16'(B")
- ("$(6!b(B" . "$,16((B")
- ("$(6!c(B" . "$,16%(B")
- ("$(6!d(B" . "$,16*(B")
- ("$(6!e(B" . "$,16+(B")
- ("$(6!f(B" . "$,16,(B")
- ("$(6!g(B" . "$,16)(B")
- ("$(6!h(B" . "$,16-(B")
- ("$(6!i(B" . "$,15|(B")
- ("$(6!j(B" . "$,16D(B")
- ("$(6!j!j(B" . "$,16E(B")
+ ;;2160 ����������������������������������������������������������������
+ ("����" . "ॆ")
+ ("����" . "े")
+ ("����" . "ै")
+ ("����" . "ॅ")
+ ("����" . "ॊ")
+ ("����" . "ो")
+ ("����" . "ौ")
+ ("����" . "ॉ")
+ ("����" . "्")
+ ("����" . "़")
+ ("����" . "।")
+ ("��������" . "॥")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2170 $(6!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B
- ("$(6!q(B" . "$,16F(B")
- ("$(6!r(B" . "$,16G(B")
- ("$(6!s(B" . "$,16H(B")
- ("$(6!t(B" . "$,16I(B")
- ("$(6!u(B" . "$,16J(B")
- ("$(6!v(B" . "$,16K(B")
- ("$(6!w(B" . "$,16L(B")
- ("$(6!x(B" . "$,16M(B")
- ("$(6!y(B" . "$,16N(B")
- ("$(6!z(B" . "$,16O(B")
+ ;;2170 ������������������������������������������������������������
+ ("����" . "०")
+ ("����" . "१")
+ ("����" . "२")
+ ("����" . "३")
+ ("����" . "४")
+ ("����" . "५")
+ ("����" . "६")
+ ("����" . "७")
+ ("����" . "८")
+ ("����" . "९")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2220 $(6"!"""#"$"%"&"'"(")"*"+","-"."/(B
- ("$(6"!(B" . "$,16;6-5p(B")
- ("$(6""(B" . "$,16>6-5p(B")
- ("$(6"#(B" . "$,15U6-5p(B")
- ("$(6"$(B" . "$,15W6-5p(B")
- ("$(6"%(B" . "$,15d6-5p(B")
- ("$(6"&(B" . "$,15j6-5p(B")
- ("$(6"'(B" . "$,15k6-5p(B")
- ("$(6")(B" . "$,15v6-5p(B")
- ("$(6",(B" . "$,15p6!(B")
- ("$(6"-(B" . "$,15p6"(B")
- ("$(6".(B" . "$,15q6!(B")
- ("$(6"/(B" . "$,15q6"(B")
+ ;;2220 ������������������������������������������������������������
+ ("����" . "ज़्र")
+ ("����" . "फ़्र")
+ ("����" . "क्र")
+ ("����" . "ग्र")
+ ("����" . "त्र")
+ ("����" . "प्र")
+ ("����" . "फ्र")
+ ("����" . "श्र")
+ ("����" . "रु")
+ ("����" . "रू")
+ ("����" . "ऱु")
+ ("����" . "ऱू")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2230 $(6"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B
- ("$(6"3(B" . "$,15U6-(B")
- ("$(6"4(B" . "$,15V6-(B")
- ("$(6"5(B" . "$,15W6-(B")
- ("$(6"6(B" . "$,15X6-(B")
- ("$(6"8(B" . "$,15Z6-(B")
- ("$(6"8"q(B" . "$,15Z6-5p6-(B")
- ("$(6":(B" . "$,15\6-(B")
- ("$(6";(B" . "$,15]6-(B")
- ("$(6"<(B" . "$,15^6-(B")
- ("$(6"<(B" . "$,15^6-(B")
+ ;;2230 ����������������������������������������������������������������
+ ("����" . "क्")
+ ("����" . "ख्")
+ ("����" . "ग्")
+ ("����" . "घ्")
+ ("����" . "च्")
+ ("��������" . "च्र्")
+ ("����" . "ज्")
+ ("����" . "झ्")
+ ("����" . "ञ्")
+ ("����" . "ञ्")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2240 $(6"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B
- ("$(6"A(B" . "$,15c6-(B")
- ("$(6"B(B" . "$,15d6-(B")
- ("$(6"C(B" . "$,15e6-(B")
- ("$(6"E(B" . "$,15g6-(B")
- ("$(6"F(B" . "$,15h6-(B")
- ("$(6"G(B" . "$,15i6-(B")
- ("$(6"H(B" . "$,15j6-(B")
- ("$(6"I(B" . "$,15k6-(B")
- ("$(6"J(B" . "$,15l6-(B")
- ("$(6"J(B" . "$,15l6-(B")
- ("$(6"K(B" . "$,15m6-(B")
- ("$(6"L(B" . "$,15n6-(B")
- ("$(6"M(B" . "$,15o6-(B")
- ("$(6"N(B" . "$,16?6-(B")
+ ;;2240 ����������������������������������������������������������������
+ ("����" . "ण्")
+ ("����" . "त्")
+ ("����" . "थ्")
+ ("����" . "ध्")
+ ("����" . "न्")
+ ("����" . "ऩ्")
+ ("����" . "प्")
+ ("����" . "फ्")
+ ("����" . "ब्")
+ ("����" . "ब्")
+ ("����" . "भ्")
+ ("����" . "म्")
+ ("����" . "य्")
+ ("����" . "य़्")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2250 $(6"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B
- ("$(6"Q(B" . "$,15r6-(B")
- ("$(6"R(B" . "$,15s6-(B")
- ("$(6"S(B" . "$,15t6-(B")
- ("$(6"T(B" . "$,15u6-(B")
- ("$(6"U(B" . "$,15v6-(B")
- ("$(6"V(B" . "$,15w6-(B")
- ("$(6"W(B" . "$,15x6-(B")
- ("$(6"](B" . "$,16-5o(B")
+ ;;2250 ����������������������������������������������������������������
+ ("����" . "ल्")
+ ("����" . "ळ्")
+ ("����" . "ऴ्")
+ ("����" . "व्")
+ ("����" . "श्")
+ ("����" . "ष्")
+ ("����" . "स्")
+ ("����" . "्य")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2260 $(6"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B
- ("$(6"`(B" . "$,15W6-5p6-(B")
- ("$(6"a(B" . "$,15X6-5h6-(B")
- ("$(6"c(B" . "$,15d6-5d6-(B")
- ("$(6"d(B" . "$,15d6-5p6-(B")
- ("$(6"e(B" . "$,15g6-5h6-(B")
- ("$(6"f(B" . "$,15g6-5p6-(B")
- ("$(6"g(B" . "$,15j6-5d6-(B")
- ("$(6"h(B" . "$,15v6-5Z6-(B")
- ("$(6"i(B" . "$,15v6-5p6-(B")
- ("$(6"j(B" . "$,15v6-5u6-(B")
- ("$(6"k(B" . "$,15h6-5h6-(B")
- ("$(6"l(B" . "$,15U6-5w6-(B")
- ("$(6"m(B" . "$,15\6-5^6-(B")
+ ;;2260 ����������������������������������������������������������������
+ ("����" . "ग्र्")
+ ("����" . "घ्न्")
+ ("����" . "त्त्")
+ ("����" . "त्र्")
+ ("����" . "ध्न्")
+ ("����" . "ध्र्")
+ ("����" . "प्त्")
+ ("����" . "श्च्")
+ ("����" . "श्र्")
+ ("����" . "श्व्")
+ ("����" . "न्न्")
+ ("����" . "क्ष्")
+ ("����" . "ज्ञ्")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2270 $(6"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B
- ("$(6"p(B" . "$,15p6-(B")
- ("$(6"q(B" . "$,16-5p(B")
- ("$(6"r(B" . "$,16-5p(B")
- ("$(6"s(B" . "$,1686-(B")
- ("$(6"t(B" . "$,1696-(B")
- ("$(6"u(B" . "$,16:6-(B")
- ("$(6"y(B" . "$,16>6-(B")
- ("$(6"z(B" . "$,16;6-(B")
+ ;;2270 ������������������������������������������������������������
+ ("����" . "र्")
+ ("����" . "्र")
+ ("����" . "्र")
+ ("����" . "क़्")
+ ("����" . "ख़्")
+ ("����" . "ग़्")
+ ("����" . "फ़्")
+ ("����" . "ज़्")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2320 $(6#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B
- ("$(6#!(B" . "$,160(B")
- ("$(6#&(B" . "$,15L(B")
- ("$(6#&"p(B" . "$,15p6$(B")
- ("$(6#'(B" . "$,16A(B")
- ("$(6#'"p(B" . "$,15p6C(B")
- ("$(6#*(B" . "$,16@(B")
- ("$(6#*"p(B" . "$,15p6B(B")
+ ;;2320 ������������������������������������������������������������
+ ("����" . "ॐ")
+ ("����" . "ऌ")
+ ("��������" . "रॄ")
+ ("����" . "ॡ")
+ ("��������" . "रॣ")
+ ("����" . "ॠ")
+ ("��������" . "रॢ")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2330 $(6#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B
- ("$(6#3(B" . "$,168(B")
- ("$(6#4(B" . "$,169(B")
- ("$(6#5(B" . "$,16:(B")
- ("$(6#:(B" . "$,16;(B")
- ("$(6#?(B" . "$,16<(B")
+ ;;2330 ����������������������������������������������������������������
+ ("����" . "क़")
+ ("����" . "ख़")
+ ("����" . "ग़")
+ ("����" . "ज़")
+ ("����" . "ड़")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2340 $(6#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O(B
- ("$(6#@(B" . "$,16=(B")
- ("$(6#I(B" . "$,16>(B")
- ("$(6#J(B" . "$,15}(B")
- ("$(6#K(B" . "$,16$(B")
- ("$(6#L(B" . "$,16B(B")
- ("$(6#M(B" . "$,16C(B")
+ ;;2340 ����������������������������������������������������������������
+ ("����" . "ढ़")
+ ("����" . "फ़")
+ ("����" . "ऽ")
+ ("����" . "ॄ")
+ ("����" . "ॢ")
+ ("����" . "ॣ")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2350 $(6#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B
- ("$(6#P(B" . "$,15n6-5h(B")
- ("$(6#Q(B" . "$,15n6-5r(B")
- ("$(6#R(B" . "$,15y6#(B")
+ ;;2350 ����������������������������������������������������������������
+ ("����" . "म्न")
+ ("����" . "म्ल")
+ ("����" . "हृ")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2360 $(6#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B
- ("$(6#`(B" . "$,15r6-5r(B")
- ("$(6#a(B" . "$,15u6-5h(B")
- ("$(6#b(B" . "$,15u6-5u(B")
- ("$(6#c(B" . "$,15v6-5Z(B")
- ("$(6#d(B" . "$,15v6-5h(B")
- ("$(6#e(B" . "$,15v6-5l(B")
- ("$(6#f(B" . "$,15v6-5r(B")
- ("$(6#g(B" . "$,15v6-5u(B")
- ("$(6#h(B" . "$,15w6-5_6-5p6-5o(B")
- ("$(6#i(B" . "$,15w6-5_6-5o(B")
- ("$(6#j(B" . "$,15w6-5_6-5u(B")
- ("$(6#k(B" . "$,15w6-5_(B")
- ("$(6#l(B" . "$,15w6-5`(B")
- ("$(6#m(B" . "$,15x6-5h(B")
- ("$(6#n(B" . "$,15x6-5p(B")
+ ;;2360 ����������������������������������������������������������������
+ ("����" . "ल्ल")
+ ("����" . "व्न")
+ ("����" . "व्व")
+ ("����" . "श्च")
+ ("����" . "श्न")
+ ("����" . "श्ब")
+ ("����" . "श्ल")
+ ("����" . "श्व")
+ ("����" . "ष्ट्र्य")
+ ("����" . "ष्ट्य")
+ ("����" . "ष्ट्व")
+ ("����" . "ष्ट")
+ ("����" . "ष्ठ")
+ ("����" . "स्न")
+ ("����" . "स्र")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2370 $(6#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B
- ("$(6#p(B" . "$,15y6-5c(B")
- ("$(6#q(B" . "$,15y6-5h(B")
- ("$(6#r(B" . "$,15y6-5n(B")
- ("$(6#s(B" . "$,15y6-5o(B")
- ("$(6#t(B" . "$,15y6-5p(B")
- ("$(6#u(B" . "$,15y6-5r(B")
- ("$(6#v(B" . "$,15y6-5u(B")
+ ;;2370 ������������������������������������������������������������
+ ("����" . "ह्ण")
+ ("����" . "ह्न")
+ ("����" . "ह्म")
+ ("����" . "ह्य")
+ ("����" . "ह्र")
+ ("����" . "ह्ल")
+ ("����" . "ह्व")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2420 $(6$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B
- ("$(6$!(B" . "$,15U6-5d6-5p6-5o(B")
- ("$(6$"(B" . "$,15U6-5d6-5u(B")
- ("$(6$#(B" . "$,15U6-5d6-5o(B")
- ("$(6$$(B" . "$,15U6-5h6-5o(B")
- ("$(6$%(B" . "$,15U6-5p6-5o(B")
- ("$(6$&(B" . "$,15U6-5u6-5o(B")
- ("$(6$'(B" . "$,15U6-5U(B")
- ("$(6$((B" . "$,15U6-5d(B")
- ("$(6$)(B" . "$,15U6-5h(B")
- ("$(6$*(B" . "$,15U6-5n(B")
- ("$(6$+(B" . "$,15U6-5o(B")
- ("$(6$,(B" . "$,15U6-5r(B")
- ("$(6$-(B" . "$,15U6-5u(B")
- ("$(6$.(B" . "$,15U6-5w(B")
- ("$(6$/(B" . "$,15X6-5h(B")
+ ;;2420 ������������������������������������������������������������
+ ("����" . "क्त्र्य")
+ ("����" . "क्त्व")
+ ("����" . "क्त्य")
+ ("����" . "क्न्य")
+ ("����" . "क्र्य")
+ ("����" . "क्व्य")
+ ("����" . "क्क")
+ ("����" . "क्त")
+ ("����" . "क्न")
+ ("����" . "क्म")
+ ("����" . "क्य")
+ ("����" . "क्ल")
+ ("����" . "क्व")
+ ("����" . "क्ष")
+ ("����" . "घ्न")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2430 $(6$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B
- ("$(6$0(B" . "$,15Y6-5U6-5d6-5o(B")
- ("$(6$1(B" . "$,15Y6-5U6-5w6-5u(B")
- ("$(6$2(B" . "$,15Y6-5U6-5d(B")
- ("$(6$3(B" . "$,15Y6-5U6-5w(B")
- ("$(6$4(B" . "$,15Y6-5X6-5p(B")
- ("$(6$5(B" . "$,15Y6-5U6-5o(B")
- ("$(6$6(B" . "$,15Y6-5V6-5o(B")
- ("$(6$7(B" . "$,15Y6-5W6-5o(B")
- ("$(6$8(B" . "$,15Y6-5X6-5o(B")
- ("$(6$9(B" . "$,15Y6-5U(B")
- ("$(6$:(B" . "$,15Y6-5V(B")
- ("$(6$;(B" . "$,15Y6-5W(B")
- ("$(6$<(B" . "$,15Y6-5X(B")
- ("$(6$=(B" . "$,15Y6-5Y(B")
- ("$(6$>(B" . "$,15Y6-5h(B")
- ("$(6$?(B" . "$,15Y6-5n(B")
+ ;;2430 ����������������������������������������������������������������
+ ("����" . "ङ्क्त्य")
+ ("����" . "ङ्क्ष्व")
+ ("����" . "ङ्क्त")
+ ("����" . "ङ्क्ष")
+ ("����" . "ङ्घ्र")
+ ("����" . "ङ्क्य")
+ ("����" . "ङ्ख्य")
+ ("����" . "ङ्ग्य")
+ ("����" . "ङ्घ्य")
+ ("����" . "ङ्क")
+ ("����" . "ङ्ख")
+ ("����" . "ङ्ग")
+ ("����" . "ङ्घ")
+ ("����" . "ङ्ङ")
+ ("����" . "ङ्न")
+ ("����" . "ङ्म")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2440 $(6$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O(B
- ("$(6$@(B" . "$,15Y6-5o(B")
- ("$(6$A(B" . "$,15Z6-5Z(B")
- ("$(6$B(B" . "$,15Z6-5^(B")
- ("$(6$C(B" . "$,15[6-5o(B")
- ("$(6$D(B" . "$,15\6-5p(B")
- ("$(6$E(B" . "$,15\6-5^(B")
- ("$(6$F(B" . "$,15^6-5Z(B")
- ("$(6$G(B" . "$,15^6-5\(B")
- ("$(6$H(B" . "$,15_6-5U(B")
- ("$(6$I(B" . "$,15_6-5_(B")
- ("$(6$J(B" . "$,15_6-5`(B")
- ("$(6$K(B" . "$,15_6-5o(B")
- ("$(6$L(B" . "$,15`6-5o(B")
- ("$(6$M(B" . "$,15a6-5W6-5o(B")
- ("$(6$N(B" . "$,15a6-5X6-5p(B")
- ("$(6$O(B" . "$,15a6-5p6-5o(B")
+ ;;2440 ����������������������������������������������������������������
+ ("����" . "ङ्य")
+ ("����" . "च्च")
+ ("����" . "च्ञ")
+ ("����" . "छ्य")
+ ("����" . "ज्र")
+ ("����" . "ज्ञ")
+ ("����" . "ञ्च")
+ ("����" . "ञ्ज")
+ ("����" . "ट्क")
+ ("����" . "ट्ट")
+ ("����" . "ट्ठ")
+ ("����" . "ट्य")
+ ("����" . "ठ्य")
+ ("����" . "ड्ग्य")
+ ("����" . "ड्घ्र")
+ ("����" . "ड्र्य")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2450 $(6$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B
- ("$(6$P(B" . "$,15a6-5W(B")
- ("$(6$Q(B" . "$,15a6-5X(B")
- ("$(6$R(B" . "$,15a6-5a(B")
- ("$(6$S(B" . "$,15a6-5n(B")
- ("$(6$T(B" . "$,15a6-5o(B")
+ ;;2450 ����������������������������������������������������������������
+ ("����" . "ड्ग")
+ ("����" . "ड्घ")
+ ("����" . "ड्ड")
+ ("����" . "ड्म")
+ ("����" . "ड्य")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2460 $(6$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B
- ("$(6$`(B" . "$,15b6-5o(B")
- ("$(6$a(B" . "$,15d6-5d(B")
- ("$(6$b(B" . "$,15d6-5h(B")
- ("$(6$c(B" . "$,15f6-5f6-5o(B")
- ("$(6$d(B" . "$,15f6-5g6-5o(B")
- ("$(6$e(B" . "$,15f6-5m6-5o(B")
- ("$(6$f(B" . "$,15f6-5p6-5o(B")
- ("$(6$g(B" . "$,15f6-5u6-5o(B")
- ("$(6$h(B" . "$,15f6-5W6-5p(B")
- ("$(6$i(B" . "$,15f6-5X6-5p(B")
- ("$(6$j(B" . "$,15f6-5f6-5u(B")
- ("$(6$k(B" . "$,15f6-5g6-5u(B")
- ("$(6$l(B" . "$,15f6-5W(B")
- ("$(6$m(B" . "$,15f6-5X(B")
- ("$(6$n(B" . "$,15f6-5f(B")
- ("$(6$o(B" . "$,15f6-5g(B")
+ ;;2460 ����������������������������������������������������������������
+ ("����" . "ढ्य")
+ ("����" . "त्त")
+ ("����" . "त्न")
+ ("����" . "द्द्य")
+ ("����" . "द्ध्य")
+ ("����" . "द्भ्य")
+ ("����" . "द्र्य")
+ ("����" . "द्व्य")
+ ("����" . "द्ग्र")
+ ("����" . "द्घ्र")
+ ("����" . "द्द्व")
+ ("����" . "द्ध्व")
+ ("����" . "द्ग")
+ ("����" . "द्घ")
+ ("����" . "द्द")
+ ("����" . "द्ध")
;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
- ;;2470 $(6$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B
- ("$(6$p(B" . "$,15f6-5h(B")
- ("$(6$q(B" . "$,15f6-5l(B")
- ("$(6$r(B" . "$,15f6-5m(B")
- ("$(6$s(B" . "$,15f6-5n(B")
- ("$(6$t(B" . "$,15f6-5o(B")
- ("$(6$u(B" . "$,15f6-5u(B")
- ("$(6$v(B" . "$,15g6-5h(B")
- ("$(6$w(B" . "$,15h6-5h(B")
- ("$(6$x(B" . "$,15j6-5d(B")
- ("$(6$y(B" . "$,15j6-5h(B")
- ("$(6$z(B" . "$,15j6-5r(B")
- ("$(6${(B" . "$,15l6-5h(B")
- ("$(6$|(B" . "$,15l6-5l(B")
- ("$(6$}(B" . "$,15l6-5u(B")
- ("$(6$~(B" . "$,15m6-5h(B")))
+ ;;2470 ������������������������������������������������������������
+ ("����" . "द्न")
+ ("����" . "द्ब")
+ ("����" . "द्भ")
+ ("����" . "द्म")
+ ("����" . "द्य")
+ ("����" . "द्व")
+ ("����" . "ध्न")
+ ("����" . "न्न")
+ ("����" . "प्त")
+ ("����" . "प्न")
+ ("����" . "प्ल")
+ ("����" . "ब्न")
+ ("����" . "ब्ब")
+ ("����" . "ब्व")
+ ("����" . "भ्न")))
(defconst indian-2-column-to-ucs-regexp
- "$(6!j!j(B\\|$(6"8"q(B\\|[$(6#&#'!*#*(B]$(6"p(B\\|[$(6!!(B-$(6$~(B]")
+ "��������\\|��������\\|[����������������]����\\|[����-����]")
(put 'indian-2-column-to-ucs-chartable 'char-table-extra-slots 1)
(defconst indian-2-column-to-ucs-chartable
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index d1bee8aec0..8a30ff4926 100644
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -1,4 +1,4 @@
-;;; lao-util.el --- utilities for Lao -*- coding: iso-2022-7bit; -*-
+;;; lao-util.el --- utilities for Lao -*- coding: utf-8; -*-
;; Copyright (C) 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
@@ -38,100 +38,100 @@
(define-category ?v "Lao upper/lower vowel" lao-category-table)
(define-category ?t "Lao tone" lao-category-table)
-(let ((l '((?(1!(B consonant "LETTER KOR KAI'" "CHICKEN")
- (?(1"(B consonant "LETTER KHOR KHAI'" "EGG")
- (?(1#(B invalid nil)
- (?(1$(B consonant "LETTER QHOR QHWARGN" "BUFFALO")
- (?(1%(B invalid nil)
+(let ((l '((?ກ consonant "LETTER KOR KAI'" "CHICKEN")
+ (?ຂ consonant "LETTER KHOR KHAI'" "EGG")
+ (?຃ invalid nil)
+ (?ຄ consonant "LETTER QHOR QHWARGN" "BUFFALO")
+ (?຅ invalid nil)
(? invalid nil)
- (?(1'(B consonant "LETTER NGOR NGUU" "SNAKE")
- (?(1((B consonant "LETTER JOR JUA" "BUDDHIST NOVICE")
- (?(1)(B invalid nil)
- (?(1*(B consonant "LETTER XOR X\"ARNG" "ELEPHANT")
- (?(1+(B invalid nil)
- (?(1,(B invalid nil)
- (?(1-(B consonant "LETTER YOR YUNG" "MOSQUITO")
- (?(1.(B invalid nil)
- (?(1.(B invalid nil)
- (?(1.(B invalid nil)
- (?(1.(B invalid nil)
- (?(1.(B invalid nil)
- (?(1.(B invalid nil)
- (?(14(B consonant "LETTER DOR DANG" "NOSE")
- (?(15(B consonant "LETTER TOR TAR" "EYE")
- (?(16(B consonant "LETTER THOR THUNG" "TO ASK,QUESTION")
- (?(17(B consonant "LETTER DHOR DHARM" "FLAG")
- (?(18(B invalid nil)
- (?(19(B consonant "LETTER NOR NOK" "BIRD")
- (?(1:(B consonant "LETTER BOR BED" "FISHHOOK")
- (?(1;(B consonant "LETTER POR PAR" "FISH")
- (?(1<(B consonant "LETTER HPOR HPER\"" "BEE")
- (?(1=(B consonant "LETTER FHOR FHAR" "WALL")
- (?(1>(B consonant "LETTER PHOR PHUU" "MOUNTAIN")
- (?(1?(B consonant "LETTER FOR FAI" "FIRE")
- (?(1@(B invalid nil)
- (?(1A(B consonant "LETTER MOR MAR\"" "HORSE")
- (?(1B(B consonant "LETTER GNOR GNAR" "MEDICINE")
- (?(1C(B consonant "LETTER ROR ROD" "CAR")
- (?(1D(B invalid nil)
- (?(1E(B consonant "LETTER LOR LIING" "MONKEY")
- (?(1F(B invalid nil)
- (?(1G(B consonant "LETTER WOR WII" "HAND FAN")
- (?(1H(B invalid nil)
- (?(1I(B invalid nil)
- (?(1J(B consonant "LETTER SOR SEA" "TIGER")
- (?(1K(B consonant "LETTER HHOR HHAI" "JAR")
- (?(1L(B invalid nil)
- (?(1M(B consonant "LETTER OR OOW" "TAKE")
- (?(1N(B consonant "LETTER HOR HEA" "BOAT")
- (?(1O(B special "ELLIPSIS")
- (?(1P(B vowel-base "VOWEL SIGN SARA A")
- (?(1Q(B vowel-upper "VOWEL SIGN MAI KAN")
- (?(1R(B vowel-base "VOWEL SIGN SARA AR")
- (?(1S(B vowel-base "VOWEL SIGN SARA AM")
- (?(1T(B vowel-upper "VOWEL SIGN SARA I")
- (?(1U(B vowel-upper "VOWEL SIGN SARA II")
- (?(1V(B vowel-upper "VOWEL SIGN SARA EU")
- (?(1W(B vowel-upper "VOWEL SIGN SARA UR")
- (?(1X(B vowel-lower "VOWEL SIGN SARA U")
- (?(1Y(B vowel-lower "VOWEL SIGN SARA UU")
- (?(1Z(B invalid nil)
- (?(1[(B vowel-upper "VOWEL SIGN MAI KONG")
- (?(1\(B semivowel-lower "SEMIVOWEL SIGN LO")
- (?(1](B vowel-base "SEMIVOWEL SIGN SARA IA")
- (?(1^(B invalid nil)
- (?(1_(B invalid nil)
- (?(1`(B vowel-base "VOWEL SIGN SARA EE")
- (?(1a(B vowel-base "VOWEL SIGN SARA AA")
- (?(1b(B vowel-base "VOWEL SIGN SARA OO")
- (?(1c(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"")
- (?(1d(B vowel-base "VOWEL SIGN SARA AI MAI MAY")
- (?(1e(B invalid nil)
- (?(1f(B special "KO LA (REPETITION)")
- (?(1g(B invalid nil)
- (?(1h(B tone "TONE MAI EK")
- (?(1i(B tone "TONE MAI THO")
- (?(1j(B tone "TONE MAI TI")
- (?(1k(B tone "TONE MAI JADTAWAR")
- (?(1l(B tone "CANCELLATION MARK")
- (?(1m(B vowel-upper "VOWEL SIGN SARA OR")
- (?(1n(B invalid nil)
- (?(1o(B invalid nil)
- (?(1p(B special "DIGIT ZERO")
- (?(1q(B special "DIGIT ONE")
- (?(1r(B special "DIGIT TWO")
- (?(1s(B special "DIGIT THREE")
- (?(1t(B special "DIGIT FOUR")
- (?(1u(B special "DIGIT FIVE")
- (?(1v(B special "DIGIT SIX")
- (?(1w(B special "DIGIT SEVEN")
- (?(1x(B special "DIGIT EIGHT")
- (?(1y(B special "DIGIT NINE")
- (?(1z(B invalid nil)
- (?(1{(B invalid nil)
- (?(1|(B consonant "LETTER NHOR NHUU" "MOUSE")
- (?(1}(B consonant "LETTER MHOR MHAR" "DOG")
- (?(1~(B invalid nil)))
+ (?ງ consonant "LETTER NGOR NGUU" "SNAKE")
+ (?ຈ consonant "LETTER JOR JUA" "BUDDHIST NOVICE")
+ (?ຉ invalid nil)
+ (?ຊ consonant "LETTER XOR X\"ARNG" "ELEPHANT")
+ (?຋ invalid nil)
+ (?ຌ invalid nil)
+ (?ຍ consonant "LETTER YOR YUNG" "MOSQUITO")
+ (?ຎ invalid nil)
+ (?ຎ invalid nil)
+ (?ຎ invalid nil)
+ (?ຎ invalid nil)
+ (?ຎ invalid nil)
+ (?ຎ invalid nil)
+ (?ດ consonant "LETTER DOR DANG" "NOSE")
+ (?ຕ consonant "LETTER TOR TAR" "EYE")
+ (?ຖ consonant "LETTER THOR THUNG" "TO ASK,QUESTION")
+ (?ທ consonant "LETTER DHOR DHARM" "FLAG")
+ (?ຘ invalid nil)
+ (?ນ consonant "LETTER NOR NOK" "BIRD")
+ (?ບ consonant "LETTER BOR BED" "FISHHOOK")
+ (?ປ consonant "LETTER POR PAR" "FISH")
+ (?ຜ consonant "LETTER HPOR HPER\"" "BEE")
+ (?ຝ consonant "LETTER FHOR FHAR" "WALL")
+ (?ພ consonant "LETTER PHOR PHUU" "MOUNTAIN")
+ (?ຟ consonant "LETTER FOR FAI" "FIRE")
+ (?ຠ invalid nil)
+ (?ມ consonant "LETTER MOR MAR\"" "HORSE")
+ (?ຢ consonant "LETTER GNOR GNAR" "MEDICINE")
+ (?ຣ consonant "LETTER ROR ROD" "CAR")
+ (?຤ invalid nil)
+ (?ລ consonant "LETTER LOR LIING" "MONKEY")
+ (?຦ invalid nil)
+ (?ວ consonant "LETTER WOR WII" "HAND FAN")
+ (?ຨ invalid nil)
+ (?ຩ invalid nil)
+ (?ສ consonant "LETTER SOR SEA" "TIGER")
+ (?ຫ consonant "LETTER HHOR HHAI" "JAR")
+ (?ຬ invalid nil)
+ (?ອ consonant "LETTER OR OOW" "TAKE")
+ (?ຮ consonant "LETTER HOR HEA" "BOAT")
+ (?ຯ special "ELLIPSIS")
+ (?ະ vowel-base "VOWEL SIGN SARA A")
+ (?ັ vowel-upper "VOWEL SIGN MAI KAN")
+ (?າ vowel-base "VOWEL SIGN SARA AR")
+ (?ຳ vowel-base "VOWEL SIGN SARA AM")
+ (?ິ vowel-upper "VOWEL SIGN SARA I")
+ (?ີ vowel-upper "VOWEL SIGN SARA II")
+ (?ຶ vowel-upper "VOWEL SIGN SARA EU")
+ (?ື vowel-upper "VOWEL SIGN SARA UR")
+ (?ຸ vowel-lower "VOWEL SIGN SARA U")
+ (?ູ vowel-lower "VOWEL SIGN SARA UU")
+ (?຺ invalid nil)
+ (?ົ vowel-upper "VOWEL SIGN MAI KONG")
+ (?ຼ semivowel-lower "SEMIVOWEL SIGN LO")
+ (?ຽ vowel-base "SEMIVOWEL SIGN SARA IA")
+ (?຾ invalid nil)
+ (?຿ invalid nil)
+ (?ເ vowel-base "VOWEL SIGN SARA EE")
+ (?ແ vowel-base "VOWEL SIGN SARA AA")
+ (?ໂ vowel-base "VOWEL SIGN SARA OO")
+ (?ໃ vowel-base "VOWEL SIGN SARA EI MAI MUAN\"")
+ (?ໄ vowel-base "VOWEL SIGN SARA AI MAI MAY")
+ (?໅ invalid nil)
+ (?ໆ special "KO LA (REPETITION)")
+ (?໇ invalid nil)
+ (?່ tone "TONE MAI EK")
+ (?້ tone "TONE MAI THO")
+ (?໊ tone "TONE MAI TI")
+ (?໋ tone "TONE MAI JADTAWAR")
+ (?໌ tone "CANCELLATION MARK")
+ (?ໍ vowel-upper "VOWEL SIGN SARA OR")
+ (?໎ invalid nil)
+ (?໏ invalid nil)
+ (?໐ special "DIGIT ZERO")
+ (?໑ special "DIGIT ONE")
+ (?໒ special "DIGIT TWO")
+ (?໓ special "DIGIT THREE")
+ (?໔ special "DIGIT FOUR")
+ (?໕ special "DIGIT FIVE")
+ (?໖ special "DIGIT SIX")
+ (?໗ special "DIGIT SEVEN")
+ (?໘ special "DIGIT EIGHT")
+ (?໙ special "DIGIT NINE")
+ (?໚ invalid nil)
+ (?໛ invalid nil)
+ (?ໜ consonant "LETTER NHOR NHUU" "MOUSE")
+ (?ໝ consonant "LETTER MHOR MHAR" "DOG")
+ (?ໞ invalid nil)))
elm)
(while l
(setq elm (car l) l (cdr l))
@@ -185,115 +185,115 @@
(defconst lao-transcription-consonant-alist
(sort '(;; single consonants
- ("k" . "(1!(B")
- ("kh" . "(1"(B")
- ("qh" . "(1$(B")
- ("ng" . "(1'(B")
- ("j" . "(1((B")
- ("s" . "(1J(B")
- ("x" . "(1*(B")
- ("y" . "(1-(B")
- ("d" . "(14(B")
- ("t" . "(15(B")
- ("th" . "(16(B")
- ("dh" . "(17(B")
- ("n" . "(19(B")
- ("b" . "(1:(B")
- ("p" . "(1;(B")
- ("hp" . "(1<(B")
- ("fh" . "(1=(B")
- ("ph" . "(1>(B")
- ("f" . "(1?(B")
- ("m" . "(1A(B")
- ("gn" . "(1B(B")
- ("l" . "(1E(B")
- ("r" . "(1C(B")
- ("v" . "(1G(B")
- ("w" . "(1G(B")
- ("hh" . "(1K(B")
- ("O" . "(1M(B")
- ("h" . "(1N(B")
- ("nh" . "(1|(B")
- ("mh" . "(1}(B")
- ("lh" . ["(1K\(B"])
+ ("k" . "ກ")
+ ("kh" . "ຂ")
+ ("qh" . "ຄ")
+ ("ng" . "ງ")
+ ("j" . "ຈ")
+ ("s" . "ສ")
+ ("x" . "ຊ")
+ ("y" . "ຍ")
+ ("d" . "ດ")
+ ("t" . "ຕ")
+ ("th" . "ຖ")
+ ("dh" . "ທ")
+ ("n" . "ນ")
+ ("b" . "ບ")
+ ("p" . "ປ")
+ ("hp" . "ຜ")
+ ("fh" . "ຝ")
+ ("ph" . "ພ")
+ ("f" . "ຟ")
+ ("m" . "ມ")
+ ("gn" . "ຢ")
+ ("l" . "ລ")
+ ("r" . "ຣ")
+ ("v" . "ວ")
+ ("w" . "ວ")
+ ("hh" . "ຫ")
+ ("O" . "ອ")
+ ("h" . "ຮ")
+ ("nh" . "ໜ")
+ ("mh" . "ໝ")
+ ("lh" . ["ຫຼ"])
;; double consonants
- ("ngh" . ["(1K'(B"])
- ("yh" . ["(1K](B"])
- ("wh" . ["(1KG(B"])
- ("hl" . ["(1KE(B"])
- ("hy" . ["(1K-(B"])
- ("hn" . ["(1K9(B"])
- ("hm" . ["(1KA(B"])
+ ("ngh" . ["ຫງ"])
+ ("yh" . ["ຫຽ"])
+ ("wh" . ["ຫວ"])
+ ("hl" . ["ຫລ"])
+ ("hy" . ["ຫຍ"])
+ ("hn" . ["ຫນ"])
+ ("hm" . ["ຫມ"])
)
(function (lambda (x y) (> (length (car x)) (length (car y)))))))
(defconst lao-transcription-semi-vowel-alist
- '(("r" . "(1\(B")))
+ '(("r" . "ຼ")))
(defconst lao-transcription-vowel-alist
- (sort '(("a" . "(1P(B")
- ("ar" . "(1R(B")
- ("i" . "(1T(B")
- ("ii" . "(1U(B")
- ("eu" . "(1V(B")
- ("ur" . "(1W(B")
- ("u" . "(1X(B")
- ("uu" . "(1Y(B")
- ("e" . ["(1`P(B"])
- ("ee" . "(1`(B")
- ("ae" . ["(1aP(B"])
- ("aa" . "(1a(B")
- ("o" . ["(1bP(B"])
- ("oo" . "(1b(B")
- ("oe" . ["(1`RP(B"])
- ("or" . "(1m(B")
- ("er" . ["(1`T(B"])
- ("ir" . ["(1`U(B"])
- ("ua" . ["(1[GP(B"])
- ("uaa" . ["(1[G(B"])
- ("ie" . ["(1`Q]P(B"])
- ("ia" . ["(1`Q](B"])
- ("ea" . ["(1`VM(B"])
- ("eaa" . ["(1`WM(B"])
- ("ai" . "(1d(B")
- ("ei" . "(1c(B")
- ("ao" . ["(1`[R(B"])
- ("aM" . "(1S(B"))
+ (sort '(("a" . "ະ")
+ ("ar" . "າ")
+ ("i" . "ິ")
+ ("ii" . "ີ")
+ ("eu" . "ຶ")
+ ("ur" . "ື")
+ ("u" . "ຸ")
+ ("uu" . "ູ")
+ ("e" . ["ເະ"])
+ ("ee" . "ເ")
+ ("ae" . ["ແະ"])
+ ("aa" . "ແ")
+ ("o" . ["ໂະ"])
+ ("oo" . "ໂ")
+ ("oe" . ["ເາະ"])
+ ("or" . "ໍ")
+ ("er" . ["ເິ"])
+ ("ir" . ["ເີ"])
+ ("ua" . ["ົວະ"])
+ ("uaa" . ["ົວ"])
+ ("ie" . ["ເັຽະ"])
+ ("ia" . ["ເັຽ"])
+ ("ea" . ["ເຶອ"])
+ ("eaa" . ["ເືອ"])
+ ("ai" . "ໄ")
+ ("ei" . "ໃ")
+ ("ao" . ["ເົາ"])
+ ("aM" . "ຳ"))
(function (lambda (x y) (> (length (car x)) (length (car y)))))))
;; Maa-sakod is put at the tail.
(defconst lao-transcription-maa-sakod-alist
- '(("k" . "(1!(B")
- ("g" . "(1'(B")
- ("y" . "(1-(B")
- ("d" . "(14(B")
- ("n" . "(19(B")
- ("b" . "(1:(B")
- ("m" . "(1A(B")
- ("v" . "(1G(B")
- ("w" . "(1G(B")
+ '(("k" . "ກ")
+ ("g" . "ງ")
+ ("y" . "ຍ")
+ ("d" . "ດ")
+ ("n" . "ນ")
+ ("b" . "ບ")
+ ("m" . "ມ")
+ ("v" . "ວ")
+ ("w" . "ວ")
))
(defconst lao-transcription-tone-alist
- '(("'" . "(1h(B")
- ("\"" . "(1i(B")
- ("^" . "(1j(B")
- ("+" . "(1k(B")
- ("~" . "(1l(B")))
+ '(("'" . "່")
+ ("\"" . "້")
+ ("^" . "໊")
+ ("+" . "໋")
+ ("~" . "໌")))
(defconst lao-transcription-punctuation-alist
- '(("\\0" . "(1p(B")
- ("\\1" . "(1q(B")
- ("\\2" . "(1r(B")
- ("\\3" . "(1s(B")
- ("\\4" . "(1t(B")
- ("\\5" . "(1u(B")
- ("\\6" . "(1v(B")
- ("\\7" . "(1w(B")
- ("\\8" . "(1x(B")
- ("\\9" . "(1y(B")
- ("\\\\" . "(1f(B")
- ("\\$" . "(1O(B")))
+ '(("\\0" . "໐")
+ ("\\1" . "໑")
+ ("\\2" . "໒")
+ ("\\3" . "໓")
+ ("\\4" . "໔")
+ ("\\5" . "໕")
+ ("\\6" . "໖")
+ ("\\7" . "໗")
+ ("\\8" . "໘")
+ ("\\9" . "໙")
+ ("\\\\" . "ໆ")
+ ("\\$" . "ຯ")))
(defconst lao-transcription-pattern
(concat
@@ -332,39 +332,39 @@
"Regexp of Roman transcription pattern for one Lao syllable.")
(defconst lao-vowel-reordering-rule
- '(("(1P(B" (0 ?(1P(B) (0 ?(1Q(B))
- ("(1R(B" (0 ?(1R(B))
- ("(1T(B" (0 ?(1U(B))
- ("(1U(B" (0 ?(1U(B))
- ("(1V(B" (0 ?(1V(B))
- ("(1W(B" (0 ?(1W(B))
- ("(1X(B" (0 ?(1X(B))
- ("(1Y(B" (0 ?(1Y(B))
- ("(1`P(B" (?(1`(B 0 ?(1P(B) (?(1`(B 0 ?(1Q(B))
- ("(1`(B" (?(1`(B 0))
- ("(1aP(B" (?(1a(B 0 ?(1P(B) (?(1a(B 0 ?(1Q(B))
- ("(1a(B" (?(1a(B 0))
- ("(1bP(B" (?(1b(B 0 ?(1P(B) (0 ?(1[(B) (?(1-(B ?(1b(B 0 ?(1Q(B) (?(1G(B ?(1b(B 0 ?(1Q(B))
- ("(1b(B" (?(1b(B 0))
- ("(1`RP(B" (?(1`(B 0 ?(1R(B ?(1P(B) (0 ?(1Q(B ?(1M(B))
- ("(1m(B" (0 ?(1m(B) (0 ?(1M(B))
- ("(1`T(B" (?(1`(B 0 ?(1T(B))
- ("(1`U(B" (?(1`(B 0 ?(1U(B))
- ("(1[GP(B" (0 ?(1[(B ?(1G(B ?(1P(B) (0 ?(1Q(B ?(1G(B))
- ("(1[G(B" (0 ?(1[(B ?(1G(B) (0 ?(1G(B))
- ("(1`Q]P(B" (?(1`(B 0 ?(1Q(B ?(1](B ?(1P(B) (0 ?(1Q(B ?(1](B))
- ("(1`Q](B" (?(1`(B 0 ?(1Q(B ?(1](B) (0 ?(1](B))
- ("(1`VM(B" (?(1`(B 0 ?(1V(B ?(1M(B))
- ("(1`WM(B" (?(1`(B 0 ?(1W(B ?(1M(B))
- ("(1d(B" (?(1d(B 0))
- ("(1c(B" (?(1c(B 0))
- ("(1`[R(B" (?(1`(B 0 ?(1[(B ?(1R(B))
- ("(1S(B" (0 ?(1S(B)))
+ '(("ະ" (0 ?ະ) (0 ?ັ))
+ ("າ" (0 ?າ))
+ ("ິ" (0 ?ີ))
+ ("ີ" (0 ?ີ))
+ ("ຶ" (0 ?ຶ))
+ ("ື" (0 ?ື))
+ ("ຸ" (0 ?ຸ))
+ ("ູ" (0 ?ູ))
+ ("ເະ" (?ເ 0 ?ະ) (?ເ 0 ?ັ))
+ ("ເ" (?ເ 0))
+ ("ແະ" (?ແ 0 ?ະ) (?ແ 0 ?ັ))
+ ("ແ" (?ແ 0))
+ ("ໂະ" (?ໂ 0 ?ະ) (0 ?ົ) (?ຍ ?ໂ 0 ?ັ) (?ວ ?ໂ 0 ?ັ))
+ ("ໂ" (?ໂ 0))
+ ("ເາະ" (?ເ 0 ?າ ?ະ) (0 ?ັ ?ອ))
+ ("ໍ" (0 ?ໍ) (0 ?ອ))
+ ("ເິ" (?ເ 0 ?ິ))
+ ("ເີ" (?ເ 0 ?ີ))
+ ("ົວະ" (0 ?ົ ?ວ ?ະ) (0 ?ັ ?ວ))
+ ("ົວ" (0 ?ົ ?ວ) (0 ?ວ))
+ ("ເັຽະ" (?ເ 0 ?ັ ?ຽ ?ະ) (0 ?ັ ?ຽ))
+ ("ເັຽ" (?ເ 0 ?ັ ?ຽ) (0 ?ຽ))
+ ("ເຶອ" (?ເ 0 ?ຶ ?ອ))
+ ("ເືອ" (?ເ 0 ?ື ?ອ))
+ ("ໄ" (?ໄ 0))
+ ("ໃ" (?ໃ 0))
+ ("ເົາ" (?ເ 0 ?ົ ?າ))
+ ("ຳ" (0 ?ຳ)))
"Alist of Lao vowel string vs the corresponding re-ordering rule.
Each element has this form:
(VOWEL NO-MAA-SAKOD-RULE WITH-MAA-SAKOD-RULE (MAA-SAKOD-0 RULE-0) ...)
-VOWEL is a vowel string (e.g. \"(1`Q]P(B\").
+VOWEL is a vowel string (e.g. \"ເັຽະ\").
NO-MAA-SAKOD-RULE is a rule to re-order and modify VOWEL following a
consonant. It is a list vowel characters or 0. The element 0
@@ -375,8 +375,8 @@ following a consonant and preceding a maa-sakod character. If it is
nil, NO-MAA-SAKOD-RULE is used. The maa-sakod character is always
appended at the tail.
-For instance, rule `(\"(1`WM(B\" (?(1`(B t ?(1W(B ?(1M(B))' tells that this vowel
-string following a consonant `(1!(B' should be re-ordered as \"(1`!WM(B\".
+For instance, rule `(\"ເືອ\" (?ເ t ?ື ?ອ))' tells that this vowel
+string following a consonant `ກ' should be re-ordered as \"ເກືອ\".
Optional (MAA-SAKOD-n RULE-n) are rules specially applied to maa-sakod
character MAA-SAKOD-n.")
diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index abed8f1036..803e9977d4 100644
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -1,4 +1,4 @@
-;;; thai.el --- support for Thai -*- coding: iso-2022-7bit -*-
+;;; thai.el --- support for Thai -*- coding: utf-8 -*-
;; Copyright (C) 1997-1998, 2000-2013 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
@@ -55,7 +55,7 @@
(exit-function . exit-thai-language-environment-internal)
(sample-text
. (thai-compose-string
- (copy-sequence "Thai (,T@RIRd7B(B) ,TJGQJ4U$CQ:(B, ,TJGQJ4U$hP(B")))
+ (copy-sequence "Thai (ภาษาไทย) สวัสดีครับ, สวัสดีค่ะ")))
(documentation . t)))
(define-coding-system 'cp874
@@ -75,12 +75,12 @@ This is the same as `thai-tis620' with the addition of no-break-space."
:charset-list '(iso-8859-11))
;; For automatic composition.
-(let ((chars ",TQTUVWXYZghijklmn(B")
- (elt '(["[,T!(B-,TO(B].[,Thijkl(B]?,TS(B?" 1 thai-composition-function]
+(let ((chars "ัิีึืฺุู็่้๊๋์ํ๎")
+ (elt '(["[ก-ฯ].[่้๊๋์]?ำ?" 1 thai-composition-function]
[nil 0 thai-composition-function])))
(dotimes (i (length chars))
(aset composition-function-table (aref chars i) elt)))
-(aset composition-function-table ?,TS(B '(["[,T!(B-,TO(B]." 1 thai-composition-function]))
+(aset composition-function-table ?ำ '(["[ก-ฯ]." 1 thai-composition-function]))
(provide 'thai)
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index 1617c2f3eb..422fc697df 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -1,4 +1,4 @@
-;;; tibet-util.el --- utilities for Tibetan -*- coding: iso-2022-7bit; -*-
+;;; tibet-util.el --- utilities for Tibetan -*- coding: utf-8-emacs; -*-
;; Copyright (C) 1997, 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
@@ -35,21 +35,21 @@
;;; Code:
(defconst tibetan-obsolete-glyphs
- `(("$(7!=(B" . "$(7!=(B") ; 2 col <-> 1 col
- ("$(7!?(B" . "$(7!?(B")
- ("$(7!@(B" . "$(7!@(B")
- ("$(7!A(B" . "$(7!A(B")
- ("$(7"`(B" . "$(7"`(B")
- ("$(7!;(B" . "$(7!;(B")
- ("$(7!D(B" . "$(7!D(B")
+ `(("།" . "།") ; 2 col <-> 1 col
+ ("༏" . "༏")
+ ("༐" . "༐")
+ ("༑" . "༑")
+ ("ཿ" . "ཿ")
+ ("་" . "་")
+ ("༔" . "༔")
;; Yes these are dirty. But ...
- ("$(7!>(B $(7!>(B" . ,(compose-string "$(7!>(B $(7!>(B" 0 3 [?$(7!>(B (Br . Bl) ? (Br . Bl) ?$(7!>(B]))
- ("$(7!4!5!5(B" . ,(compose-string
- "$(7#R#S#S#S(B" 0 4
- [?$(7#R(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B]))
- ("$(7!4!5(B" . ,(compose-string "$(7#R#S#S(B" 0 3 [?$(7#R(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B]))
- ("$(7!6(B" . ,(compose-string "$(7#R#S!I(B" 0 3 [?$(7#R(B (Br . Bl) ?$(7#S(B (br . tr) ?$(7!I(B]))
- ("$(7!4(B" . ,(compose-string "$(7#R#S(B" 0 2 [?$(7#R(B (Br . Bl) ?$(7#S(B]))))
+ ("༎ ༎" . ,(compose-string "༎ ༎" 0 3 [?༎ (Br . Bl) ? (Br . Bl) ?༎]))
+ ("༄༅༅" . ,(compose-string
+ "࿁࿂࿂࿂" 0 4
+ [?࿁ (Br . Bl) ?࿂ (Br . Bl) ?࿂ (Br . Bl) ?࿂]))
+ ("༄༅" . ,(compose-string "࿁࿂࿂" 0 3 [?࿁ (Br . Bl) ?࿂ (Br . Bl) ?࿂]))
+ ("༆" . ,(compose-string "࿁࿂༙" 0 3 [?࿁ (Br . Bl) ?࿂ (br . tr) ?༙]))
+ ("༄" . ,(compose-string "࿁࿂" 0 2 [?࿁ (Br . Bl) ?࿂]))))
;;;###autoload
(defun tibetan-char-p (ch)
@@ -136,7 +136,7 @@ The returned string has no composition information."
;;;
;;; Here are examples of the words "bsgrubs" and "hfauM"
;;;
-;;; $(7"7"G###C"U"7"G(B $(7"H"R"U"_(B
+;;; བསྒྲུབས ཧཱུཾ
;;;
;;; M
;;; b s b s h
@@ -144,7 +144,7 @@ The returned string has no composition information."
;;; r u
;;; u
;;;
-;;; Consonants `'' ($(7"A(B), `w' ($(7">(B), `y' ($(7"B(B), `r' ($(7"C(B) take special
+;;; Consonants `'' (འ), `w' (ཝ), `y' (ཡ), `r' (ར) take special
;;; forms when they are used as subjoined consonant. Consonant `r'
;;; takes another special form when used as superjoined in such a case
;;; as "rka", while it does not change its form when conjoined with
@@ -161,15 +161,15 @@ The returned string has no composition information."
;; Special treatment for 'a chung.
;; If 'a follows a consonant, turn it into the subjoined form.
;; * Disabled by Tomabechi 2000/06/09 *
- ;; Because in Unicode, $(7"A(B may follow directly a consonant without
- ;; any intervening vowel, as in $(7"9"""Q"A!;(B=$(7"9(B $(7""(B $(7"A(B not $(7"9(B $(7""(B $(7"Q(B $(7"A(B
- ;;(if (and (= char ?$(7"A(B)
+ ;; Because in Unicode, འ may follow directly a consonant without
+ ;; any intervening vowel, as in མཁ����འ་=མ ཁ འ not མ ཁ ���� འ
+ ;;(if (and (= char ?འ)
;; (aref (char-category-set (car last)) ?0))
- ;; (setq char ?$(7"R(B)) ;; modified for new font by Tomabechi 1999/12/10
+ ;; (setq char ?ཱ)) ;; modified for new font by Tomabechi 1999/12/10
;; Composite vowel signs are decomposed before being added
;; Added by Tomabechi 2000/06/08
- (if (memq char '(?$(7"T(B ?$(7"V(B ?$(7"W(B ?$(7"X(B ?$(7"Y(B ?$(7"Z(B ?$(7"b(B))
+ (if (memq char '(?ཱི ?ཱུ ?ྲྀ ?ཷ ?ླྀ ?ཹ ?ཱྀ))
(setq comp-vowel
(copy-sequence
(cddr (assoc (char-to-string char)
@@ -184,22 +184,22 @@ The returned string has no composition information."
;; Compose lower vowel sign vertically under.
((aref (char-category-set char) ?3)
- (if (or (eq char ?$(7"Q(B) ;; `$(7"Q(B' and `$,1FP(B' should not visible when composed.
+ (if (or (eq char ?����) ;; `����' and `཰' should not visible when composed.
(eq char #xF70))
(setq rule nil)
(setq rule stack-under)))
;; Transform ra-mgo (superscribed r) if followed by a subjoined
;; consonant other than w, ', y, r.
- ((and (= (car last) ?$(7"C(B)
- (not (memq char '(?$(7#>(B ?$(7"R(B ?$(7#B(B ?$(7#C(B))))
- (setcar last ?$(7!"(B) ;; modified for newfont by Tomabechi 1999/12/10
+ ((and (= (car last) ?ར)
+ (not (memq char '(?ྭ ?ཱ ?ྱ ?ྲ))))
+ (setcar last ?����) ;; modified for newfont by Tomabechi 1999/12/10
(setq rule stack-under))
;; Transform initial base consonant if followed by a subjoined
;; consonant but 'a.
(t
(let ((laststr (char-to-string (car last))))
- (if (and (/= char ?$(7"R(B) ;; modified for new font by Tomabechi
- (string-match "[$(7"!(B-$(7"="?"@"D(B-$(7"J"K(B]" laststr))
+ (if (and (/= char ?ཱ) ;; modified for new font by Tomabechi
+ (string-match "[ཀ-ཛྷཞཟལ-ཀྵཪ]" laststr))
(setcar last (string-to-char
(cdr (assoc (char-to-string (car last))
tibetan-base-to-subjoined-alist)))))
@@ -216,7 +216,7 @@ The returned string has no composition information."
(defun tibetan-compose-string (str)
"Compose Tibetan string STR."
(let ((idx 0))
- ;; `$(7"A(B' is included in the pattern for subjoined consonants
+ ;; `འ' is included in the pattern for subjoined consonants
;; because we treat it specially in tibetan-add-components.
;; (This feature is removed by Tomabechi 2000/06/08)
(while (setq idx (string-match tibetan-composable-pattern str idx))
@@ -247,7 +247,7 @@ The returned string has no composition information."
(save-restriction
(narrow-to-region beg end)
(goto-char (point-min))
- ;; `$(7"A(B' is included in the pattern for subjoined consonants
+ ;; `འ' is included in the pattern for subjoined consonants
;; because we treat it specially in tibetan-add-components.
;; (This feature is removed by Tomabechi 2000/06/08)
(while (re-search-forward tibetan-composable-pattern nil t)
@@ -366,18 +366,18 @@ See also docstring of the function tibetan-compose-region."
;;;
(defvar tibetan-canonicalize-for-unicode-alist
- '(("$(7"Q(B" . "") ;; remove vowel a
- ("$(7"T(B" . "$(7"R"S(B") ;; decompose vowels whose use is ``discouraged'' in Unicode 3.0
- ("$(7"V(B" . "$(7"R"U(B")
- ("$(7"W(B" . "$(7#C"a(B")
- ("$(7"X(B" . "$(7#C"R"a(B")
- ("$(7"Y(B" . "$(7#D"a(B")
- ("$(7"Z(B" . "$(7#D"R"a(B")
- ("$(7"b(B" . "$(7"R"a(B"))
+ '(("����" . "") ;; remove vowel a
+ ("ཱི" . "ཱི") ;; decompose vowels whose use is ``discouraged'' in Unicode 3.0
+ ("ཱུ" . "ཱུ")
+ ("ྲྀ" . "ྲྀ")
+ ("ཷ" . "ྲཱྀ")
+ ("ླྀ" . "ླྀ")
+ ("ཹ" . "ླཱྀ")
+ ("ཱྀ" . "ཱྀ"))
"Rules for canonicalizing Tibetan vowels for Unicode.")
(defvar tibetan-canonicalize-for-unicode-regexp
- "[$(7"Q"T"V"W"X"Y"Z"b(B]"
+ "[����ཱཱིུྲྀཷླྀཹཱྀ]"
"Regexp for Tibetan vowels to be canonicalized in Unicode.")
(defun tibetan-canonicalize-for-unicode-region (from to)
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index e80ded9c98..f85284702a 100644
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -1,4 +1,4 @@
-;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*-
+;;; tibetan.el --- support for Tibetan language -*- coding: utf-8-emacs; -*-
;; Copyright (C) 1997, 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -43,45 +43,45 @@
;;; I hope I can add missing characters later.
;;;
;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
-;;;2120 // $(7!!(B $(7!"(B $(7!#(B $(7!$(B $(7!%(B $(7!&(B $(7!'(B $(7!((B $(7!)(B $(7!*(B $(7!+(B $(7!,(B $(7!-(B $(7!.(B $(7!/(B ; obsolete glyphs (2123-5)
-;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuation,
-;;;2140 $(7!@(B $(7!A(B $(7!B(B $(7!C(B $(7!D(B $(7!E(B $(7!F(B $(7!G(B $(7!H(B $(7!I(B $(7!J(B $(7!K(B $(7!L(B $(7!M(B $(7!N(B $(7!O(B ; Digits and
-;;;2150 $(7!P(B $(7!Q(B $(7!R(B $(7!S(B $(7!T(B $(7!U(B $(7!V(B $(7!W(B $(7!X(B $(7!Y(B $(7!Z(B $(7![(B $(7!\(B $(7!](B $(7!^(B $(7!_(B ; Special signs.
-;;;2160 $(7!`(B $(7!a(B $(7!b(B $(7!c(B $(7!d(B $(7!e(B $(7!f(B $(7!g(B $(7!h(B $(7!i(B $(7!j(B $(7!k(B $(7!l(B $(7!m(B $(7!n(B $(7!o(B ;
-;;;2170 $(7!p(B $(7!q(B $(7!r(B $(7!s(B $(7!t(B $(7!u(B $(7!v(B $(7!w(B $(7!x(B $(7!y(B $(7!z(B $(7!{(B $(7!|(B $(7!}(B $(7!~(B // ;
+;;;2120 // ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ; obsolete glyphs (2123-5)
+;;;2130 ༀ ༁ ༂ ༃ ༄ ༅ ༆ ༇ ༈ ༉ ༊ ་ ༌ ། ༎ ༏ ; Punctuation,
+;;;2140 ༐ ༑ ༒ ༓ ༔ ༕ ༖ ༗ ༘ ༙ ༚ ༛ ༜ ༝ ༞ ༟ ; Digits and
+;;;2150 ༠ ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ ༪ ༫ ༬ ༭ ༮ ༯ ; Special signs.
+;;;2160 ༰ ༱ ༲ ༳ ༴ ༵ ༶ ༷ ༸ ༹ ༺ ༻ ༼ ༽ ༾ ༿ ;
+;;;2170 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� // ;
;;;
;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
-;;;2220 // $(7"!(B $(7""(B $(7"#(B $(7"$(B $(7"%(B $(7"&(B $(7"'(B $(7"((B $(7")(B $(7"*(B $(7"+(B $(7",(B $(7"-(B $(7".(B $(7"/(B ; Base consonants
-;;;2230 $(7"0(B $(7"1(B $(7"2(B $(7"3(B $(7"4(B $(7"5(B $(7"6(B $(7"7(B $(7"8(B $(7"9(B $(7":(B $(7";(B $(7"<(B $(7"=(B $(7">(B $(7"?(B ; and
-;;;2240 $(7"@(B $(7"A(B $(7"B(B $(7"C(B $(7"D(B $(7"E(B $(7"F(B $(7"G(B $(7"H(B $(7"I(B $(7"J(B $(7"K(B $(7"L(B $(7"M(B $(7"N(B $(7"O(B ; Vowel signs.
-;;;2250 $(7"P(B $(7"Q(B $(7"R(B $(7"S(B $(7"T(B $(7"U(B $(7"V(B $(7"W(B $(7"X(B $(7"Y(B $(7"Z(B $(7"[(B $(7"\(B $(7"](B $(7"^(B $(7"_(B ; (\x2251 = vowel a)
-;;;2260 $(7"`(B $(7"a(B $(7"b(B $(7"c(B $(7"d(B $(7"e(B $(7"f(B $(7"g(B $(7"h(B $(7"i(B $(7"j(B $(7"k(B $(7"l(B $(7"m(B $(7"n(B $(7"o(B ; Long vowels and
-;;;2270 $(7"p(B $(7"q(B $(7"r(B $(7"s(B $(7"t(B $(7"u(B $(7"v(B $(7"w(B $(7"x(B $(7"y(B $(7"z(B $(7"{(B $(7"|(B $(7"}(B $(7"~(B // ; vocalic r, l ARE
+;;;2220 // ཀ ཁ ག གྷ ང ཅ ཆ ཇ ���� ཉ ཊ ཋ ཌ ཌྷ ཎ ; Base consonants
+;;;2230 ཏ ཐ ད དྷ ན པ ཕ བ བྷ མ ཙ ཚ ཛ ཛྷ ཝ ཞ ; and
+;;;2240 ཟ འ ཡ ར ལ ཤ ཥ ས ཧ ཨ ཀྵ ཪ ���� ���� ���� ���� ; Vowel signs.
+;;;2250 ���� ���� ཱ ི ཱི ུ ཱུ ྲྀ ཷ ླྀ ཹ ེ ཻ ོ ཽ ཾ ; (\x2251 = vowel a)
+;;;2260 ཿ ྀ ཱྀ ྂ ྃ ྄ ྅ ྆ ྇ ྈ ྉ ྊ ྋ ���� ���� ���� ; Long vowels and
+;;;2270 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� // ; vocalic r, l ARE
;;; ; atomically
;;; ; encoded.
;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
-;;;2320 // $(7#!(B $(7#"(B $(7##(B $(7#$(B $(7#%(B $(7#&(B $(7#'(B $(7#((B $(7#)(B $(7#*(B $(7#+(B $(7#,(B $(7#-(B $(7#.(B $(7#/(B ; Subjoined consonants
-;;;2330 $(7#0(B $(7#1(B $(7#2(B $(7#3(B $(7#4(B $(7#5(B $(7#6(B $(7#7(B $(7#8(B $(7#9(B $(7#:(B $(7#;(B $(7#<(B $(7#=(B $(7#>(B $(7#?(B ;
-;;;2340 $(7#@(B $(7#A(B $(7#B(B $(7#C(B $(7#D(B $(7#E(B $(7#F(B $(7#G(B $(7#H(B $(7#I(B $(7#J(B $(7#K(B $(7#L(B $(7#M(B $(7#N(B $(7#O(B ;
-;;;2350 $(7#P(B $(7#Q(B $(7#R(B $(7#S(B $(7#T(B $(7#U(B $(7#V(B $(7#W(B $(7#X(B $(7#Y(B $(7#Z(B $(7#[(B $(7#\(B $(7#](B $(7#^(B $(7#_(B ; Hereafter, the chars
-;;;2360 $(7#`(B $(7#a(B $(7#b(B $(7#c(B $(7#d(B $(7#e(B $(7#f(B $(7#g(B $(7#h(B $(7#i(B $(7#j(B $(7#k(B $(7#l(B $(7#m(B $(7#n(B $(7#o(B ; are not specified
-;;;2370 $(7#p(B $(7#q(B $(7#r(B $(7#s(B $(7#t(B $(7#u(B $(7#v(B $(7#w(B $(7#x(B $(7#y(B $(7#z(B $(7#{(B $(7#|(B $(7#}(B $(7#~(B // ; in Unicode.
+;;;2320 // ྐ ྑ ྒ ྒྷ ྔ ྕ ྖ ྗ ���� ྙ ྚ ྛ ྜ ྜྷ ྞ ; Subjoined consonants
+;;;2330 ྟ ྠ ྡ ྡྷ ྣ ྤ ྥ ྦ ྦྷ ྨ ྩ ྪ ྫ ྫྷ ྭ ྮ ;
+;;;2340 ྯ ྰ ྱ ྲ ླ ྴ ྵ ྶ ྷ ྸ ྐྵ ྺ ྻ ྼ ���� ྾ ;
+;;;2350 ྿ ࿀ ࿁ ࿂ ࿃ ࿄ ࿅ ࿆ ࿇ ࿈ ࿉ ࿊ ࿋ ࿌ ���� ���� ; Hereafter, the chars
+;;;2360 ࿏ ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ; are not specified
+;;;2370 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� // ; in Unicode.
;;;
;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F
-;;;2420 // $(7$!(B $(7$"(B $(7$#(B $(7$$(B $(7$%(B $(7$&(B $(7$'(B $(7$((B $(7$)(B $(7$*(B $(7$+(B $(7$,(B $(7$-(B $(7$.(B $(7$/(B ; Precomposed
-;;;2430 $(7$0(B $(7$1(B $(7$2(B $(7$3(B $(7$4(B $(7$5(B $(7$6(B $(7$7(B $(7$8(B $(7$9(B $(7$:(B $(7$;(B $(7$<(B $(7$=(B $(7$>(B $(7$?(B ; consonants for
-;;;2440 $(7$@(B $(7$A(B $(7$B(B $(7$C(B $(7$D(B $(7$E(B $(7$F(B $(7$G(B $(7$H(B $(7$I(B $(7$J(B $(7$K(B $(7$L(B $(7$M(B $(7$N(B $(7$O(B ; ordinary Tibetan.
-;;;2450 $(7$P(B $(7$Q(B $(7$R(B $(7$S(B $(7$T(B $(7$U(B $(7$V(B $(7$W(B $(7$X(B $(7$Y(B $(7$Z(B $(7$[(B $(7$\(B $(7$](B $(7$^(B $(7$_(B ; They are decomposed
-;;;2460 $(7$`(B $(7$a(B $(7$b(B $(7$c(B $(7$d(B $(7$e(B $(7$f(B $(7$g(B $(7$h(B $(7$i(B $(7$j(B $(7$k(B $(7$l(B $(7$m(B $(7$n(B $(7$o(B ; into base and
-;;;2470 $(7$p(B $(7$q(B $(7$r(B $(7$s(B $(7$t(B $(7$u(B $(7$v(B $(7$w(B $(7$x(B $(7$y(B $(7$z(B $(7${(B $(7$|(B $(7$}(B $(7$~(B // ; subjoined consonants
+;;;2420 // ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ; Precomposed
+;;;2430 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ; consonants for
+;;;2440 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ; ordinary Tibetan.
+;;;2450 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ; They are decomposed
+;;;2460 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ; into base and
+;;;2470 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� // ; subjoined consonants
;;; ; when written on a
;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ; file in Tibetan
-;;;2520 // $(7%!(B $(7%"(B $(7%#(B $(7%$(B $(7%%(B $(7%&(B $(7%'(B $(7%((B $(7%)(B $(7%*(B $(7%+(B $(7%,(B $(7%-(B $(7%.(B $(7%/(B ; coding system.
-;;;2530 $(7%0(B $(7%1(B $(7%2(B $(7%3(B $(7%4(B $(7%5(B $(7%6(B $(7%7(B $(7%8(B $(7%9(B $(7%:(B $(7%;(B $(7%<(B $(7%=(B $(7%>(B $(7%?(B ;
-;;;2540 $(7%@(B $(7%A(B $(7%B(B $(7%C(B $(7%D(B $(7%E(B $(7%F(B $(7%G(B $(7%H(B $(7%I(B $(7%J(B $(7%K(B $(7%L(B $(7%M(B $(7%N(B $(7%O(B ;
-;;;2550 $(7%P(B $(7%Q(B $(7%R(B $(7%S(B $(7%T(B $(7%U(B $(7%V(B $(7%W(B $(7%X(B $(7%Y(B $(7%Z(B $(7%[(B $(7%\(B $(7%](B $(7%^(B $(7%_(B ;
-;;;2560 $(7%`(B $(7%a(B $(7%b(B $(7%c(B $(7%d(B $(7%e(B $(7%f(B $(7%g(B $(7%h(B $(7%i(B $(7%j(B $(7%k(B $(7%l(B $(7%m(B $(7%n(B $(7%o(B ;
-;;;2570 $(7%p(B $(7%q(B $(7%r(B $(7%s(B $(7%t(B $(7%u(B $(7%v(B $(7%w(B $(7%x(B $(7%y(B $(7%z(B $(7%{(B $(7%|(B $(7%}(B $(7%~(B // ;
+;;;2520 // ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ; coding system.
+;;;2530 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ;
+;;;2540 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ;
+;;;2550 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ;
+;;;2560 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ;
+;;;2570 ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� // ;
;;;
@@ -101,18 +101,18 @@
(input-method . "tibetan-wylie")
(features tibet-util)
(documentation . t)
- (sample-text . "Tibetan ($(7"7"]"2!;"G#!"Q"2!;(B) $(7!4!5!5!>"7"!#C"Q!;"E"S"G!;"7"2"[!;"D"["#"G!>"I"]"_!;"9"Q!;"/"S!;"5"Q"2#9"[!;"H"A"U"c!>(B")))
+ (sample-text . "Tibetan (བོད་སྐ����ད་) ༄༅༅༎བཀྲ����་ཤིས་བདེ་ལེགས༎ཨོཾ་མ����་ཎི་པ����དྨེ་ཧའུྂ༎")))
-;; `$(7"A(B' is included in the pattern for subjoined consonants because we
+;; `འ' is included in the pattern for subjoined consonants because we
;; treat it specially in tibetan-add-components.
;; modified by Tomabechi 1999/12/10
;; modified by Tomabechi 2000/06/08
;; To allow infinite addition of vowels/modifiers
;; as specified in Unicode v.3
-;; $(7"A(B is removed from the class of subjoined. Tomabechi 2000/06/08
+;; འ is removed from the class of subjoined. Tomabechi 2000/06/08
;; (for Unicode support)
(defconst tibetan-composable-pattern
- "[$(7"!(B-$(7"J"K(B][$(7#!(B-$(7#J#K#L#M(B]*[$,1FP$(7"Q"R"S(B-$(7"^"a"b"e(B]*[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*"
+ "[ཀ-ཀྵཪ][ྐ-ྐྵྺྻྼ]*[཰����ཱི-྄ཱཽྀྀ]*[ཾྂྃ྆-ྋ༙༵༷]*"
"Regexp matching a composable sequence of Tibetan characters.")
;;;
@@ -123,50 +123,50 @@
;;; alists for tibetan char <-> transcription conversion
;;; longer transcription should come first
(defconst tibetan-consonant-transcription-alist
- '(("tsh" . "$(7";(B")
- ("dzh" . "$(7"=(B")
- ("kSH" . "$(7"J(B")
- ("kh" . "$(7""(B")
- ("gh" . "$(7"$(B")
- ("ng" . "$(7"%(B")
- ("ch" . "$(7"'(B")
- ("ny" . "$(7"*(B")
- ("TH" . "$(7",(B")
- ("DH" . "$(7".(B")
- ("th" . "$(7"1(B")
- ("dh" . "$(7"3(B")
- ("ph" . "$(7"6(B")
- ("bh" . "$(7"8(B")
- ("ts" . "$(7":(B")
- ("dz" . "$(7"<(B")
- ("zh" . "$(7"?(B")
- ("sh" . "$(7"E(B")
- ("SH" . "$(7"F(B")
- ("k" . "$(7"!(B")
- ("g" . "$(7"#(B")
- ("c" . "$(7"&(B")
- ("j" . "$(7"((B")
- ("T" . "$(7"+(B")
- ("D" . "$(7"-(B")
- ("N" . "$(7"/(B")
- ("t" . "$(7"0(B")
- ("d" . "$(7"2(B")
- ("n" . "$(7"4(B")
- ("p" . "$(7"5(B")
- ("b" . "$(7"7(B")
- ("m" . "$(7"9(B")
- ("w" . "$(7">(B")
- ("z" . "$(7"@(B")
- ("'" . "$(7"A(B")
- ("y" . "$(7"B(B")
- ("r" . "$(7"C(B")
- ("l" . "$(7"D(B")
- ("s" . "$(7"G(B")
- ("h" . "$(7"H(B")
- ("H" . "$(7"H(B")
- ("A" . "$(7"I(B")
+ '(("tsh" . "ཚ")
+ ("dzh" . "ཛྷ")
+ ("kSH" . "ཀྵ")
+ ("kh" . "ཁ")
+ ("gh" . "གྷ")
+ ("ng" . "ང")
+ ("ch" . "ཆ")
+ ("ny" . "ཉ")
+ ("TH" . "ཋ")
+ ("DH" . "ཌྷ")
+ ("th" . "ཐ")
+ ("dh" . "དྷ")
+ ("ph" . "ཕ")
+ ("bh" . "བྷ")
+ ("ts" . "ཙ")
+ ("dz" . "ཛ")
+ ("zh" . "ཞ")
+ ("sh" . "ཤ")
+ ("SH" . "ཥ")
+ ("k" . "ཀ")
+ ("g" . "ག")
+ ("c" . "ཅ")
+ ("j" . "ཇ")
+ ("T" . "ཊ")
+ ("D" . "ཌ")
+ ("N" . "ཎ")
+ ("t" . "ཏ")
+ ("d" . "ད")
+ ("n" . "ན")
+ ("p" . "པ")
+ ("b" . "བ")
+ ("m" . "མ")
+ ("w" . "ཝ")
+ ("z" . "ཟ")
+ ("'" . "འ")
+ ("y" . "ཡ")
+ ("r" . "ར")
+ ("l" . "ལ")
+ ("s" . "ས")
+ ("h" . "ཧ")
+ ("H" . "ཧ")
+ ("A" . "ཨ")
;; Added by Tomabechi 1999/12/10
- ("R" . "$(7"K(B") ;; fixed form RA
+ ("R" . "ཪ") ;; fixed form RA
))
@@ -174,203 +174,203 @@
'(
;; Composite Vowels
;; Added by Tomabechi 2000/06/08
- ("frr" . "$(7"X(B")
- ("fll" . "$(7"Z(B")
- ("fa" . "$(7"R(B")
- ("fi" . "$(7"T(B")
- ("fu" . "$(7"V(B")
- ("fr" . "$(7"W(B")
- ("fl" . "$(7"Y(B")
- ("fI" . "$(7"b(B")
+ ("frr" . "ཷ")
+ ("fll" . "ཹ")
+ ("fa" . "ཱ")
+ ("fi" . "ཱི")
+ ("fu" . "ཱུ")
+ ("fr" . "ྲྀ")
+ ("fl" . "ླྀ")
+ ("fI" . "ཱྀ")
;; Normal Vowels
- ("ai" . "$(7"\(B")
- ("au" . "$(7"^(B")
- ("ee" . "$(7"\(B")
- ("oo" . "$(7"^(B")
- ("a" . "$(7"Q(B") ; invisible vowel sign (\x2251)
- ("i" . "$(7"S(B")
- ("u" . "$(7"U(B")
- ("e" . "$(7"[(B")
- ("o" . "$(7"](B")
- ("E" . "$(7"\(B")
- ("O" . "$(7"^(B")
- ("I" . "$(7"a(B")
- ("," . "$(7"e(B") ; idem.
+ ("ai" . "ཻ")
+ ("au" . "ཽ")
+ ("ee" . "ཻ")
+ ("oo" . "ཽ")
+ ("a" . "����") ; invisible vowel sign (\x2251)
+ ("i" . "ི")
+ ("u" . "ུ")
+ ("e" . "ེ")
+ ("o" . "ོ")
+ ("E" . "ཻ")
+ ("O" . "ཽ")
+ ("I" . "ྀ")
+ ("," . "྄") ; idem.
))
(defconst tibetan-modifier-transcription-alist
- '(("M" . "$(7"_(B")
- ("~" . "$(7"c(B")
- ("`" . "$(7"d(B")
- ("x" . "$(7"i(B")
- ("X" . "$(7"j(B")
- ("v" . "$(7"g(B")
- ("V" . "$(7"h(B")
- ("q" . "$(7"k(B")
- ("Q" . "$(7"l(B")
- ("_/" . "$(7!I(B")
- ("_o" . "$(7!g(B")
- ("_O" . "$(7!e(B")))
+ '(("M" . "ཾ")
+ ("~" . "ྂ")
+ ("`" . "ྃ")
+ ("x" . "ྈ")
+ ("X" . "ྉ")
+ ("v" . "྆")
+ ("V" . "྇")
+ ("q" . "ྊ")
+ ("Q" . "ྋ")
+ ("_/" . "༙")
+ ("_o" . "༷")
+ ("_O" . "༵")))
(defconst tibetan-precomposed-transcription-alist
- '(("phyw" . "$(7$G(B")
- ("tshw" . "$(7$)(B")
- ("rtsw" . "$(7%.(B")
- ("khw" . "$(7$"(B")
- ("nyw" . "$(7$%(B")
- ("tsw" . "$(7$((B")
- ("zhw" . "$(7$*(B")
- ("shw" . "$(7$.(B")
- ("khy" . "$(7$A(B")
- ("phy" . "$(7$D(B")
- ("khr" . "$(7$Q(B")
- ("thr" . "$(7$T(B")
- ("phr" . "$(7$W(B")
- ("shr" . "$(7$Z(B")
- ("dzr" . "$(7$^(B")
- ("grw" . "$(7$_(B")
- ("rng" . "$(7%#(B")
- ("rny" . "$(7%%(B")
- ("rts" . "$(7%+(B")
- ("rdz" . "$(7%,(B")
- ("rgw" . "$(7%-(B")
- ("rky" . "$(7%0(B")
- ("rgy" . "$(7%1(B")
- ("rmy" . "$(7%2(B")
- ("lng" . "$(7%B(B")
- ("sng" . "$(7%R(B")
- ("sny" . "$(7%S(B")
- ("sts" . "$(7%Z(B")
- ("sky" . "$(7%`(B")
- ("sgy" . "$(7%a(B")
- ("spy" . "$(7%b(B")
- ("sby" . "$(7%c(B")
- ("smy" . "$(7%d(B")
- ("skr" . "$(7%p(B")
- ("sgr" . "$(7%q(B")
- ("snr" . "$(7%r(B")
- ("spr" . "$(7%s(B")
- ("sbr" . "$(7%t(B")
- ("smr" . "$(7%u(B")
- ("kw" . "$(7$!(B")
- ("gw" . "$(7$#(B")
- ("cw" . "$(7$$(B")
- ("tw" . "$(7$&(B")
- ("dw" . "$(7$'(B")
- ("zw" . "$(7$+(B")
- ("rw" . "$(7$,(B")
- ("lw" . "$(7$-(B")
- ("sw" . "$(7$/(B")
- ("hw" . "$(7$0(B")
- ("ky" . "$(7$@(B")
- ("gy" . "$(7$B(B")
- ("py" . "$(7$C(B")
- ("by" . "$(7$E(B")
- ("my" . "$(7$F(B")
- ("kr" . "$(7$P(B")
- ("gr" . "$(7$R(B")
- ("tr" . "$(7$S(B")
- ("dr" . "$(7$U(B")
- ("pr" . "$(7$V(B")
- ("brk" . "$(7"7%!(B")
- ("brg" . "$(7"7%"(B")
- ("brng" . "$(7"7%#(B")
- ("brj" . "$(7"7%$(B")
- ("brny" . "$(7"7%%(B")
- ("brt" . "$(7"7%&(B")
- ("brd" . "$(7"7%'(B")
- ("brn" . "$(7"7%((B")
- ("brts" . "$(7"7%+(B")
- ("brdz" . "$(7"7%,(B")
- ("brl" . "$(7"7$d(B")
- ("br" . "$(7$X(B")
- ("mr" . "$(7$Y(B")
- ("sr" . "$(7$[(B")
- ("hr" . "$(7$\(B")
- ("jr" . "$(7$](B")
- ("kl" . "$(7$`(B")
- ("gl" . "$(7$a(B")
- ("blt" . "$(7"7%E(B")
- ("bld" . "$(7"7%F(B")
- ("bl" . "$(7$b(B")
- ("zl" . "$(7$c(B")
- ("rl" . "$(7$d(B")
- ("sl" . "$(7$e(B")
- ("rk" . "$(7%!(B")
- ("rg" . "$(7%"(B")
- ("rj" . "$(7%$(B")
- ("rt" . "$(7%&(B")
- ("rd" . "$(7%'(B")
- ("rn" . "$(7%((B")
- ("rb" . "$(7%)(B")
- ("rm" . "$(7%*(B")
- ("lk" . "$(7%@(B")
- ("lg" . "$(7%A(B")
- ("lc" . "$(7%C(B")
- ("lj" . "$(7%D(B")
- ("lt" . "$(7%E(B")
- ("ld" . "$(7%F(B")
- ("ln" . "$(7!!(B") ; dummy \x2121
- ("lp" . "$(7%G(B")
- ("lb" . "$(7%H(B")
- ("lh" . "$(7%I(B")
- ("sk" . "$(7%P(B")
- ("sg" . "$(7%Q(B")
- ("st" . "$(7%T(B")
- ("sd" . "$(7%U(B")
- ("sn" . "$(7%V(B")
- ("sp" . "$(7%W(B")
- ("sb" . "$(7%X(B")
- ("sm" . "$(7%Y(B"))
+ '(("phyw" . "����")
+ ("tshw" . "����")
+ ("rtsw" . "����")
+ ("khw" . "����")
+ ("nyw" . "����")
+ ("tsw" . "����")
+ ("zhw" . "����")
+ ("shw" . "����")
+ ("khy" . "����")
+ ("phy" . "����")
+ ("khr" . "����")
+ ("thr" . "����")
+ ("phr" . "����")
+ ("shr" . "����")
+ ("dzr" . "����")
+ ("grw" . "����")
+ ("rng" . "����")
+ ("rny" . "����")
+ ("rts" . "����")
+ ("rdz" . "����")
+ ("rgw" . "����")
+ ("rky" . "����")
+ ("rgy" . "����")
+ ("rmy" . "����")
+ ("lng" . "����")
+ ("sng" . "����")
+ ("sny" . "����")
+ ("sts" . "����")
+ ("sky" . "����")
+ ("sgy" . "����")
+ ("spy" . "����")
+ ("sby" . "����")
+ ("smy" . "����")
+ ("skr" . "����")
+ ("sgr" . "����")
+ ("snr" . "����")
+ ("spr" . "����")
+ ("sbr" . "����")
+ ("smr" . "����")
+ ("kw" . "����")
+ ("gw" . "����")
+ ("cw" . "����")
+ ("tw" . "����")
+ ("dw" . "����")
+ ("zw" . "����")
+ ("rw" . "����")
+ ("lw" . "����")
+ ("sw" . "����")
+ ("hw" . "����")
+ ("ky" . "����")
+ ("gy" . "����")
+ ("py" . "����")
+ ("by" . "����")
+ ("my" . "����")
+ ("kr" . "����")
+ ("gr" . "����")
+ ("tr" . "����")
+ ("dr" . "����")
+ ("pr" . "����")
+ ("brk" . "བ����")
+ ("brg" . "བ����")
+ ("brng" . "བ����")
+ ("brj" . "བ����")
+ ("brny" . "བ����")
+ ("brt" . "བ����")
+ ("brd" . "བ����")
+ ("brn" . "བ����")
+ ("brts" . "བ����")
+ ("brdz" . "བ����")
+ ("brl" . "བ����")
+ ("br" . "����")
+ ("mr" . "����")
+ ("sr" . "����")
+ ("hr" . "����")
+ ("jr" . "����")
+ ("kl" . "����")
+ ("gl" . "����")
+ ("blt" . "བ����")
+ ("bld" . "བ����")
+ ("bl" . "����")
+ ("zl" . "����")
+ ("rl" . "����")
+ ("sl" . "����")
+ ("rk" . "����")
+ ("rg" . "����")
+ ("rj" . "����")
+ ("rt" . "����")
+ ("rd" . "����")
+ ("rn" . "����")
+ ("rb" . "����")
+ ("rm" . "����")
+ ("lk" . "����")
+ ("lg" . "����")
+ ("lc" . "����")
+ ("lj" . "����")
+ ("lt" . "����")
+ ("ld" . "����")
+ ("ln" . "����") ; dummy \x2121
+ ("lp" . "����")
+ ("lb" . "����")
+ ("lh" . "����")
+ ("sk" . "����")
+ ("sg" . "����")
+ ("st" . "����")
+ ("sd" . "����")
+ ("sn" . "����")
+ ("sp" . "����")
+ ("sb" . "����")
+ ("sm" . "����"))
)
(defconst tibetan-subjoined-transcription-alist
- (sort '(("+k" . "$(7#!(B")
- ("+kh" . "$(7#"(B")
- ("+g" . "$(7##(B")
- ("+gh" . "$(7#$(B")
- ("+ng" . "$(7#%(B")
- ("+c" . "$(7#&(B")
- ("+ch" . "$(7#'(B")
- ("+j" . "$(7#((B")
- ("+ny" . "$(7#*(B")
- ("+T" . "$(7#+(B")
- ("+TH" . "$(7#,(B")
- ("+D" . "$(7#-(B")
- ("+DH" . "$(7#.(B")
- ("+N" . "$(7#/(B")
- ("+t" . "$(7#0(B")
- ("+th" . "$(7#1(B")
- ("+d" . "$(7#2(B")
- ("+dh" . "$(7#3(B")
- ("+n" . "$(7#4(B")
- ("+p" . "$(7#5(B")
- ("+ph" . "$(7#6(B")
- ("+b" . "$(7#7(B")
- ("+bh" . "$(7#8(B")
- ("+m" . "$(7#9(B")
- ("+ts" . "$(7#:(B")
- ("+tsh" . "$(7#;(B")
- ("+dz" . "$(7#<(B")
- ("+dzh" . "$(7#=(B")
- ("+w" . "$(7#>(B")
- ("+zh" . "$(7#?(B")
- ("+z" . "$(7#@(B")
- ("+'" . "$(7#A(B")
- ("+y" . "$(7#B(B")
- ("+r" . "$(7#C(B")
- ("+l" . "$(7#D(B")
- ("+sh" . "$(7#E(B")
- ("+SH" . "$(7#F(B")
- ("+s" . "$(7#G(B")
- ("+h" . "$(7#H(B")
- ("+A" . "$(7#I(B")
- ("+kSH" . "$(7#J(B")
+ (sort '(("+k" . "ྐ")
+ ("+kh" . "ྑ")
+ ("+g" . "ྒ")
+ ("+gh" . "ྒྷ")
+ ("+ng" . "ྔ")
+ ("+c" . "ྕ")
+ ("+ch" . "ྖ")
+ ("+j" . "ྗ")
+ ("+ny" . "ྙ")
+ ("+T" . "ྚ")
+ ("+TH" . "ྛ")
+ ("+D" . "ྜ")
+ ("+DH" . "ྜྷ")
+ ("+N" . "ྞ")
+ ("+t" . "ྟ")
+ ("+th" . "ྠ")
+ ("+d" . "ྡ")
+ ("+dh" . "ྡྷ")
+ ("+n" . "ྣ")
+ ("+p" . "ྤ")
+ ("+ph" . "ྥ")
+ ("+b" . "ྦ")
+ ("+bh" . "ྦྷ")
+ ("+m" . "ྨ")
+ ("+ts" . "ྩ")
+ ("+tsh" . "ྪ")
+ ("+dz" . "ྫ")
+ ("+dzh" . "ྫྷ")
+ ("+w" . "ྭ")
+ ("+zh" . "ྮ")
+ ("+z" . "ྯ")
+ ("+'" . "ྰ")
+ ("+y" . "ྱ")
+ ("+r" . "ྲ")
+ ("+l" . "ླ")
+ ("+sh" . "ྴ")
+ ("+SH" . "ྵ")
+ ("+s" . "ྶ")
+ ("+h" . "ྷ")
+ ("+A" . "ྸ")
+ ("+kSH" . "ྐྵ")
;; Added by Tomabechi 1999/12/10
- ("+W" . "$(7#K(B") ;; fixed form subscribed WA
- ("+Y" . "$(7#L(B") ;; fixed form subscribed YA
- ("+R" . "$(7#M(B") ;; fixed form subscribed RA
+ ("+W" . "ྺ") ;; fixed form subscribed WA
+ ("+Y" . "ྻ") ;; fixed form subscribed YA
+ ("+R" . "ྼ") ;; fixed form subscribed RA
)
(lambda (x y) (> (length (car x)) (length (car y))))))
@@ -378,70 +378,70 @@
;;; alist for Tibetan base consonant <-> subjoined consonant conversion.
;;;
(defconst tibetan-base-to-subjoined-alist
- '(("$(7"!(B" . "$(7#!(B")
- ("$(7""(B" . "$(7#"(B")
- ("$(7"#(B" . "$(7##(B")
- ("$(7"$(B" . "$(7#$(B")
- ("$(7"%(B" . "$(7#%(B")
- ("$(7"&(B" . "$(7#&(B")
- ("$(7"'(B" . "$(7#'(B")
- ("$(7"((B" . "$(7#((B")
- ("$(7"*(B" . "$(7#*(B")
- ("$(7"+(B" . "$(7#+(B")
- ("$(7",(B" . "$(7#,(B")
- ("$(7"-(B" . "$(7#-(B")
- ("$(7".(B" . "$(7#.(B")
- ("$(7"/(B" . "$(7#/(B")
- ("$(7"0(B" . "$(7#0(B")
- ("$(7"1(B" . "$(7#1(B")
- ("$(7"2(B" . "$(7#2(B")
- ("$(7"3(B" . "$(7#3(B")
- ("$(7"4(B" . "$(7#4(B")
- ("$(7"5(B" . "$(7#5(B")
- ("$(7"6(B" . "$(7#6(B")
- ("$(7"7(B" . "$(7#7(B")
- ("$(7"8(B" . "$(7#8(B")
- ("$(7"9(B" . "$(7#9(B")
- ("$(7":(B" . "$(7#:(B")
- ("$(7";(B" . "$(7#;(B")
- ("$(7"<(B" . "$(7#<(B")
- ("$(7"=(B" . "$(7#=(B")
- ("$(7">(B" . "$(7#>(B")
- ("$(7"?(B" . "$(7#?(B")
- ("$(7"@(B" . "$(7#@(B")
- ("$(7"A(B" . "$(7#A(B")
- ("$(7"B(B" . "$(7#B(B")
- ("$(7"C(B" . "$(7#C(B")
- ("$(7"D(B" . "$(7#D(B")
- ("$(7"E(B" . "$(7#E(B")
- ("$(7"F(B" . "$(7#F(B")
- ("$(7"G(B" . "$(7#G(B")
- ("$(7"H(B" . "$(7#H(B")
- ("$(7"I(B" . "$(7#I(B")
- ("$(7"J(B" . "$(7#J(B")
+ '(("ཀ" . "ྐ")
+ ("ཁ" . "ྑ")
+ ("ག" . "ྒ")
+ ("གྷ" . "ྒྷ")
+ ("ང" . "ྔ")
+ ("ཅ" . "ྕ")
+ ("ཆ" . "ྖ")
+ ("ཇ" . "ྗ")
+ ("ཉ" . "ྙ")
+ ("ཊ" . "ྚ")
+ ("ཋ" . "ྛ")
+ ("ཌ" . "ྜ")
+ ("ཌྷ" . "ྜྷ")
+ ("ཎ" . "ྞ")
+ ("ཏ" . "ྟ")
+ ("ཐ" . "ྠ")
+ ("ད" . "ྡ")
+ ("དྷ" . "ྡྷ")
+ ("ན" . "ྣ")
+ ("པ" . "ྤ")
+ ("ཕ" . "ྥ")
+ ("བ" . "ྦ")
+ ("བྷ" . "ྦྷ")
+ ("མ" . "ྨ")
+ ("ཙ" . "ྩ")
+ ("ཚ" . "ྪ")
+ ("ཛ" . "ྫ")
+ ("ཛྷ" . "ྫྷ")
+ ("ཝ" . "ྭ")
+ ("ཞ" . "ྮ")
+ ("ཟ" . "ྯ")
+ ("འ" . "ྰ")
+ ("ཡ" . "ྱ")
+ ("ར" . "ྲ")
+ ("ལ" . "ླ")
+ ("ཤ" . "ྴ")
+ ("ཥ" . "ྵ")
+ ("ས" . "ྶ")
+ ("ཧ" . "ྷ")
+ ("ཨ" . "ྸ")
+ ("ཀྵ" . "ྐྵ")
;; Added by Tomabechi 1999/12/10
- ("$(7"K(B" . "$(7#M(B") ;; Fixed form RA (224B->234D)
+ ("ཪ" . "ྼ") ;; Fixed form RA (224B->234D)
))
;;; alist for Tibetan composite vowels (long i, vocalic r, etc.)
;;; New variable. created by Tomabechi 2000/06/08
(defconst tibetan-composite-vowel-alist
'(;; LONG A
- ;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B))
+ ;; ("ཱ" . ((bc . tc) ?ཱ))
;; LONG I
- ("$(7"T(B" . (?$(7"R(B (tc . bc) ?$(7"S(B))
+ ("ཱི" . (?ཱ (tc . bc) ?ི))
;; LONG U
- ("$(7"V(B" . (?$(7"R(B (bc . tc) ?$(7"U(B))
+ ("ཱུ" . (?ཱ (bc . tc) ?ུ))
;; VOCALIC R
- ("$(7"W(B" . (?$(7#C(B (tc . bc) ?$(7"a(B))
+ ("ྲྀ" . (?ྲ (tc . bc) ?ྀ))
;; LONG VOCALIC R
- ("$(7"X(B" . (?$(7#C(B (bc . tc) ?$(7"R(B (tc . bc) ?$(7"a(B))
+ ("ཷ" . (?ྲ (bc . tc) ?ཱ (tc . bc) ?ྀ))
;; VOCALIC L
- ("$(7"Y(B" . (?$(7#D(B (tc . bc) ?$(7"a(B))
- ;;$(7!;(BLONG VOCALIC L
- ("$(7"Z(B" . (?$(7#D(B (bc . tc) ?$(7"R(B (tc . bc) ?$(7"a(B))
+ ("ླྀ" . (?ླ (tc . bc) ?ྀ))
+ ;;་LONG VOCALIC L
+ ("ཹ" . (?ླ (bc . tc) ?ཱ (tc . bc) ?ྀ))
;; LONG REVERSE I
- ("$(7"b(B" . (?$(7"R(B (tc . bc) ?$(7"a(B))
+ ("ཱྀ" . (?ཱ (tc . bc) ?ྀ))
))
@@ -451,102 +451,102 @@
;;; (includes some punctuation conversion rules)
;;;
(defconst tibetan-precomposition-rule-alist
- `(("$(7"6#B#>(B" . "$(7$G(B")
- ("$(7"##C#>(B" . "$(7$_(B")
- ("$(7";#>(B" . "$(7$)(B")
- ("$(7"C#:#>(B" . "$(7%.(B")
- ("$(7"C###>(B" . "$(7%-(B")
- ("$(7"C#!#B(B" . "$(7%0(B")
- ("$(7"C###B(B" . "$(7%1(B")
- ("$(7"C#9#B(B" . "$(7%2(B")
- ("$(7"G#!#B(B" . "$(7%`(B")
- ("$(7"G###B(B" . "$(7%a(B")
- ("$(7"G#5#B(B" . "$(7%b(B")
- ("$(7"G#7#B(B" . "$(7%c(B")
- ("$(7"G#9#B(B" . "$(7%d(B")
- ("$(7"G#!#C(B" . "$(7%p(B")
- ("$(7"G###C(B" . "$(7%q(B")
- ("$(7"G#4#C(B" . "$(7%r(B")
- ("$(7"G#5#C(B" . "$(7%s(B")
- ("$(7"G#7#C(B" . "$(7%t(B")
- ("$(7"G#9#C(B" . "$(7%u(B")
- ("$(7""#>(B" . "$(7$"(B")
- ("$(7"*#>(B" . "$(7$%(B")
- ("$(7":#>(B" . "$(7$((B")
- ("$(7"?#>(B" . "$(7$*(B")
- ("$(7"E#>(B" . "$(7$.(B")
- ("$(7""#B(B" . "$(7$A(B")
- ("$(7"6#B(B" . "$(7$D(B")
- ("$(7""#C(B" . "$(7$Q(B")
- ("$(7"1#C(B" . "$(7$T(B")
- ("$(7"6#C(B" . "$(7$W(B")
- ("$(7"E#C(B" . "$(7$Z(B")
- ("$(7"<#C(B" . "$(7$^(B")
- ("$(7"C#%(B" . "$(7%#(B")
- ("$(7"C#*(B" . "$(7%%(B")
- ("$(7"C#:(B" . "$(7%+(B")
- ("$(7"C#<(B" . "$(7%,(B")
- ("$(7"D#%(B" . "$(7%B(B")
- ("$(7"G#%(B" . "$(7%R(B")
- ("$(7"G#*(B" . "$(7%S(B")
- ("$(7"G#:(B" . "$(7%Z(B")
- ("$(7"!#>(B" . "$(7$!(B")
- ("$(7"##>(B" . "$(7$#(B")
- ("$(7"&#>(B" . "$(7$$(B")
- ("$(7"0#>(B" . "$(7$&(B")
- ("$(7"2#>(B" . "$(7$'(B")
- ("$(7"@#>(B" . "$(7$+(B")
- ("$(7"C#>(B" . "$(7$,(B")
- ("$(7"D#>(B" . "$(7$-(B")
- ("$(7"G#>(B" . "$(7$/(B")
- ("$(7"H#>(B" . "$(7$0(B")
- ("$(7"!#B(B" . "$(7$@(B")
- ("$(7"##B(B" . "$(7$B(B")
- ("$(7"5#B(B" . "$(7$C(B")
- ("$(7"7#B(B" . "$(7$E(B")
- ("$(7"9#B(B" . "$(7$F(B")
- ("$(7"!#C(B" . "$(7$P(B")
- ("$(7"##C(B" . "$(7$R(B")
- ("$(7"0#C(B" . "$(7$S(B")
- ("$(7"2#C(B" . "$(7$U(B")
- ("$(7"5#C(B" . "$(7$V(B")
- ("$(7"7#C(B" . "$(7$X(B")
- ("$(7"9#C(B" . "$(7$Y(B")
- ("$(7"G#C(B" . "$(7$[(B")
- ("$(7"H#C(B" . "$(7$\(B")
- ("$(7"(#C(B" . "$(7$](B")
- ("$(7"!#D(B" . "$(7$`(B")
- ("$(7"##D(B" . "$(7$a(B")
- ("$(7"7#D(B" . "$(7$b(B")
- ("$(7"@#D(B" . "$(7$c(B")
- ("$(7"C#D(B" . "$(7$d(B")
- ("$(7"G#D(B" . "$(7$e(B")
- ("$(7"C#!(B" . "$(7%!(B")
- ("$(7"C##(B" . "$(7%"(B")
- ("$(7"C#((B" . "$(7%$(B")
- ("$(7"C#0(B" . "$(7%&(B")
- ("$(7"C#2(B" . "$(7%'(B")
- ("$(7"C#4(B" . "$(7%((B")
- ("$(7"C#7(B" . "$(7%)(B")
- ("$(7"C#9(B" . "$(7%*(B")
- ("$(7"D#!(B" . "$(7%@(B")
- ("$(7"D##(B" . "$(7%A(B")
- ("$(7"D#4(B" . "$(7!!(B") ; dummy 0x2121 added 2000/06/08 for transition l -> lng
- ("$(7"D#&(B" . "$(7%C(B")
- ("$(7"D#((B" . "$(7%D(B")
- ("$(7"D#0(B" . "$(7%E(B")
- ("$(7"D#2(B" . "$(7%F(B")
- ("$(7"D#5(B" . "$(7%G(B")
- ("$(7"D#7(B" . "$(7%H(B")
- ("$(7"D#H(B" . "$(7%I(B")
- ("$(7"G#!(B" . "$(7%P(B")
- ("$(7"G##(B" . "$(7%Q(B")
- ("$(7"G#0(B" . "$(7%T(B")
- ("$(7"G#2(B" . "$(7%U(B")
- ("$(7"G#4(B" . "$(7%V(B")
- ("$(7"G#5(B" . "$(7%W(B")
- ("$(7"G#7(B" . "$(7%X(B")
- ("$(7"G#9(B" . "$(7%Y(B")))
+ `(("ཕྱྭ" . "����")
+ ("གྲྭ" . "����")
+ ("ཚྭ" . "����")
+ ("རྩྭ" . "����")
+ ("རྒྭ" . "����")
+ ("རྐྱ" . "����")
+ ("རྒྱ" . "����")
+ ("རྨྱ" . "����")
+ ("སྐྱ" . "����")
+ ("སྒྱ" . "����")
+ ("སྤྱ" . "����")
+ ("སྦྱ" . "����")
+ ("སྨྱ" . "����")
+ ("སྐྲ" . "����")
+ ("སྒྲ" . "����")
+ ("སྣྲ" . "����")
+ ("སྤྲ" . "����")
+ ("སྦྲ" . "����")
+ ("སྨྲ" . "����")
+ ("ཁྭ" . "����")
+ ("ཉྭ" . "����")
+ ("ཙྭ" . "����")
+ ("ཞྭ" . "����")
+ ("ཤྭ" . "����")
+ ("ཁྱ" . "����")
+ ("ཕྱ" . "����")
+ ("ཁྲ" . "����")
+ ("ཐྲ" . "����")
+ ("ཕྲ" . "����")
+ ("ཤྲ" . "����")
+ ("ཛྲ" . "����")
+ ("རྔ" . "����")
+ ("རྙ" . "����")
+ ("རྩ" . "����")
+ ("རྫ" . "����")
+ ("ལྔ" . "����")
+ ("སྔ" . "����")
+ ("སྙ" . "����")
+ ("སྩ" . "����")
+ ("ཀྭ" . "����")
+ ("གྭ" . "����")
+ ("ཅྭ" . "����")
+ ("ཏྭ" . "����")
+ ("དྭ" . "����")
+ ("ཟྭ" . "����")
+ ("རྭ" . "����")
+ ("ལྭ" . "����")
+ ("སྭ" . "����")
+ ("ཧྭ" . "����")
+ ("ཀྱ" . "����")
+ ("གྱ" . "����")
+ ("པྱ" . "����")
+ ("བྱ" . "����")
+ ("མྱ" . "����")
+ ("ཀྲ" . "����")
+ ("གྲ" . "����")
+ ("ཏྲ" . "����")
+ ("དྲ" . "����")
+ ("པྲ" . "����")
+ ("བྲ" . "����")
+ ("མྲ" . "����")
+ ("སྲ" . "����")
+ ("ཧྲ" . "����")
+ ("ཇྲ" . "����")
+ ("ཀླ" . "����")
+ ("གླ" . "����")
+ ("བླ" . "����")
+ ("ཟླ" . "����")
+ ("རླ" . "����")
+ ("སླ" . "����")
+ ("རྐ" . "����")
+ ("རྒ" . "����")
+ ("རྗ" . "����")
+ ("རྟ" . "����")
+ ("རྡ" . "����")
+ ("རྣ" . "����")
+ ("རྦ" . "����")
+ ("རྨ" . "����")
+ ("ལྐ" . "����")
+ ("ལྒ" . "����")
+ ("ལྣ" . "����") ; dummy 0x2121 added 2000/06/08 for transition l -> lng
+ ("ལྕ" . "����")
+ ("ལྗ" . "����")
+ ("ལྟ" . "����")
+ ("ལྡ" . "����")
+ ("ལྤ" . "����")
+ ("ལྦ" . "����")
+ ("ལྷ" . "����")
+ ("སྐ" . "����")
+ ("སྒ" . "����")
+ ("སྟ" . "����")
+ ("སྡ" . "����")
+ ("སྣ" . "����")
+ ("སྤ" . "����")
+ ("སྦ" . "����")
+ ("སྨ" . "����")))
(defconst tibetan-regexp
(let ((l (list tibetan-precomposed-transcription-alist
diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el
index a0487df9ea..a4e7ff564e 100644
--- a/lisp/language/viet-util.el
+++ b/lisp/language/viet-util.el
@@ -1,4 +1,4 @@
-;;; viet-util.el --- utilities for Vietnamese -*- coding: iso-2022-7bit; -*-
+;;; viet-util.el --- utilities for Vietnamese -*- coding: utf-8; -*-
;; Copyright (C) 1998, 2001-2013 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
@@ -52,159 +52,159 @@
;; ------------+----------+--------
;; mark | mnemonic | example
;; ------------+----------+---------
-;; breve | ( | a( -> ,1e(B
-;; circumflex | ^ | a^ -> ,1b(B
-;; horn | + | o+ -> ,1=(B
+;; breve | ( | a( -> ă
+;; circumflex | ^ | a^ -> â
+;; horn | + | o+ -> ơ
;; ------------+----------+---------
-;; acute | ' | a' -> ,1a(B
-;; grave | ` | a` -> ,1`(B
-;; hook above | ? | a? -> ,1d(B
-;; tilde | ~ | a~ -> ,1c(B
-;; dot below | . | a. -> ,1U(B
+;; acute | ' | a' -> á
+;; grave | ` | a` -> à
+;; hook above | ? | a? -> ả
+;; tilde | ~ | a~ -> ã
+;; dot below | . | a. -> ạ
;; ------------+----------+---------
-;; d bar | dd | dd -> ,1p(B
+;; d bar | dd | dd -> đ
;; ------------+----------+---------
(defvar viet-viqr-alist
'(;; lowercase
- (?,1!(B . "a('") ; 161
- (?,1"(B . "a(`") ; 162
- (?,1#(B . "a(.") ; 163
- (?,1$(B . "a^'") ; 164
- (?,1%(B . "a^`") ; 165
- (?,1&(B . "a^?") ; 166
- (?,1'(B . "a^.") ; 167
- (?,1((B . "e~") ; 168
- (?,1)(B . "e.") ; 169
- (?,1*(B . "e^'") ; 170
- (?,1+(B . "e^`") ; 171
- (?,1,(B . "e^?") ; 172
- (?,1-(B . "e^~") ; 173
- (?,1.(B . "e^.") ; 174
- (?,1/(B . "o^'") ; 175
- (?,10(B . "o^`") ; 176
- (?,11(B . "o^?") ; 177
- (?,12(B . "o^~") ; 178
- (?,15(B . "o^.") ; 181
- (?,16(B . "o+`") ; 182
- (?,17(B . "o+?") ; 183
- (?,18(B . "i.") ; 184
- (?,1=(B . "o+") ; 189
- (?,1>(B . "o+'") ; 190
- (?,1F(B . "a(?") ; 198
- (?,1G(B . "a(~") ; 199
- (?,1O(B . "y`") ; 207
- (?,1Q(B . "u+'") ; 209
- (?,1U(B . "a.") ; 213
- (?,1V(B . "y?") ; 214
- (?,1W(B . "u+`") ; 215
- (?,1X(B . "u+?") ; 216
- (?,1[(B . "y~") ; 219
- (?,1\(B . "y.") ; 220
- (?,1^(B . "o+~") ; 222
- (?,1_(B . "u+") ; 223
- (?,1`(B . "a`") ; 224
- (?,1a(B . "a'") ; 225
- (?,1b(B . "a^") ; 226
- (?,1c(B . "a~") ; 227
- (?,1d(B . "a?") ; 228
- (?,1e(B . "a(") ; 229
- (?,1f(B . "u+~") ; 230
- (?,1g(B . "a^~") ; 231
- (?,1h(B . "e`") ; 232
- (?,1i(B . "e'") ; 233
- (?,1j(B . "e^") ; 234
- (?,1k(B . "e?") ; 235
- (?,1l(B . "i`") ; 236
- (?,1m(B . "i'") ; 237
- (?,1n(B . "i~") ; 238
- (?,1o(B . "i?") ; 239
- (?,1p(B . "dd") ; 240
- (?,1q(B . "u+.") ; 241
- (?,1r(B . "o`") ; 242
- (?,1s(B . "o'") ; 243
- (?,1t(B . "o^") ; 244
- (?,1u(B . "o~") ; 245
- (?,1v(B . "o?") ; 246
- (?,1w(B . "o.") ; 247
- (?,1x(B . "u.") ; 248
- (?,1y(B . "u`") ; 249
- (?,1z(B . "u'") ; 250
- (?,1{(B . "u~") ; 251
- (?,1|(B . "u?") ; 252
- (?,1}(B . "y'") ; 253
- (?,1~(B . "o+.") ; 254
+ (?ắ . "a('") ; 161
+ (?ằ . "a(`") ; 162
+ (?ặ . "a(.") ; 163
+ (?ấ . "a^'") ; 164
+ (?ầ . "a^`") ; 165
+ (?ẩ . "a^?") ; 166
+ (?ậ . "a^.") ; 167
+ (?ẽ . "e~") ; 168
+ (?ẹ . "e.") ; 169
+ (?ế . "e^'") ; 170
+ (?ề . "e^`") ; 171
+ (?ể . "e^?") ; 172
+ (?ễ . "e^~") ; 173
+ (?ệ . "e^.") ; 174
+ (?ố . "o^'") ; 175
+ (?ồ . "o^`") ; 176
+ (?ổ . "o^?") ; 177
+ (?ỗ . "o^~") ; 178
+ (?ộ . "o^.") ; 181
+ (?ờ . "o+`") ; 182
+ (?ở . "o+?") ; 183
+ (?ị . "i.") ; 184
+ (?ơ . "o+") ; 189
+ (?ớ . "o+'") ; 190
+ (?ẳ . "a(?") ; 198
+ (?ẵ . "a(~") ; 199
+ (?ỳ . "y`") ; 207
+ (?ứ . "u+'") ; 209
+ (?ạ . "a.") ; 213
+ (?ỷ . "y?") ; 214
+ (?ừ . "u+`") ; 215
+ (?ử . "u+?") ; 216
+ (?ỹ . "y~") ; 219
+ (?ỵ . "y.") ; 220
+ (?ỡ . "o+~") ; 222
+ (?ư . "u+") ; 223
+ (?à . "a`") ; 224
+ (?á . "a'") ; 225
+ (?â . "a^") ; 226
+ (?ã . "a~") ; 227
+ (?ả . "a?") ; 228
+ (?ă . "a(") ; 229
+ (?ữ . "u+~") ; 230
+ (?ẫ . "a^~") ; 231
+ (?è . "e`") ; 232
+ (?é . "e'") ; 233
+ (?ê . "e^") ; 234
+ (?ẻ . "e?") ; 235
+ (?ì . "i`") ; 236
+ (?í . "i'") ; 237
+ (?ĩ . "i~") ; 238
+ (?ỉ . "i?") ; 239
+ (?đ . "dd") ; 240
+ (?ự . "u+.") ; 241
+ (?ò . "o`") ; 242
+ (?ó . "o'") ; 243
+ (?ô . "o^") ; 244
+ (?õ . "o~") ; 245
+ (?ỏ . "o?") ; 246
+ (?ọ . "o.") ; 247
+ (?ụ . "u.") ; 248
+ (?ù . "u`") ; 249
+ (?ú . "u'") ; 250
+ (?ũ . "u~") ; 251
+ (?ủ . "u?") ; 252
+ (?ý . "y'") ; 253
+ (?ợ . "o+.") ; 254
;; upper case
- (?,2!(B . "A('") ; 161
- (?,2"(B . "A(`") ; 162
- (?,2#(B . "A(.") ; 163
- (?,2$(B . "A^'") ; 164
- (?,2%(B . "A^`") ; 165
- (?,2&(B . "A^?") ; 166
- (?,2'(B . "A^.") ; 167
- (?,2((B . "E~") ; 168
- (?,2)(B . "E.") ; 169
- (?,2*(B . "E^'") ; 170
- (?,2+(B . "E^`") ; 171
- (?,2,(B . "E^?") ; 172
- (?,2-(B . "E^~") ; 173
- (?,2.(B . "E^.") ; 174
- (?,2/(B . "O^'") ; 175
- (?,20(B . "O^`") ; 176
- (?,21(B . "O^?") ; 177
- (?,22(B . "O^~") ; 178
- (?,25(B . "O^.") ; 181
- (?,26(B . "O+`") ; 182
- (?,27(B . "O+?") ; 183
- (?,28(B . "I.") ; 184
- (?,2=(B . "O+") ; 189
- (?,2>(B . "O+'") ; 190
- (?,2F(B . "A(?") ; 198
- (?,2G(B . "A(~") ; 199
- (?,2O(B . "Y`") ; 207
- (?,2Q(B . "U+'") ; 209
- (?,2U(B . "A.") ; 213
- (?,2V(B . "Y?") ; 214
- (?,2W(B . "U+`") ; 215
- (?,2X(B . "U+?") ; 216
- (?,2[(B . "Y~") ; 219
- (?,2\(B . "Y.") ; 220
- (?,2^(B . "O+~") ; 222
- (?,2_(B . "U+") ; 223
- (?,2`(B . "A`") ; 224
- (?,2a(B . "A'") ; 225
- (?,2b(B . "A^") ; 226
- (?,2c(B . "A~") ; 227
- (?,2d(B . "A?") ; 228
- (?,2e(B . "A(") ; 229
- (?,2f(B . "U+~") ; 230
- (?,2g(B . "A^~") ; 231
- (?,2h(B . "E`") ; 232
- (?,2i(B . "E'") ; 233
- (?,2j(B . "E^") ; 234
- (?,2k(B . "E?") ; 235
- (?,2l(B . "I`") ; 236
- (?,2m(B . "I'") ; 237
- (?,2n(B . "I~") ; 238
- (?,2o(B . "I?") ; 239
- (?,2p(B . "DD") ; 240
- (?,2p(B . "dD") ; 240
- (?,2p(B . "Dd") ; 240
- (?,2q(B . "U+.") ; 241
- (?,2r(B . "O`") ; 242
- (?,2s(B . "O'") ; 243
- (?,2t(B . "O^") ; 244
- (?,2u(B . "O~") ; 245
- (?,2v(B . "O?") ; 246
- (?,2w(B . "O.") ; 247
- (?,2x(B . "U.") ; 248
- (?,2y(B . "U`") ; 249
- (?,2z(B . "U'") ; 250
- (?,2{(B . "U~") ; 251
- (?,2|(B . "U?") ; 252
- (?,2}(B . "Y'") ; 253
- (?,2~(B . "O+.") ; 254
+ (?Ắ . "A('") ; 161
+ (?Ằ . "A(`") ; 162
+ (?Ặ . "A(.") ; 163
+ (?Ấ . "A^'") ; 164
+ (?Ầ . "A^`") ; 165
+ (?Ẩ . "A^?") ; 166
+ (?Ậ . "A^.") ; 167
+ (?Ẽ . "E~") ; 168
+ (?Ẹ . "E.") ; 169
+ (?Ế . "E^'") ; 170
+ (?Ề . "E^`") ; 171
+ (?Ể . "E^?") ; 172
+ (?Ễ . "E^~") ; 173
+ (?Ệ . "E^.") ; 174
+ (?Ố . "O^'") ; 175
+ (?Ồ . "O^`") ; 176
+ (?Ổ . "O^?") ; 177
+ (?Ỗ . "O^~") ; 178
+ (?Ộ . "O^.") ; 181
+ (?Ờ . "O+`") ; 182
+ (?Ở . "O+?") ; 183
+ (?Ị . "I.") ; 184
+ (?Ơ . "O+") ; 189
+ (?Ớ . "O+'") ; 190
+ (?Ẳ . "A(?") ; 198
+ (?Ẵ . "A(~") ; 199
+ (?Ỳ . "Y`") ; 207
+ (?Ứ . "U+'") ; 209
+ (?Ạ . "A.") ; 213
+ (?Ỷ . "Y?") ; 214
+ (?Ừ . "U+`") ; 215
+ (?Ử . "U+?") ; 216
+ (?Ỹ . "Y~") ; 219
+ (?Ỵ . "Y.") ; 220
+ (?Ỡ . "O+~") ; 222
+ (?Ư . "U+") ; 223
+ (?À . "A`") ; 224
+ (?Á . "A'") ; 225
+ (? . "A^") ; 226
+ (?Ã . "A~") ; 227
+ (?Ả . "A?") ; 228
+ (?Ă . "A(") ; 229
+ (?Ữ . "U+~") ; 230
+ (?Ẫ . "A^~") ; 231
+ (?È . "E`") ; 232
+ (?É . "E'") ; 233
+ (?Ê . "E^") ; 234
+ (?Ẻ . "E?") ; 235
+ (?Ì . "I`") ; 236
+ (?Í . "I'") ; 237
+ (?Ĩ . "I~") ; 238
+ (?Ỉ . "I?") ; 239
+ (?Đ . "DD") ; 240
+ (?Đ . "dD") ; 240
+ (?Đ . "Dd") ; 240
+ (?Ự . "U+.") ; 241
+ (?Ò . "O`") ; 242
+ (?Ó . "O'") ; 243
+ (?Ô . "O^") ; 244
+ (?Õ . "O~") ; 245
+ (?Ỏ . "O?") ; 246
+ (?Ọ . "O.") ; 247
+ (?Ụ . "U.") ; 248
+ (?Ù . "U`") ; 249
+ (?Ú . "U'") ; 250
+ (?Ũ . "U~") ; 251
+ (?Ủ . "U?") ; 252
+ (?Ý . "Y'") ; 253
+ (?Ợ . "O+.") ; 254
;; escape from composition
(?\( . "\\(") ; breve (left parenthesis)