X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Futf-2000%2Fu020A0-Currency-Symbols.el;h=780766559a8aea249867d8577d7ce6f8e8ee29a4;hp=d5d241489badfd667095b115a994a1c73295439b;hb=8ba3626da629f1b4ecafae24c85f3d0cb3bf8b8e;hpb=dcdb09ceba33dafef889d5b01f97d0e576a89361

diff --git a/lisp/utf-2000/u020A0-Currency-Symbols.el b/lisp/utf-2000/u020A0-Currency-Symbols.el
index d5d2414..7807665 100644
--- 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")
@@ -93,11 +99,22 @@
     (general-category	symbol currency) ; Informative Category
     (bidi-category	. "ET")
     (mirrored		. nil)
-    (=jis-x0213-1-2000	. #x2921)	; ø»¢ž¬
-    (=big5		. #xA3E1)	; ý¢€Š¡
     (=ucs		. #x20AC)	; €
     ))
 (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")
     (general-category	symbol currency) ; Informative Category
     (bidi-category	. "ET")