Sync up with r21-4-21-chise-0_24-4.

diff --git a/lisp/utf-2000/ChangeLog b/lisp/utf-2000/ChangeLog
index f23a4ab..7ba9130 100644 (file)
--- a/lisp/utf-2000/ChangeLog
+++ b/lisp/utf-2000/ChangeLog
@@ -1,3 +1,11 @@
+2008-09-06  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+       * u020A0-Currency-Symbols.el (<EURO SIGN>): Use `->denotational'
+       to separate JX1-2921 and B-A3E1.
+
+       * u02000-General-Punctuation.el (<TWO ASTERISKS ALIGNED
+       VERTICALLY>): Use `->denotational' to separate JX1-2C7D.
+
 2008-09-04  MORIOKA Tomohiko  <tomo@kanji.zinbun.kyoto-u.ac.jp>
 
        * Ideograph-R085-Water.el (B-D24C): Moved to U+6D58.

diff --git a/lisp/utf-2000/u02000-General-Punctuation.el b/lisp/utf-2000/u02000-General-Punctuation.el
index 277f968..0eaa954 100644 (file)
--- a/lisp/utf-2000/u02000-General-Punctuation.el
+++ b/lisp/utf-2000/u02000-General-Punctuation.el
@@ -1114,7 +1114,18 @@
 (define-char
   '((name              . "TWO ASTERISKS ALIGNED VERTICALLY")
     (=ucs              . #x2051)       ; ⁑
-    (=jis-x0213-1-2000 . #x2C7D)       ; &I-JX1-2C7D; [12-93]
+    ))
+(define-char
+  '((<-denotational
+     ((name              . "TWO ASTERISKS ALIGNED VERTICALLY")
+      (=ucs              . #x2051)     ; ⁑
+      ))
+    (=jis-x0213-1-2000 . #x2C7D)       ; &JX1-2C7D; [12-93]
+    (=ucs@jis          . #x2051)       ; &JX1-2C7D;
+    (<-fullwidth
+     ((name              . "TWO ASTERISKS ALIGNED VERTICALLY")
+      (=ucs              . #x2051)     ; ⁑
+      ))
     ))
 (define-char
   '((name              . "INHIBIT SYMMETRIC SWAPPING")

diff --git a/lisp/utf-2000/u020A0-Currency-Symbols.el b/lisp/utf-2000/u020A0-Currency-Symbols.el
index 3879647..99b7594 100644 (file)
--- a/lisp/utf-2000/u020A0-Currency-Symbols.el
+++ b/lisp/utf-2000/u020A0-Currency-Symbols.el
@@ -100,8 +100,19 @@
     (bidi-category     . "ET")
     (mirrored          . nil)
     (=ucs              . #x20AC)       ; €
-    (=jis-x0213-1-2000 . #x2921)       ; &I-JX1-2921; [09-01]
+    ))
+(define-char
+  '((<-denotational
+     ((name              . "EURO SIGN")
+      (=ucs              . #x20AC)     ; €
+      ))
+    (=jis-x0213-1-2000 . #x2921)       ; &JX1-2921; [09-01]
     (=big5             . #xA3E1)       ; &I-B-A3E1;
+    (=ucs@jis          . #x20AC)       ; &JX1-2921;
+    (<-fullwidth
+     ((name              . "EURO SIGN")
+      (=ucs              . #x20AC)     ; €
+      ))
     ))
 (define-char
   '((name              . "KIP SIGN")