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

diff --git a/lisp/utf-2000/u020A0-Currency-Symbols.el b/lisp/utf-2000/u020A0-Currency-Symbols.el
index fbc00bd..7807665 100644
--- a/lisp/utf-2000/u020A0-Currency-Symbols.el
+++ b/lisp/utf-2000/u020A0-Currency-Symbols.el
@@ -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)	; &I-JX1-2921;
+    ))
+(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")