X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu00F00-Tibetan.el;h=47127473d392abf3022afdbd9fee2aae4b128079;hb=6f8a91966f78f32c2150f434d378f7ac4d858bc0;hp=8a0c80330e0fbff74a421a909723037e37566ecc;hpb=9e8aef306cd8793fe97bf93de4ed4c8d3d2067f9;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/u00F00-Tibetan.el b/lisp/utf-2000/u00F00-Tibetan.el
index 8a0c803..4712747 100644
--- a/lisp/utf-2000/u00F00-Tibetan.el
+++ b/lisp/utf-2000/u00F00-Tibetan.el
@@ -1,1475 +1,1469 @@
 (define-char
   '((name		. "TIBETAN SYLLABLE OM")
-    (ucs		. #x0F00)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F00)	; ༀ
     ))
 (define-char
   '((name		. "TIBETAN MARK GTER YIG MGO TRUNCATED A")
-    (ucs		. #x0F01)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "ter yik go a thung")
+    (=ucs		. #x0F01)	; ༁
     ))
 (define-char
   '((name		. "TIBETAN MARK GTER YIG MGO -UM RNAM BCAD MA")
-    (ucs		. #x0F02)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "ter yik go wum nam chey ma")
+    (=ucs		. #x0F02)	; ༂
     ))
 (define-char
   '((name		. "TIBETAN MARK GTER YIG MGO -UM GTER TSHEG MA")
-    (ucs		. #x0F03)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "ter yik go wum ter tsek ma")
+    (=ucs		. #x0F03)	; ༃
     ))
 (define-char
   '((name		. "TIBETAN MARK INITIAL YIG MGO MDUN MA")
-    (ucs		. #x0F04)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "yik go dun ma")
+    (=ucs		. #x0F04)	; ༄
     ))
 (define-char
   '((name		. "TIBETAN MARK CLOSING YIG MGO SGAB MA")
-    (ucs		. #x0F05)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "yik go kab ma")
+    (=ucs		. #x0F05)	; ༅
     ))
 (define-char
   '((name		. "TIBETAN MARK CARET YIG MGO PHUR SHAD MA")
-    (ucs		. #x0F06)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "yik go pur shey ma")
+    (=ucs		. #x0F06)	; ༆
     ))
 (define-char
   '((name		. "TIBETAN MARK YIG MGO TSHEG SHAD MA")
-    (ucs		. #x0F07)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "yik go tsek shey ma")
+    (=ucs		. #x0F07)	; ༇
     ))
 (define-char
   '((name		. "TIBETAN MARK SBRUL SHAD")
-    (ucs		. #x0F08)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "drul shey")
+    (=ucs		. #x0F08)	; ༈
     ))
 (define-char
   '((name		. "TIBETAN MARK BSKUR YIG MGO")
-    (ucs		. #x0F09)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "kur yik go")
+    (=ucs		. #x0F09)	; ༉
     ))
 (define-char
   '((name		. "TIBETAN MARK BKA- SHOG YIG MGO")
-    (ucs		. #x0F0A)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "ka sho yik go")
+    (=ucs		. #x0F0A)	; ༊
     ))
 (define-char
   '((name		. "TIBETAN MARK INTERSYLLABIC TSHEG")
-    (ucs		. #x0F0B)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "tsek")
+    (=ucs		. #x0F0B)	; ་
     ))
 (define-char
   '((name		. "TIBETAN MARK DELIMITER TSHEG BSTAR")
-    (ucs		. #x0F0C)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
-    (->decomposition	noBreak #x0F0B)
     (mirrored		. nil)
     (iso-10646-comment	. "tsek tar")
+    (->decomposition	noBreak #x0F0B)
+    (=ucs		. #x0F0C)	; ༌
     ))
 (define-char
   '((name		. "TIBETAN MARK SHAD")
-    (ucs		. #x0F0D)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "shey")
+    (=ucs		. #x0F0D)	; །
     ))
 (define-char
   '((name		. "TIBETAN MARK NYIS SHAD")
-    (ucs		. #x0F0E)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "nyi shey")
+    (=ucs		. #x0F0E)	; ༎
     ))
 (define-char
   '((name		. "TIBETAN MARK TSHEG SHAD")
-    (ucs		. #x0F0F)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "tsek shey")
+    (=ucs		. #x0F0F)	; ༏
     ))
 (define-char
   '((name		. "TIBETAN MARK NYIS TSHEG SHAD")
-    (ucs		. #x0F10)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "nyi tsek shey")
+    (=ucs		. #x0F10)	; ༐
     ))
 (define-char
   '((name		. "TIBETAN MARK RIN CHEN SPUNGS SHAD")
-    (ucs		. #x0F11)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "rinchen pung shey")
+    (=ucs		. #x0F11)	; ༑
     ))
 (define-char
   '((name		. "TIBETAN MARK RGYA GRAM SHAD")
-    (ucs		. #x0F12)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "gya tram shey")
+    (=ucs		. #x0F12)	; ༒
     ))
 (define-char
   '((name		. "TIBETAN MARK CARET -DZUD RTAGS ME LONG CAN")
-    (ucs		. #x0F13)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "dzu ta me long chen")
+    (=ucs		. #x0F13)	; ༓
     ))
 (define-char
   '((name		. "TIBETAN MARK GTER TSHEG")
-    (ucs		. #x0F14)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "ter tsek")
+    (=ucs		. #x0F14)	; ༔
     ))
 (define-char
   '((name		. "TIBETAN LOGOTYPE SIGN CHAD RTAGS")
-    (ucs		. #x0F15)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "che ta")
+    (=ucs		. #x0F15)	; ༕
     ))
 (define-char
   '((name		. "TIBETAN LOGOTYPE SIGN LHAG RTAGS")
-    (ucs		. #x0F16)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "hlak ta")
+    (=ucs		. #x0F16)	; ༖
     ))
 (define-char
-  '((name		. "TIBETAN ASTROLOGICAL SIGN SGRA GCAN -CHAR RTAGS")
-    (ucs		. #x0F17)
+  '((name . "TIBETAN ASTROLOGICAL SIGN SGRA GCAN -CHAR RTAGS")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "trachen char ta")
+    (=ucs		. #x0F17)	; ༗
     ))
 (define-char
   '((name		. "TIBETAN ASTROLOGICAL SIGN -KHYUD PA")
-    (ucs		. #x0F18)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "kyu pa")
+    (=ucs		. #x0F18)	; ༘
     ))
 (define-char
   '((name		. "TIBETAN ASTROLOGICAL SIGN SDONG TSHUGS")
-    (ucs		. #x0F19)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "dong tsu")
+    (=ucs		. #x0F19)	; ༙
     ))
 (define-char
   '((name		. "TIBETAN SIGN RDEL DKAR GCIG")
-    (ucs		. #x0F1A)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "deka chig")
+    (=ucs		. #x0F1A)	; ༚
     ))
 (define-char
   '((name		. "TIBETAN SIGN RDEL DKAR GNYIS")
-    (ucs		. #x0F1B)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "deka nyi")
+    (=ucs		. #x0F1B)	; ༛
     ))
 (define-char
   '((name		. "TIBETAN SIGN RDEL DKAR GSUM")
-    (ucs		. #x0F1C)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "deka sum")
+    (=ucs		. #x0F1C)	; ༜
     ))
 (define-char
   '((name		. "TIBETAN SIGN RDEL NAG GCIG")
-    (ucs		. #x0F1D)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "dena chig")
+    (=ucs		. #x0F1D)	; ༝
     ))
 (define-char
   '((name		. "TIBETAN SIGN RDEL NAG GNYIS")
-    (ucs		. #x0F1E)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "dena nyi")
+    (=ucs		. #x0F1E)	; ༞
     ))
 (define-char
   '((name		. "TIBETAN SIGN RDEL DKAR RDEL NAG")
-    (ucs		. #x0F1F)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "deka dena")
+    (=ucs		. #x0F1F)	; ༟
     ))
 (define-char
   '((name		. "TIBETAN DIGIT ZERO")
-    (ucs		. #x0F20)
     (general-category	number decimal-digit) ; Normative Category
     (bidi-category	. "L")
-    (decimal-digit-value . 0)
-    (digit-value	. 0)
-    (numeric-value	. 0)
     (mirrored		. nil)
+    (decimal-digit-value . 0)
+    (digit-value	 . 0)
+    (numeric-value	 . 0)
+    (=ucs		. #x0F20)	; ༠
     ))
 (define-char
   '((name		. "TIBETAN DIGIT ONE")
-    (ucs		. #x0F21)
     (general-category	number decimal-digit) ; Normative Category
     (bidi-category	. "L")
-    (decimal-digit-value . 1)
-    (digit-value	. 1)
-    (numeric-value	. 1)
     (mirrored		. nil)
+    (decimal-digit-value . 1)
+    (digit-value	 . 1)
+    (numeric-value	 . 1)
+    (=ucs		. #x0F21)	; ༡
     ))
 (define-char
   '((name		. "TIBETAN DIGIT TWO")
-    (ucs		. #x0F22)
     (general-category	number decimal-digit) ; Normative Category
     (bidi-category	. "L")
-    (decimal-digit-value . 2)
-    (digit-value	. 2)
-    (numeric-value	. 2)
     (mirrored		. nil)
+    (decimal-digit-value . 2)
+    (digit-value	 . 2)
+    (numeric-value	 . 2)
+    (=ucs		. #x0F22)	; ༢
     ))
 (define-char
   '((name		. "TIBETAN DIGIT THREE")
-    (ucs		. #x0F23)
     (general-category	number decimal-digit) ; Normative Category
     (bidi-category	. "L")
-    (decimal-digit-value . 3)
-    (digit-value	. 3)
-    (numeric-value	. 3)
     (mirrored		. nil)
+    (decimal-digit-value . 3)
+    (digit-value	 . 3)
+    (numeric-value	 . 3)
+    (=ucs		. #x0F23)	; ༣
     ))
 (define-char
   '((name		. "TIBETAN DIGIT FOUR")
-    (ucs		. #x0F24)
     (general-category	number decimal-digit) ; Normative Category
     (bidi-category	. "L")
-    (decimal-digit-value . 4)
-    (digit-value	. 4)
-    (numeric-value	. 4)
     (mirrored		. nil)
+    (decimal-digit-value . 4)
+    (digit-value	 . 4)
+    (numeric-value	 . 4)
+    (=ucs		. #x0F24)	; ༤
     ))
 (define-char
   '((name		. "TIBETAN DIGIT FIVE")
-    (ucs		. #x0F25)
     (general-category	number decimal-digit) ; Normative Category
     (bidi-category	. "L")
-    (decimal-digit-value . 5)
-    (digit-value	. 5)
-    (numeric-value	. 5)
     (mirrored		. nil)
+    (decimal-digit-value . 5)
+    (digit-value	 . 5)
+    (numeric-value	 . 5)
+    (=ucs		. #x0F25)	; ༥
     ))
 (define-char
   '((name		. "TIBETAN DIGIT SIX")
-    (ucs		. #x0F26)
     (general-category	number decimal-digit) ; Normative Category
     (bidi-category	. "L")
-    (decimal-digit-value . 6)
-    (digit-value	. 6)
-    (numeric-value	. 6)
     (mirrored		. nil)
+    (decimal-digit-value . 6)
+    (digit-value	 . 6)
+    (numeric-value	 . 6)
+    (=ucs		. #x0F26)	; ༦
     ))
 (define-char
   '((name		. "TIBETAN DIGIT SEVEN")
-    (ucs		. #x0F27)
     (general-category	number decimal-digit) ; Normative Category
     (bidi-category	. "L")
-    (decimal-digit-value . 7)
-    (digit-value	. 7)
-    (numeric-value	. 7)
     (mirrored		. nil)
+    (decimal-digit-value . 7)
+    (digit-value	 . 7)
+    (numeric-value	 . 7)
+    (=ucs		. #x0F27)	; ༧
     ))
 (define-char
   '((name		. "TIBETAN DIGIT EIGHT")
-    (ucs		. #x0F28)
     (general-category	number decimal-digit) ; Normative Category
     (bidi-category	. "L")
-    (decimal-digit-value . 8)
-    (digit-value	. 8)
-    (numeric-value	. 8)
     (mirrored		. nil)
+    (decimal-digit-value . 8)
+    (digit-value	 . 8)
+    (numeric-value	 . 8)
+    (=ucs		. #x0F28)	; ༨
     ))
 (define-char
   '((name		. "TIBETAN DIGIT NINE")
-    (ucs		. #x0F29)
     (general-category	number decimal-digit) ; Normative Category
     (bidi-category	. "L")
-    (decimal-digit-value . 9)
-    (digit-value	. 9)
-    (numeric-value	. 9)
     (mirrored		. nil)
+    (decimal-digit-value . 9)
+    (digit-value	 . 9)
+    (numeric-value	 . 9)
+    (=ucs		. #x0F29)	; ༩
     ))
 (define-char
   '((name		. "TIBETAN DIGIT HALF ONE")
-    (ucs		. #x0F2A)
     (general-category	number other) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F2A)	; ༪
     ))
 (define-char
   '((name		. "TIBETAN DIGIT HALF TWO")
-    (ucs		. #x0F2B)
     (general-category	number other) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F2B)	; ༫
     ))
 (define-char
   '((name		. "TIBETAN DIGIT HALF THREE")
-    (ucs		. #x0F2C)
     (general-category	number other) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F2C)	; ༬
     ))
 (define-char
   '((name		. "TIBETAN DIGIT HALF FOUR")
-    (ucs		. #x0F2D)
     (general-category	number other) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F2D)	; ༭
     ))
 (define-char
   '((name		. "TIBETAN DIGIT HALF FIVE")
-    (ucs		. #x0F2E)
     (general-category	number other) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F2E)	; ༮
     ))
 (define-char
   '((name		. "TIBETAN DIGIT HALF SIX")
-    (ucs		. #x0F2F)
     (general-category	number other) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F2F)	; ༯
     ))
 (define-char
   '((name		. "TIBETAN DIGIT HALF SEVEN")
-    (ucs		. #x0F30)
     (general-category	number other) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F30)	; ༰
     ))
 (define-char
   '((name		. "TIBETAN DIGIT HALF EIGHT")
-    (ucs		. #x0F31)
     (general-category	number other) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F31)	; ༱
     ))
 (define-char
   '((name		. "TIBETAN DIGIT HALF NINE")
-    (ucs		. #x0F32)
     (general-category	number other) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F32)	; ༲
     ))
 (define-char
   '((name		. "TIBETAN DIGIT HALF ZERO")
-    (ucs		. #x0F33)
     (general-category	number other) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F33)	; ༳
     ))
 (define-char
   '((name		. "TIBETAN MARK BSDUS RTAGS")
-    (ucs		. #x0F34)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "du ta")
+    (=ucs		. #x0F34)	; ༴
     ))
 (define-char
   '((name		. "TIBETAN MARK NGAS BZUNG NYI ZLA")
-    (ucs		. #x0F35)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "nge zung nyi da")
+    (=ucs		. #x0F35)	; ༵
     ))
 (define-char
   '((name		. "TIBETAN MARK CARET -DZUD RTAGS BZHI MIG CAN")
-    (ucs		. #x0F36)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "dzu ta shi mig chen")
+    (=ucs		. #x0F36)	; ༶
     ))
 (define-char
   '((name		. "TIBETAN MARK NGAS BZUNG SGOR RTAGS")
-    (ucs		. #x0F37)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "nge zung gor ta")
+    (=ucs		. #x0F37)	; ༷
     ))
 (define-char
   '((name		. "TIBETAN MARK CHE MGO")
-    (ucs		. #x0F38)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "che go")
+    (=ucs		. #x0F38)	; ༸
     ))
 (define-char
   '((name		. "TIBETAN MARK TSA -PHRU")
-    (ucs		. #x0F39)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "tsa tru")
+    (=ucs		. #x0F39)	; ༹
     ))
 (define-char
   '((name		. "TIBETAN MARK GUG RTAGS GYON")
-    (ucs		. #x0F3A)
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (iso-10646-comment	. "gug ta yun")
+    (=ucs		. #x0F3A)	; ༺
     ))
 (define-char
   '((name		. "TIBETAN MARK GUG RTAGS GYAS")
-    (ucs		. #x0F3B)
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (iso-10646-comment	. "gug ta ye")
+    (=ucs		. #x0F3B)	; ༻
     ))
 (define-char
   '((name		. "TIBETAN MARK ANG KHANG GYON")
-    (ucs		. #x0F3C)
     (general-category	punctuation open) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (iso-10646-comment	. "ang kang yun")
+    (=ucs		. #x0F3C)	; ༼
     ))
 (define-char
   '((name		. "TIBETAN MARK ANG KHANG GYAS")
-    (ucs		. #x0F3D)
     (general-category	punctuation close) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (iso-10646-comment	. "ang kang ye")
+    (=ucs		. #x0F3D)	; ༽
     ))
 (define-char
   '((name		. "TIBETAN SIGN YAR TSHES")
-    (ucs		. #x0F3E)
     (general-category	mark spacing-combining) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "yar tse")
+    (=ucs		. #x0F3E)	; ༾
     ))
 (define-char
   '((name		. "TIBETAN SIGN MAR TSHES")
-    (ucs		. #x0F3F)
     (general-category	mark spacing-combining) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "mar tse")
+    (=ucs		. #x0F3F)	; ༿
     ))
 (define-char
   '((name		. "TIBETAN LETTER KA")
-    (ucs		. #x0F40)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F40)	; ཀ
     ))
 (define-char
   '((name		. "TIBETAN LETTER KHA")
-    (ucs		. #x0F41)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F41)	; ཁ
     ))
 (define-char
   '((name		. "TIBETAN LETTER GA")
-    (ucs		. #x0F42)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F42)	; ག
     ))
 (define-char
   '((name		. "TIBETAN LETTER GHA")
-    (ucs		. #x0F43)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
-    (->decomposition	#x0F42 #x0FB7)
     (mirrored		. nil)
+    (->decomposition	#x0F42 #x0FB7)
+    (=ucs		. #x0F43)	; གྷ
     ))
 (define-char
   '((name		. "TIBETAN LETTER NGA")
-    (ucs		. #x0F44)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F44)	; ང
     ))
 (define-char
   '((name		. "TIBETAN LETTER CA")
-    (ucs		. #x0F45)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F45)	; ཅ
     ))
 (define-char
   '((name		. "TIBETAN LETTER CHA")
-    (ucs		. #x0F46)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F46)	; ཆ
     ))
 (define-char
   '((name		. "TIBETAN LETTER JA")
-    (ucs		. #x0F47)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F47)	; ཇ
     ))
 (define-char
   '((name		. "TIBETAN LETTER NYA")
-    (ucs		. #x0F49)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F49)	; ཉ
     ))
 (define-char
   '((name		. "TIBETAN LETTER TTA")
-    (ucs		. #x0F4A)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F4A)	; ཊ
     ))
 (define-char
   '((name		. "TIBETAN LETTER TTHA")
-    (ucs		. #x0F4B)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F4B)	; ཋ
     ))
 (define-char
   '((name		. "TIBETAN LETTER DDA")
-    (ucs		. #x0F4C)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F4C)	; ཌ
     ))
 (define-char
   '((name		. "TIBETAN LETTER DDHA")
-    (ucs		. #x0F4D)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
-    (->decomposition	#x0F4C #x0FB7)
     (mirrored		. nil)
+    (->decomposition	#x0F4C #x0FB7)
+    (=ucs		. #x0F4D)	; ཌྷ
     ))
 (define-char
   '((name		. "TIBETAN LETTER NNA")
-    (ucs		. #x0F4E)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F4E)	; ཎ
     ))
 (define-char
   '((name		. "TIBETAN LETTER TA")
-    (ucs		. #x0F4F)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F4F)	; ཏ
     ))
 (define-char
   '((name		. "TIBETAN LETTER THA")
-    (ucs		. #x0F50)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F50)	; ཐ
     ))
 (define-char
   '((name		. "TIBETAN LETTER DA")
-    (ucs		. #x0F51)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F51)	; ད
     ))
 (define-char
   '((name		. "TIBETAN LETTER DHA")
-    (ucs		. #x0F52)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
-    (->decomposition	#x0F51 #x0FB7)
     (mirrored		. nil)
+    (->decomposition	#x0F51 #x0FB7)
+    (=ucs		. #x0F52)	; དྷ
     ))
 (define-char
   '((name		. "TIBETAN LETTER NA")
-    (ucs		. #x0F53)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F53)	; ན
     ))
 (define-char
   '((name		. "TIBETAN LETTER PA")
-    (ucs		. #x0F54)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F54)	; པ
     ))
 (define-char
   '((name		. "TIBETAN LETTER PHA")
-    (ucs		. #x0F55)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F55)	; ཕ
     ))
 (define-char
   '((name		. "TIBETAN LETTER BA")
-    (ucs		. #x0F56)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F56)	; བ
     ))
 (define-char
   '((name		. "TIBETAN LETTER BHA")
-    (ucs		. #x0F57)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
-    (->decomposition	#x0F56 #x0FB7)
     (mirrored		. nil)
+    (->decomposition	#x0F56 #x0FB7)
+    (=ucs		. #x0F57)	; བྷ
     ))
 (define-char
   '((name		. "TIBETAN LETTER MA")
-    (ucs		. #x0F58)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F58)	; མ
     ))
 (define-char
   '((name		. "TIBETAN LETTER TSA")
-    (ucs		. #x0F59)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F59)	; ཙ
     ))
 (define-char
   '((name		. "TIBETAN LETTER TSHA")
-    (ucs		. #x0F5A)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F5A)	; ཚ
     ))
 (define-char
   '((name		. "TIBETAN LETTER DZA")
-    (ucs		. #x0F5B)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F5B)	; ཛ
     ))
 (define-char
   '((name		. "TIBETAN LETTER DZHA")
-    (ucs		. #x0F5C)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
-    (->decomposition	#x0F5B #x0FB7)
     (mirrored		. nil)
+    (->decomposition	#x0F5B #x0FB7)
+    (=ucs		. #x0F5C)	; ཛྷ
     ))
 (define-char
   '((name		. "TIBETAN LETTER WA")
-    (ucs		. #x0F5D)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F5D)	; ཝ
     ))
 (define-char
   '((name		. "TIBETAN LETTER ZHA")
-    (ucs		. #x0F5E)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F5E)	; ཞ
     ))
 (define-char
   '((name		. "TIBETAN LETTER ZA")
-    (ucs		. #x0F5F)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F5F)	; ཟ
     ))
 (define-char
   '((name		. "TIBETAN LETTER -A")
-    (ucs		. #x0F60)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F60)	; འ
     ))
 (define-char
   '((name		. "TIBETAN LETTER YA")
-    (ucs		. #x0F61)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F61)	; ཡ
     ))
 (define-char
   '((name		. "TIBETAN LETTER RA")
-    (ucs		. #x0F62)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "*")
+    (=ucs		. #x0F62)	; ར
     ))
 (define-char
   '((name		. "TIBETAN LETTER LA")
-    (ucs		. #x0F63)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F63)	; ལ
     ))
 (define-char
   '((name		. "TIBETAN LETTER SHA")
-    (ucs		. #x0F64)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F64)	; ཤ
     ))
 (define-char
   '((name		. "TIBETAN LETTER SSA")
-    (ucs		. #x0F65)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F65)	; ཥ
     ))
 (define-char
   '((name		. "TIBETAN LETTER SA")
-    (ucs		. #x0F66)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F66)	; ས
     ))
 (define-char
   '((name		. "TIBETAN LETTER HA")
-    (ucs		. #x0F67)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F67)	; ཧ
     ))
 (define-char
   '((name		. "TIBETAN LETTER A")
-    (ucs		. #x0F68)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F68)	; ཨ
     ))
 (define-char
   '((name		. "TIBETAN LETTER KSSA")
-    (ucs		. #x0F69)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
-    (->decomposition	#x0F40 #x0FB5)
     (mirrored		. nil)
+    (->decomposition	#x0F40 #x0FB5)
+    (=ucs		. #x0F69)	; ཀྵ
     ))
 (define-char
   '((name		. "TIBETAN LETTER FIXED-FORM RA")
-    (ucs		. #x0F6A)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (iso-10646-comment	. "*")
+    (=ucs		. #x0F6A)	; ཪ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN AA")
-    (ucs		. #x0F71)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F71)	; ཱ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN I")
-    (ucs		. #x0F72)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F72)	; ི
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN II")
-    (ucs		. #x0F73)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	#x0F71 #x0F72)
     (mirrored		. nil)
+    (->decomposition	#x0F71 #x0F72)
+    (=ucs		. #x0F73)	; ཱི
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN U")
-    (ucs		. #x0F74)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F74)	; ུ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN UU")
-    (ucs		. #x0F75)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	#x0F71 #x0F74)
     (mirrored		. nil)
+    (->decomposition	#x0F71 #x0F74)
+    (=ucs		. #x0F75)	; ཱུ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN VOCALIC R")
-    (ucs		. #x0F76)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	#x0FB2 #x0F80)
     (mirrored		. nil)
+    (->decomposition	#x0FB2 #x0F80)
+    (=ucs		. #x0F76)	; ྲྀ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN VOCALIC RR")
-    (ucs		. #x0F77)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	compat #x0FB2 #x0F81)
     (mirrored		. nil)
+    (->decomposition	compat #x0FB2 #x0F81)
+    (=ucs		. #x0F77)	; ཷ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN VOCALIC L")
-    (ucs		. #x0F78)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	#x0FB3 #x0F80)
     (mirrored		. nil)
+    (->decomposition	#x0FB3 #x0F80)
+    (=ucs		. #x0F78)	; ླྀ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN VOCALIC LL")
-    (ucs		. #x0F79)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	compat #x0FB3 #x0F81)
     (mirrored		. nil)
+    (->decomposition	compat #x0FB3 #x0F81)
+    (=ucs		. #x0F79)	; ཹ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN E")
-    (ucs		. #x0F7A)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F7A)	; ེ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN EE")
-    (ucs		. #x0F7B)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F7B)	; ཻ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN O")
-    (ucs		. #x0F7C)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F7C)	; ོ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN OO")
-    (ucs		. #x0F7D)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F7D)	; ཽ
     ))
 (define-char
   '((name		. "TIBETAN SIGN RJES SU NGA RO")
-    (ucs		. #x0F7E)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "je su nga ro")
+    (=ucs		. #x0F7E)	; ཾ
     ))
 (define-char
   '((name		. "TIBETAN SIGN RNAM BCAD")
-    (ucs		. #x0F7F)
     (general-category	mark spacing-combining) ; Normative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "nam chey")
+    (=ucs		. #x0F7F)	; ཿ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN REVERSED I")
-    (ucs		. #x0F80)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F80)	; ྀ
     ))
 (define-char
   '((name		. "TIBETAN VOWEL SIGN REVERSED II")
-    (ucs		. #x0F81)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	#x0F71 #x0F80)
     (mirrored		. nil)
+    (->decomposition	#x0F71 #x0F80)
+    (=ucs		. #x0F81)	; ཱྀ
     ))
 (define-char
   '((name		. "TIBETAN SIGN NYI ZLA NAA DA")
-    (ucs		. #x0F82)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "nyi da na da")
+    (=ucs		. #x0F82)	; ྂ
     ))
 (define-char
   '((name		. "TIBETAN SIGN SNA LDAN")
-    (ucs		. #x0F83)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "nan de")
+    (=ucs		. #x0F83)	; ྃ
     ))
 (define-char
   '((name		. "TIBETAN MARK HALANTA")
-    (ucs		. #x0F84)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F84)	; ྄
     ))
 (define-char
   '((name		. "TIBETAN MARK PALUTA")
-    (ucs		. #x0F85)
     (general-category	punctuation other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0F85)	; ྅
     ))
 (define-char
   '((name		. "TIBETAN SIGN LCI RTAGS")
-    (ucs		. #x0F86)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "ji ta")
+    (=ucs		. #x0F86)	; ྆
     ))
 (define-char
   '((name		. "TIBETAN SIGN YANG RTAGS")
-    (ucs		. #x0F87)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "yang ta")
+    (=ucs		. #x0F87)	; ྇
     ))
 (define-char
   '((name		. "TIBETAN SIGN LCE TSA CAN")
-    (ucs		. #x0F88)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "che tsa chen")
+    (=ucs		. #x0F88)	; ྈ
     ))
 (define-char
   '((name		. "TIBETAN SIGN MCHU CAN")
-    (ucs		. #x0F89)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "chu chen")
+    (=ucs		. #x0F89)	; ྉ
     ))
 (define-char
   '((name		. "TIBETAN SIGN GRU CAN RGYINGS")
-    (ucs		. #x0F8A)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "tru chen ging")
+    (=ucs		. #x0F8A)	; ྊ
     ))
 (define-char
   '((name		. "TIBETAN SIGN GRU MED RGYINGS")
-    (ucs		. #x0F8B)
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "tru me ging")
+    (=ucs		. #x0F8B)	; ྋ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER KA")
-    (ucs		. #x0F90)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F90)	; ྐ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER KHA")
-    (ucs		. #x0F91)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F91)	; ྑ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER GA")
-    (ucs		. #x0F92)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F92)	; ྒ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER GHA")
-    (ucs		. #x0F93)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	#x0F92 #x0FB7)
     (mirrored		. nil)
+    (->decomposition	#x0F92 #x0FB7)
+    (=ucs		. #x0F93)	; ྒྷ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER NGA")
-    (ucs		. #x0F94)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F94)	; ྔ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER CA")
-    (ucs		. #x0F95)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F95)	; ྕ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER CHA")
-    (ucs		. #x0F96)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F96)	; ྖ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER JA")
-    (ucs		. #x0F97)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F97)	; ྗ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER NYA")
-    (ucs		. #x0F99)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F99)	; ྙ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER TTA")
-    (ucs		. #x0F9A)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F9A)	; ྚ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER TTHA")
-    (ucs		. #x0F9B)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F9B)	; ྛ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER DDA")
-    (ucs		. #x0F9C)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F9C)	; ྜ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER DDHA")
-    (ucs		. #x0F9D)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	#x0F9C #x0FB7)
     (mirrored		. nil)
+    (->decomposition	#x0F9C #x0FB7)
+    (=ucs		. #x0F9D)	; ྜྷ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER NNA")
-    (ucs		. #x0F9E)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F9E)	; ྞ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER TA")
-    (ucs		. #x0F9F)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0F9F)	; ྟ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER THA")
-    (ucs		. #x0FA0)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FA0)	; ྠ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER DA")
-    (ucs		. #x0FA1)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FA1)	; ྡ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER DHA")
-    (ucs		. #x0FA2)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	#x0FA1 #x0FB7)
     (mirrored		. nil)
+    (->decomposition	#x0FA1 #x0FB7)
+    (=ucs		. #x0FA2)	; ྡྷ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER NA")
-    (ucs		. #x0FA3)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FA3)	; ྣ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER PA")
-    (ucs		. #x0FA4)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FA4)	; ྤ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER PHA")
-    (ucs		. #x0FA5)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FA5)	; ྥ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER BA")
-    (ucs		. #x0FA6)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FA6)	; ྦ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER BHA")
-    (ucs		. #x0FA7)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	#x0FA6 #x0FB7)
     (mirrored		. nil)
+    (->decomposition	#x0FA6 #x0FB7)
+    (=ucs		. #x0FA7)	; ྦྷ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER MA")
-    (ucs		. #x0FA8)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FA8)	; ྨ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER TSA")
-    (ucs		. #x0FA9)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FA9)	; ྩ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER TSHA")
-    (ucs		. #x0FAA)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FAA)	; ྪ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER DZA")
-    (ucs		. #x0FAB)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FAB)	; ྫ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER DZHA")
-    (ucs		. #x0FAC)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	#x0FAB #x0FB7)
     (mirrored		. nil)
+    (->decomposition	#x0FAB #x0FB7)
+    (=ucs		. #x0FAC)	; ྫྷ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER WA")
-    (ucs		. #x0FAD)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "*")
+    (=ucs		. #x0FAD)	; ྭ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER ZHA")
-    (ucs		. #x0FAE)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FAE)	; ྮ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER ZA")
-    (ucs		. #x0FAF)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FAF)	; ྯ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER -A")
-    (ucs		. #x0FB0)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FB0)	; ྰ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER YA")
-    (ucs		. #x0FB1)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (iso-10646-comment	. "*")
+    (=ucs		. #x0FB1)	; ྱ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER RA")
-    (ucs		. #x0FB2)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (iso-10646-comment	. "*")
+    (=ucs		. #x0FB2)	; ྲ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER LA")
-    (ucs		. #x0FB3)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FB3)	; ླ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER SHA")
-    (ucs		. #x0FB4)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FB4)	; ྴ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER SSA")
-    (ucs		. #x0FB5)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FB5)	; ྵ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER SA")
-    (ucs		. #x0FB6)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FB6)	; ྶ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER HA")
-    (ucs		. #x0FB7)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FB7)	; ྷ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER A")
-    (ucs		. #x0FB8)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
+    (=ucs		. #x0FB8)	; ྸ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER KSSA")
-    (ucs		. #x0FB9)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
-    (->decomposition	#x0F90 #x0FB5)
     (mirrored		. nil)
+    (->decomposition	#x0F90 #x0FB5)
+    (=ucs		. #x0FB9)	; ྐྵ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER FIXED-FORM WA")
-    (ucs		. #x0FBA)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (iso-10646-comment	. "*")
+    (=ucs		. #x0FBA)	; ྺ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER FIXED-FORM YA")
-    (ucs		. #x0FBB)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (iso-10646-comment	. "*")
+    (=ucs		. #x0FBB)	; ྻ
     ))
 (define-char
   '((name		. "TIBETAN SUBJOINED LETTER FIXED-FORM RA")
-    (ucs		. #x0FBC)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
-    (iso-10646-comment	. "*")
+    (=ucs		. #x0FBC)	; ྼ
     ))
 (define-char
   '((name		. "TIBETAN KU RU KHA")
-    (ucs		. #x0FBE)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "kuruka")
+    (=ucs		. #x0FBE)	; ྾
     ))
 (define-char
   '((name		. "TIBETAN KU RU KHA BZHI MIG CAN")
-    (ucs		. #x0FBF)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "kuruka shi mik chen")
+    (=ucs		. #x0FBF)	; ྿
     ))
 (define-char
   '((name		. "TIBETAN CANTILLATION SIGN HEAVY BEAT")
-    (ucs		. #x0FC0)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0FC0)	; ࿀
     ))
 (define-char
   '((name		. "TIBETAN CANTILLATION SIGN LIGHT BEAT")
-    (ucs		. #x0FC1)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0FC1)	; ࿁
     ))
 (define-char
   '((name		. "TIBETAN CANTILLATION SIGN CANG TE-U")
-    (ucs		. #x0FC2)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "chang tyu")
+    (=ucs		. #x0FC2)	; ࿂
     ))
 (define-char
   '((name		. "TIBETAN CANTILLATION SIGN SBUB -CHAL")
-    (ucs		. #x0FC3)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "bub chey")
+    (=ucs		. #x0FC3)	; ࿃
     ))
 (define-char
   '((name		. "TIBETAN SYMBOL DRIL BU")
-    (ucs		. #x0FC4)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "drilbu")
+    (=ucs		. #x0FC4)	; ࿄
     ))
 (define-char
   '((name		. "TIBETAN SYMBOL RDO RJE")
-    (ucs		. #x0FC5)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "dorje")
+    (=ucs		. #x0FC5)	; ࿅
     ))
 (define-char
   '((name		. "TIBETAN SYMBOL PADMA GDAN")
-    (ucs		. #x0FC6)
     (general-category	mark non-spacing) ; Normative Category
     (bidi-category	. "NSM")
     (mirrored		. nil)
     (iso-10646-comment	. "pema den")
+    (=ucs		. #x0FC6)	; ࿆
     ))
 (define-char
   '((name		. "TIBETAN SYMBOL RDO RJE RGYA GRAM")
-    (ucs		. #x0FC7)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "dorje gya dram")
+    (=ucs		. #x0FC7)	; ࿇
     ))
 (define-char
   '((name		. "TIBETAN SYMBOL PHUR PA")
-    (ucs		. #x0FC8)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "phurba")
+    (=ucs		. #x0FC8)	; ࿈
     ))
 (define-char
   '((name		. "TIBETAN SYMBOL NOR BU")
-    (ucs		. #x0FC9)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "norbu")
+    (=ucs		. #x0FC9)	; ࿉
     ))
 (define-char
   '((name		. "TIBETAN SYMBOL NOR BU NYIS -KHYIL")
-    (ucs		. #x0FCA)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "norbu nyi khyi")
+    (=ucs		. #x0FCA)	; ࿊
     ))
 (define-char
   '((name		. "TIBETAN SYMBOL NOR BU GSUM -KHYIL")
-    (ucs		. #x0FCB)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "norbu sum khyi")
+    (=ucs		. #x0FCB)	; ࿋
     ))
 (define-char
   '((name		. "TIBETAN SYMBOL NOR BU BZHI -KHYIL")
-    (ucs		. #x0FCC)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
     (iso-10646-comment	. "norbu shi khyi")
+    (=ucs		. #x0FCC)	; ࿌
     ))
 (define-char
   '((name		. "TIBETAN SIGN RDEL NAG GSUM")
-    (ucs		. #x0FCF)
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
+    (=ucs		. #x0FCF)	; ࿏
     ))