# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 960792673 0
# Node ID 79fb788042f3b2454790026a9517f7a9bb531697
# Parent  c3845ffcb423bc83e55c15df915c69d240f3a267
(tibetan-composable-pattern): Fix previous change.
(tibetan-vowel-transcription-alist): More rules added.
(tibetan-composite-vowel-alist): New variable.
(tibetan-precomposition-rule-alist): More rules added.

diff -r c3845ffcb423 -r 79fb788042f3 lisp/language/tibetan.el
--- a/lisp/language/tibetan.el	Mon Jun 12 06:11:56 2000 +0000
+++ b/lisp/language/tibetan.el	Mon Jun 12 06:51:13 2000 +0000
@@ -99,14 +99,19 @@
 	     (features tibet-util)
 	     (documentation . t)
 	     (sample-text .
-"Tibetan (4$(7"7r'"]0"7"]14"20"21!;4%P0"G#!"Q14"20"21!;(B) $(7!4!5!5!>4"70"714$P0"!#C"Q1!;4"Er'"S0"E"S14"G0"G1!;4"70"714"2r'"[0"2"[1!;4"Dr'"[0"D"[14"#0"#14"G0"G1!>4"Ir'"]r'"_0"I"]"_1!;4"90"9"Q1!;4"/r'"S0"/"S1!;4"50"5"Q1#2#9"[!;4"Hx!"Rx!"Ur'"c0"H"A"U"c1!>(B")))
+"Tibetan (4$(7"7r'"]0"7"]14"20"21!;4%P0"G#!"Q14"20"21!;(B) $(7!4!5!5!>4"70"714$P0"!#C"Q1!;4"Er'"S0"E"S14"G0"G1!;4"70"714"2r'"[0"2"[1!;4"Dr'"[0"D"[14"#0"#14"G0"G1!>4"Ir'"]r'"_0"I"]"_1!;4"90"9"Q1!;4"/r'"S0"/"S1!;4"50"5"Q14#2x!#9r'"[0"2#9"[1!;4"Hx!"Rx!"Ur'"c0"H"A"U"c1!>(B")))
 
 
 ;; `$(7"A(B' 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
+;; (for Unicode support)
 (defconst tibetan-composable-pattern
-  "[$(7"!(B-$(7"J"K(B][$(7"A#!(B-$(7#J#K#L#M(B]*$(7"R(B?[$(7"Q"S(B-$(7"^"a"e(B]?[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*"
+  "[$(7"!(B-$(7"J"K(B][$(7#!(B-$(7#J#K#L#M(B]*[$(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.")
 
 ;; Register a function to compose Tibetan characters.
@@ -169,7 +174,19 @@
 
 
 (defconst tibetan-vowel-transcription-alist
-  '(("ai" . "$(7"\(B")
+  '(
+    ;; 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")
+    ;; Normal Vowels
+    ("ai" . "$(7"\(B")
     ("au" . "$(7"^(B")
     ("ee" . "$(7"\(B")
     ("oo" . "$(7"^(B")
@@ -408,6 +425,30 @@
     ;; Added by Tomabechi 1999/12/10
     ("$(7"K(B" . "$(7#M(B") ;; Fixed form RA (224B->234D)
     ))
+
+;;; alist for Tibetan composite vowels (long i, vocalic r, etc.)
+;;; New varialble. created by Tomabechi 2000/06/08
+(defconst tibetan-composite-vowel-alist
+  '(;; LONG A
+    ;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B))
+    ;; LONG I
+    ("$(7"T(B" . (?$(7"R(B (tc . bc) ?$(7"S(B))
+    ;; LONG U
+    ("$(7"V(B" . (?$(7"R(B (bc . tc) ?$(7"U(B))
+    ;; VOCALIC R
+    ("$(7"W(B" . (?$(7#C(B (tc . bc) ?$(7"a(B))
+    ;; LONG VOCALIC R
+    ("$(7"X(B" . (?$(7#C(B (bc . tc) ?$(7"R(B (tc . bc) ?$(7"a(B))
+    ;; 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))
+    ;; LONG REVERSE I
+    ("$(7"b(B" . (?$(7"R(B (tc . bc) ?$(7"a(B))
+    ))
+
+
+
 ;;;
 ;;; alist for Tibetan consonantic components <-> precomposed glyph conversion.
 ;;; (includes some punctuation conversion rules)
@@ -493,6 +534,7 @@
     ("$(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")