X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02100-Letterlike-Symbols.el;h=19d8c0dc1e41e2e552d547a5f785b02539d50891;hb=867a2ab4d39e6a0e82f6b3d347f9e65dbb04d916;hp=ef63324b557a826c1898eda2505dce56a5527c49;hpb=e7783ccc5c7b4545f4afab9e1748b38e17aff09c;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/u02100-Letterlike-Symbols.el b/lisp/utf-2000/u02100-Letterlike-Symbols.el
index ef63324..19d8c0d 100644
--- a/lisp/utf-2000/u02100-Letterlike-Symbols.el
+++ b/lisp/utf-2000/u02100-Letterlike-Symbols.el
@@ -30,11 +30,24 @@
     (mirrored		. nil)
     (->decomposition	compat #x00B0 #x0043)
     (=ucs		. #x2103)	; ℃
-    (=jis-x0208		. #x216E)	; &I-J90-216E;
-    (=gb2312		. #x2166)	; &I-G0-2166;
-    (=ks-x1001		. #x2149)	; &I-K0-2149;
-    (=cns11643-1	. #x226A)	; &I-C1-226A;
+    ))
+(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")
@@ -50,8 +63,21 @@
     (mirrored		. nil)
     (->decomposition	compat #x0063 #x002F #x006F)
     (=ucs		. #x2105)	; ℅
-    (=cns11643-1	. #x2222)	; &I-C1-2222;
+    ))
+(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")
@@ -83,8 +109,19 @@
     (mirrored		. nil)
     (->decomposition	compat #x00B0 #x0046)
     (=ucs		. #x2109)	; ℉
-    (=ks-x1001		. #x2235)	; &I-K0-2235;
-    (=cns11643-1	. #x226B)	; &I-C1-226B;
+    ))
+(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
@@ -134,7 +171,18 @@
     (mirrored		. nil)
     (->decomposition	font #x0127)
     (=ucs		. #x210F)	; ℏ
-    (=jis-x0213-1-2000	. #x235D)	; &I-JX1-235D;
+    ))
+(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")
@@ -167,8 +215,20 @@
     (mirrored		. nil)
     (->decomposition	font #x006C)
     (=ucs		. #x2113)	; ℓ
-    (=ks-x1001		. #x2724)	; &I-K0-2724;
-    (=jis-x0213-1-2000	. #x235F)	; &I-JX1-235F;
+    ))
+(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")
@@ -192,20 +252,23 @@
     (mirrored		. nil)
     (->decomposition	compat #x004E #x006F)
     (=ucs		. #x2116)	; №
-    (=gb2312		. #x216D)	; &I-G0-216D;
-    (=ks-x1001		. #x2260)	; &I-K0-2260;
-    (=jis-x0212		. #x2271)	; &I-JSP-2271;
-    (=jis-x0213-1-2000	. #x2D62)	; &I-JX1-2D62;
+    (cyrillic-iso8859-5 . #xF0)	; &I-CYRILLIC-70;
+    ))
+(define-char
+  '((<-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;
-    ))
-(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)	; &CYRILLIC-70;
+    (=ucs@unicode	. #x2116)	; &JX1-2D62;
     ))
 (define-char
   '((name		. "SOUND RECORDING COPYRIGHT")
@@ -290,9 +353,20 @@
     (mirrored		. nil)
     (->decomposition	compat #x0054 #x0045 #x004C)
     (=ucs		. #x2121)	; ℡
-    (=ks-x1001		. #x2265)	; &I-K0-2265;
-    (=jis-x0213-1-2000	. #x2D64)	; &I-JX1-2D64;
+    ))
+(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")
@@ -301,8 +375,20 @@
     (mirrored		. nil)
     (->decomposition	super #x0054 #x004D)
     (=ucs		. #x2122)	; ™
-    (=ks-x1001		. #x2262)	; &I-K0-2262;
-    (=jis-x0212		. #x226F)	; &I-JSP-226F;
+    ))
+(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")
@@ -333,7 +419,17 @@
     (mirrored		. nil)
     (->decomposition	#x03A9)
     (=ucs		. #x2126)	; Ω
-    (=ks-x1001		. #x2759)	; &I-K0-2759;
+    ))
+(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")
@@ -341,7 +437,18 @@
     (bidi-category	. "ON")
     (mirrored		. nil)
     (=ucs		. #x2127)	; ℧
-    (=jis-x0213-1-2000	. #x2360)	; &I-JX1-2360;
+    ))
+(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")
@@ -373,9 +480,20 @@
     (mirrored		. nil)
     (->decomposition	#x00C5)
     (=ucs		. #x212B)	; Å
-    (=jis-x0208-1983	. #x2272)	; &I-J83-2272;
-    (=ks-x1001		. #x214A)	; &I-K0-214A;
-    (=jis-x0208-1990	. #x2272)	; &I-J90-2272;
+    ))
+(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")
@@ -454,7 +572,18 @@
     (mirrored		. nil)
     (->decomposition	compat #x05D0)
     (=ucs		. #x2135)	; ℵ
-    (=jis-x0213-1-2000	. #x235C)	; &I-JX1-235C;
+    ))
+(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")