X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02100-Letterlike-Symbols.el;h=19d8c0dc1e41e2e552d547a5f785b02539d50891;hb=d440887810c6745e482fae32ac0d4f16e706bd34;hp=4c9d963d4aad27d5c8285c6e85171dffc58dc416;hpb=dcdb09ceba33dafef889d5b01f97d0e576a89361;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u02100-Letterlike-Symbols.el b/lisp/utf-2000/u02100-Letterlike-Symbols.el
index 4c9d963..19d8c0d 100644
--- a/lisp/utf-2000/u02100-Letterlike-Symbols.el
+++ b/lisp/utf-2000/u02100-Letterlike-Symbols.el
@@ -1,4 +1,4 @@
-;; -*- coding: utf-8-mcs -*-
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name		. "ACCOUNT OF")
     (general-category	symbol other) ; Informative Category
@@ -29,14 +29,27 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	compat #x00B0 #x0043)
-    (=gb2312		. #x2166)	; ø»„‡‰
-    (=jis-x0208		. #x216E)	; ø½‰·‰
-    (=ks-x1001		. #x2149)	; ø»ˆš´
-    (=cns11643-1	. #x226A)	; ø»‘…ƒ
-    (=big5		. #xA24A)	; ý¢€Š‰Š
     (=ucs		. #x2103)	; ℃
     ))
 (define-char
+  '((->decomposition	compat #x00B0 #xFF23)
+    (<-denotational
+     ((name		  . "DEGREE CELSIUS")
+      (=ucs		  . #x2103)	; ℃
+      ))
+    (<-fullwidth
+     ((name		  . "DEGREE CELSIUS")
+      (=ucs		  . #x2103)	; ℃
+      ))
+    (=jis-x0208		. #x216E)	; &J90-216E; [01-78]
+    (=gb2312		. #x2166)	; &I-G0-2166; [01-70]
+    (=ks-x1001		. #x2149)	; &I-K0-2149; [01-41]
+    (=cns11643-1	. #x226A)	; &I-C1-226A; [02-74]
+    (=big5		. #xA24A)	; &I-B-A24A;
+    (=ucs@gb		. #x2103)	; &J90-216E;
+    (=ucs@jis		. #x2103)	; &J90-216E;
+    ))
+(define-char
   '((name		. "CENTRE LINE SYMBOL")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -49,11 +62,24 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	compat #x0063 #x002F #x006F)
-    (=cns11643-1	. #x2222)	; ø»‘ƒ»
-    (=big5		. #xA1C1)	; ý¢€Š‡
     (=ucs		. #x2105)	; ℅
     ))
 (define-char
+  '((->decomposition	compat #x0063 #xFF0F #x006F)
+    (<-denotational
+     ((name		  . "CARE OF")
+      (=ucs		  . #x2105)	; ℅
+      ))
+    (<-fullwidth
+     ((name		  . "CARE OF")
+      (=ucs		  . #x2105)	; ℅
+      ))
+    (=cns11643-1	. #x2222)	; &C1-2222; [02-02]
+    (=big5		. #xA1C1)	; &I-B-A1C1;
+    (=ucs@cns		. #x2105)	; &C1-2222;
+    (=ucs@big5		. #x2105)	; &C1-2222;
+    ))
+(define-char
   '((name		. "CADA UNA")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -82,12 +108,23 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	compat #x00B0 #x0046)
-    (=ks-x1001		. #x2235)	; ø»ˆ›¾
-    (=cns11643-1	. #x226B)	; ø»‘…„
-    (=big5		. #xA24B)	; ý¢€Š‰‹
     (=ucs		. #x2109)	; ℉
     ))
 (define-char
+  '((->decomposition	compat #x00B0 #xFF26)
+    (<-denotational
+     ((name		  . "DEGREE FAHRENHEIT")
+      (=ucs		  . #x2109)	; ℉
+      ))
+    (<-fullwidth
+     ((name		  . "DEGREE FAHRENHEIT")
+      (=ucs		  . #x2109)	; ℉
+      ))
+    (=ks-x1001		. #x2235)	; &C1-226B; [02-21]
+    (=cns11643-1	. #x226B)	; &I-C1-226B; [02-75]
+    (=big5		. #xA24B)	; &I-B-A24B;
+    ))
+(define-char
   '((name		. "SCRIPT SMALL G")
     (general-category	letter lowercase) ; Normative Category
     (bidi-category	. "L")
@@ -133,10 +170,21 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (->decomposition	font #x0127)
-    (=jis-x0213-1-2000	. #x235D)	; ø»¢–´
     (=ucs		. #x210F)	; ℏ
     ))
 (define-char
+  '((<-denotational
+     ((name		  . "PLANCK CONSTANT OVER TWO PI")
+      (=ucs		  . #x210F)	; ℏ
+      ))
+    (<-fullwidth
+     ((name		  . "PLANCK CONSTANT OVER TWO PI")
+      (=ucs		  . #x210F)	; ℏ
+      ))
+    (=jis-x0213-1-2000	. #x235D)	; &JX1-235D; [03-61]
+    (=ucs@jis/fw	. #x210F)	; &JX1-235D;
+    ))
+(define-char
   '((name		. "SCRIPT CAPITAL I")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
@@ -166,11 +214,23 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (->decomposition	font #x006C)
-    (=ks-x1001		. #x2724)	; ø»ˆ£ƒ
-    (=jis-x0213-1-2000	. #x235F)	; ø»¢–¶
     (=ucs		. #x2113)	; ℓ
     ))
 (define-char
+  '((->decomposition	font #xFF4C)
+    (<-denotational
+     ((name		  . "SCRIPT SMALL L")
+      (=ucs		  . #x2113)	; ℓ
+      ))
+    (<-fullwidth
+     ((name		  . "SCRIPT SMALL L")
+      (=ucs		  . #x2113)	; ℓ
+      ))
+    (=ks-x1001		. #x2724)	; &JX1-235F; [07-04]
+    (=jis-x0213-1-2000	. #x235F)	; &I-JX1-235F; [03-63]
+    (=ucs@jis/fw	. #x2113)	; &JX1-235F;
+    ))
+(define-char
   '((name		. "L B BAR SYMBOL")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -191,21 +251,24 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	compat #x004E #x006F)
-    (=gb2312		. #x216D)	; ø»„‡
-    (=ks-x1001		. #x2260)	; ø»ˆœ©
-    (=jis-x0212		. #x2271)	; ø»Š¦¾
-    (=jis-x0213-1-2000	. #x2D62)	; ø»¢¥¥
-    (=big5-eten		. #xC8D2)	; ý¢€Œ£’
     (=ucs		. #x2116)	; №
+    (cyrillic-iso8859-5 . #xF0)	; &I-CYRILLIC-70;
     ))
 (define-char
-  '((name		. "halfwidth numero sign")
-    (=>ucs		. #x2116)	; №
-    (general-category	symbol other) ; Informative Category
-    (bidi-category	. "ON")
-    (mirrored		. nil)
-    (->decomposition	narrow #x2116)
-    (cyrillic-iso8859-5 . #xF0)	; øº“…°
+  '((<-denotational
+     ((name		  . "NUMERO SIGN")
+      (=ucs		  . #x2116)	; №
+      ))
+    (<-fullwidth
+     ((name		  . "NUMERO SIGN")
+      (=ucs		  . #x2116)	; №
+      ))
+    (=gb2312		. #x216D)	; &JX1-2D62; [01-77]
+    (=ks-x1001		. #x2260)	; &I-K0-2260; [02-64]
+    (=jis-x0212		. #x2271)	; &I-JSP-2271; [02-81]
+    (=jis-x0213-1-2000	. #x2D62)	; &I-JX1-2D62; [13-66]
+    (=big5-eten		. #xC8D2)	; &B-C8D2;
+    (=ucs@unicode	. #x2116)	; &JX1-2D62;
     ))
 (define-char
   '((name		. "SOUND RECORDING COPYRIGHT")
@@ -289,22 +352,45 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	compat #x0054 #x0045 #x004C)
-    (=ks-x1001		. #x2265)	; ø»ˆœ®
-    (=jis-x0213-1-2000	. #x2D64)	; ø»¢¥§
-    (=big5-eten		. #xC8D3)	; ý¢€Œ£“
     (=ucs		. #x2121)	; ℡
     ))
 (define-char
+  '((<-denotational
+     ((name		  . "TELEPHONE SIGN")
+      (=ucs		  . #x2121)	; ℡
+      ))
+    (<-fullwidth
+     ((name		  . "TELEPHONE SIGN")
+      (=ucs		  . #x2121)	; ℡
+      ))
+    (=ks-x1001		. #x2265)	; &JX1-2D64; [02-69]
+    (=jis-x0213-1-2000	. #x2D64)	; &I-JX1-2D64; [13-68]
+    (=big5-eten		. #xC8D3)	; &B-C8D3;
+    (=ucs@unicode	. #x2121)	; &JX1-2D64;
+    ))
+(define-char
   '((name		. "TRADE MARK SIGN")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
     (->decomposition	super #x0054 #x004D)
-    (=ks-x1001		. #x2262)	; ø»ˆœ«
-    (=jis-x0212		. #x226F)	; ø»Š¦¼
     (=ucs		. #x2122)	; ™
     ))
 (define-char
+  '((->decomposition	super #xFF34 #xFF2D)
+    (<-denotational
+     ((name		  . "TRADE MARK SIGN")
+      (=ucs		  . #x2122)	; ™
+      ))
+    (<-fullwidth
+     ((name		  . "TRADE MARK SIGN")
+      (=ucs		  . #x2122)	; ™
+      ))
+    (=ks-x1001		. #x2262)	; &JSP-226F; [02-66]
+    (=jis-x0212		. #x226F)	; &I-JSP-226F; [02-79]
+    (=ucs@jis		. #x2122)	; &JSP-226F;
+    ))
+(define-char
   '((name		. "VERSICLE")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
@@ -332,18 +418,39 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (->decomposition	#x03A9)
-    (=ks-x1001		. #x2759)	; ø»ˆ£¸
     (=ucs		. #x2126)	; Ω
     ))
 (define-char
+  '((<-denotational
+     ((name		  . "OHM SIGN")
+      (=ucs		  . #x2126)	; Ω
+      ))
+    (<-fullwidth
+     ((name		  . "OHM SIGN")
+      (=ucs		  . #x2126)	; Ω
+      ))
+    (=ks-x1001		. #x2759)	; &K0-2759; [07-57]
+    ))
+(define-char
   '((name		. "INVERTED OHM SIGN")
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (=jis-x0213-1-2000	. #x2360)	; ø»¢–·
     (=ucs		. #x2127)	; ℧
     ))
 (define-char
+  '((<-denotational
+     ((name		  . "INVERTED OHM SIGN")
+      (=ucs		  . #x2127)	; ℧
+      ))
+    (<-fullwidth
+     ((name		  . "INVERTED OHM SIGN")
+      (=ucs		  . #x2127)	; ℧
+      ))
+    (=jis-x0213-1-2000	. #x2360)	; &JX1-2360; [03-64]
+    (=ucs@jis/fw	. #x2127)	; &JX1-2360;
+    ))
+(define-char
   '((name		. "BLACK-LETTER CAPITAL Z")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
@@ -372,12 +479,23 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (->decomposition	#x00C5)
-    (=jis-x0208-1983	. #x2272)	; ø»†’·
-    (=ks-x1001		. #x214A)	; ø»ˆšµ
-    (=jis-x0208-1990	. #x2272)	; ø½‰¸«
     (=ucs		. #x212B)	; Å
     ))
 (define-char
+  '((<-denotational
+     ((name		  . "ANGSTROM SIGN")
+      (=ucs		  . #x212B)	; Å
+      ))
+    (<-fullwidth
+     ((name		  . "ANGSTROM SIGN")
+      (=ucs		  . #x212B)	; Å
+      ))
+    (=jis-x0208@1983	. #x2272)	; &J90-2272; [02-82]
+    (=ks-x1001		. #x214A)	; &I-K0-214A; [01-42]
+    (=jis-x0208@1990	. #x2272)	; &I-J90-2272; [02-82]
+    (=ucs@jis		. #x212B)	; &J90-2272;
+    ))
+(define-char
   '((name		. "SCRIPT CAPITAL B")
     (general-category	letter uppercase) ; Normative Category
     (bidi-category	. "L")
@@ -453,10 +571,21 @@
     (bidi-category	. "L")
     (mirrored		. nil)
     (->decomposition	compat #x05D0)
-    (=jis-x0213-1-2000	. #x235C)	; ø»¢–³
     (=ucs		. #x2135)	; ℵ
     ))
 (define-char
+  '((<-denotational
+     ((name		  . "ALEF SYMBOL")
+      (=ucs		  . #x2135)	; ℵ
+      ))
+    (<-fullwidth
+     ((name		  . "ALEF SYMBOL")
+      (=ucs		  . #x2135)	; ℵ
+      ))
+    (=jis-x0213-1-2000	. #x235C)	; &JX1-235C; [03-60]
+    (=ucs@jis		. #x2135)	; &JX1-235C;
+    ))
+(define-char
   '((name		. "BET SYMBOL")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")