X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu00F00-Tibetan.el;h=c8334a6f668768de0175cbfc77946d6d8b47acd9;hb=424279e9d51de79ae7f5b52cc8ed21dcc76bb652;hp=47127473d392abf3022afdbd9fee2aae4b128079;hpb=a5812bf2ff9a9cf40f4ff78dcb83f5b4c295bd18;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u00F00-Tibetan.el b/lisp/utf-2000/u00F00-Tibetan.el
index 4712747..c8334a6 100644
--- a/lisp/utf-2000/u00F00-Tibetan.el
+++ b/lisp/utf-2000/u00F00-Tibetan.el
@@ -1,3 +1,4 @@
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name		. "TIBETAN SYLLABLE OM")
     (general-category	letter other) ; Informative Category
@@ -99,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")
@@ -546,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
@@ -610,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
@@ -646,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
@@ -682,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
@@ -718,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
@@ -811,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
@@ -840,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
@@ -855,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
@@ -863,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
@@ -871,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
@@ -879,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
@@ -887,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
@@ -946,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
@@ -1053,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
@@ -1117,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
@@ -1153,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
@@ -1189,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
@@ -1225,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
@@ -1318,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