(g2-UU+5B73): Add `=decomposition@hanyo-denshi'.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / u020A0-Currency-Symbols.el

diff --git a/lisp/utf-2000/u020A0-Currency-Symbols.el b/lisp/utf-2000/u020A0-Currency-Symbols.el
index 93efdd1..7807665 100644 (file)
--- a/lisp/utf-2000/u020A0-Currency-Symbols.el
+++ b/lisp/utf-2000/u020A0-Currency-Symbols.el
@@ -1,4 +1,4 @@
-;; -*- coding: utf-8-mcs -*-
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name              . "EURO-CURRENCY SIGN")
     (general-category  symbol currency) ; Informative Category
@@ -60,7 +60,13 @@
     (general-category  symbol currency) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
-    (->decomposition   compat #x0052 #x0073)
+    (=>decomposition@compat
+     ((name              . "LATIN CAPITAL LETTER R")
+      (=ucs              . #x0052)     ; R
+      )
+     ((name              . "LATIN SMALL LETTER S")
+      (=ucs              . #x0073)     ; s
+      ))
     (=ucs              . #x20A8)       ; ₨
     ))
 (define-char
@@ -68,11 +74,11 @@
     (general-category  symbol currency) ; Informative Category
     (bidi-category     . "ET")
     (mirrored          . nil)
+    (=ucs              . #x20A9)       ; ₩
     (->fullwidth
      ((name              . "FULLWIDTH WON SIGN")
       (=ucs              . #xFFE6)     ; ￦
       ))
-    (=ucs              . #x20A9)       ; ₩
     ))
 (define-char
   '((name              . "NEW SHEQEL SIGN")
@@ -94,8 +100,19 @@
     (bidi-category     . "ET")
     (mirrored          . nil)
     (=ucs              . #x20AC)       ; €
-    (=jis-x0213-1-2000 . #x2921)       ; �����
-    (=big5             . #xA3E1)       ; ������
+    ))
+(define-char
+  '((<-denotational
+     ((name              . "EURO SIGN")
+      (=ucs              . #x20AC)     ; €
+      ))
+    (=ucs@jis          . #x20AC)       ; &JX1-2921;
+    (=jis-x0213-1      . #x2921)       ; &JX1-2921; [09-01]
+    (=big5             . #xA3E1)       ; &I-B-A3E1;
+    (<-fullwidth
+     ((name              . "EURO SIGN")
+      (=ucs              . #x20AC)     ; €
+      ))
     ))
 (define-char
   '((name              . "KIP SIGN")