X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu00F00-Tibetan.el;h=c8334a6f668768de0175cbfc77946d6d8b47acd9;hb=59483252003895f7e52f747b322c84073c676922;hp=5cd2836b38dbf677167673d10a71da6151d3df41;hpb=e7783ccc5c7b4545f4afab9e1748b38e17aff09c;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u00F00-Tibetan.el b/lisp/utf-2000/u00F00-Tibetan.el
index 5cd2836..c8334a6 100644
--- a/lisp/utf-2000/u00F00-Tibetan.el
+++ b/lisp/utf-2000/u00F00-Tibetan.el
@@ -100,8 +100,11 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "tsek tar")
-    (->decomposition	noBreak #x0F0B)
     (=ucs		. #x0F0C)	; ༌
+    (<-noBreak
+     ((name		  . "TIBETAN MARK INTERSYLLABIC TSHEG")
+      (=ucs		  . #x0F0B)	; ་
+      ))
     ))
 (define-char
   '((name		. "TIBETAN MARK SHAD")
@@ -547,7 +550,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x0F42 #x0FB7)
+    (=decomposition
+     ((name		  . "TIBETAN LETTER GA")
+      (=ucs		  . #x0F42)	; ག
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER HA")
+      (=ucs		  . #x0FB7)	; ྷ
+      ))
     (=ucs		. #x0F43)	; གྷ
     ))
 (define-char
@@ -611,7 +620,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x0F4C #x0FB7)
+    (=decomposition
+     ((name		  . "TIBETAN LETTER DDA")
+      (=ucs		  . #x0F4C)	; ཌ
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER HA")
+      (=ucs		  . #x0FB7)	; ྷ
+      ))
     (=ucs		. #x0F4D)	; ཌྷ
     ))
 (define-char
@@ -647,7 +662,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x0F51 #x0FB7)
+    (=decomposition
+     ((name		  . "TIBETAN LETTER DA")
+      (=ucs		  . #x0F51)	; ད
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER HA")
+      (=ucs		  . #x0FB7)	; ྷ
+      ))
     (=ucs		. #x0F52)	; དྷ
     ))
 (define-char
@@ -683,7 +704,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x0F56 #x0FB7)
+    (=decomposition
+     ((name		  . "TIBETAN LETTER BA")
+      (=ucs		  . #x0F56)	; བ
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER HA")
+      (=ucs		  . #x0FB7)	; ྷ
+      ))
     (=ucs		. #x0F57)	; བྷ
     ))
 (define-char
@@ -719,7 +746,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x0F5B #x0FB7)
+    (=decomposition
+     ((name		  . "TIBETAN LETTER DZA")
+      (=ucs		  . #x0F5B)	; ཛ
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER HA")
+      (=ucs		  . #x0FB7)	; ྷ
+      ))
     (=ucs		. #x0F5C)	; ཛྷ
     ))
 (define-char
@@ -812,7 +845,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	#x0F40 #x0FB5)
+    (=decomposition
+     ((name		  . "TIBETAN LETTER KA")
+      (=ucs		  . #x0F40)	; ཀ
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER SSA")
+      (=ucs		  . #x0FB5)	; ྵ
+      ))
     (=ucs		. #x0F69)	; ཀྵ
     ))
 (define-char
@@ -841,7 +880,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	#x0F71 #x0F72)
+    (=decomposition
+     ((name		  . "TIBETAN VOWEL SIGN AA")
+      (=ucs		  . #x0F71)	; ཱ
+      )
+     ((name		  . "TIBETAN VOWEL SIGN I")
+      (=ucs		  . #x0F72)	; ི
+      ))
     (=ucs		. #x0F73)	; ཱི
     ))
 (define-char
@@ -856,7 +901,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	#x0F71 #x0F74)
+    (=decomposition
+     ((name		  . "TIBETAN VOWEL SIGN AA")
+      (=ucs		  . #x0F71)	; ཱ
+      )
+     ((name		  . "TIBETAN VOWEL SIGN U")
+      (=ucs		  . #x0F74)	; ུ
+      ))
     (=ucs		. #x0F75)	; ཱུ
     ))
 (define-char
@@ -864,7 +915,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	#x0FB2 #x0F80)
+    (=decomposition
+     ((name		  . "TIBETAN SUBJOINED LETTER RA")
+      (=ucs		  . #x0FB2)	; ྲ
+      )
+     ((name		  . "TIBETAN VOWEL SIGN REVERSED I")
+      (=ucs		  . #x0F80)	; ྀ
+      ))
     (=ucs		. #x0F76)	; ྲྀ
     ))
 (define-char
@@ -872,7 +929,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	compat #x0FB2 #x0F81)
+    (=>decomposition@compat
+     ((name		  . "TIBETAN SUBJOINED LETTER RA")
+      (=ucs		  . #x0FB2)	; ྲ
+      )
+     ((name		  . "TIBETAN VOWEL SIGN REVERSED II")
+      (=ucs		  . #x0F81)	; ཱྀ
+      ))
     (=ucs		. #x0F77)	; ཷ
     ))
 (define-char
@@ -880,7 +943,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	#x0FB3 #x0F80)
+    (=decomposition
+     ((name		  . "TIBETAN SUBJOINED LETTER LA")
+      (=ucs		  . #x0FB3)	; ླ
+      )
+     ((name		  . "TIBETAN VOWEL SIGN REVERSED I")
+      (=ucs		  . #x0F80)	; ྀ
+      ))
     (=ucs		. #x0F78)	; ླྀ
     ))
 (define-char
@@ -888,7 +957,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	compat #x0FB3 #x0F81)
+    (=>decomposition@compat
+     ((name		  . "TIBETAN SUBJOINED LETTER LA")
+      (=ucs		  . #x0FB3)	; ླ
+      )
+     ((name		  . "TIBETAN VOWEL SIGN REVERSED II")
+      (=ucs		  . #x0F81)	; ཱྀ
+      ))
     (=ucs		. #x0F79)	; ཹ
     ))
 (define-char
@@ -947,7 +1022,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	#x0F71 #x0F80)
+    (=decomposition
+     ((name		  . "TIBETAN VOWEL SIGN AA")
+      (=ucs		  . #x0F71)	; ཱ
+      )
+     ((name		  . "TIBETAN VOWEL SIGN REVERSED I")
+      (=ucs		  . #x0F80)	; ྀ
+      ))
     (=ucs		. #x0F81)	; ཱྀ
     ))
 (define-char
@@ -1054,7 +1135,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	#x0F92 #x0FB7)
+    (=decomposition
+     ((name		  . "TIBETAN SUBJOINED LETTER GA")
+      (=ucs		  . #x0F92)	; ྒ
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER HA")
+      (=ucs		  . #x0FB7)	; ྷ
+      ))
     (=ucs		. #x0F93)	; ྒྷ
     ))
 (define-char
@@ -1118,7 +1205,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	#x0F9C #x0FB7)
+    (=decomposition
+     ((name		  . "TIBETAN SUBJOINED LETTER DDA")
+      (=ucs		  . #x0F9C)	; ྜ
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER HA")
+      (=ucs		  . #x0FB7)	; ྷ
+      ))
     (=ucs		. #x0F9D)	; ྜྷ
     ))
 (define-char
@@ -1154,7 +1247,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	#x0FA1 #x0FB7)
+    (=decomposition
+     ((name		  . "TIBETAN SUBJOINED LETTER DA")
+      (=ucs		  . #x0FA1)	; ྡ
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER HA")
+      (=ucs		  . #x0FB7)	; ྷ
+      ))
     (=ucs		. #x0FA2)	; ྡྷ
     ))
 (define-char
@@ -1190,7 +1289,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	#x0FA6 #x0FB7)
+    (=decomposition
+     ((name		  . "TIBETAN SUBJOINED LETTER BA")
+      (=ucs		  . #x0FA6)	; ྦ
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER HA")
+      (=ucs		  . #x0FB7)	; ྷ
+      ))
     (=ucs		. #x0FA7)	; ྦྷ
     ))
 (define-char
@@ -1226,7 +1331,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	#x0FAB #x0FB7)
+    (=decomposition
+     ((name		  . "TIBETAN SUBJOINED LETTER DZA")
+      (=ucs		  . #x0FAB)	; ྫ
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER HA")
+      (=ucs		  . #x0FB7)	; ྷ
+      ))
     (=ucs		. #x0FAC)	; ྫྷ
     ))
 (define-char
@@ -1319,7 +1430,13 @@
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (->decomposition	#x0F90 #x0FB5)
+    (=decomposition
+     ((name		  . "TIBETAN SUBJOINED LETTER KA")
+      (=ucs		  . #x0F90)	; ྐ
+      )
+     ((name		  . "TIBETAN SUBJOINED LETTER SSA")
+      (=ucs		  . #x0FB5)	; ྵ
+      ))
     (=ucs		. #x0FB9)	; ྐྵ
     ))
 (define-char