X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu02190-Arrows.el;h=2400feba95979579f56db22d842e1e46f27c0de2;hb=a26a779273f5ec0621cf6902d47ee615a25fdca4;hp=f1894c0ca7574cde1c0c1f4bbfb9aa336d3ce0c6;hpb=29df261f28153f15bc0e35b1bcba9d677dd7e65a;p=chise%2Fxemacs-chise.git

diff --git a/lisp/utf-2000/u02190-Arrows.el b/lisp/utf-2000/u02190-Arrows.el
index f1894c0..2400feb 100644
--- a/lisp/utf-2000/u02190-Arrows.el
+++ b/lisp/utf-2000/u02190-Arrows.el
@@ -256,7 +256,13 @@
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	#x2190 #x0338)
+    (=decomposition
+     ((name		  . "LEFTWARDS ARROW")
+      (=ucs		  . #x2190)	; ←
+      )
+     ((name		  . "COMBINING LONG SOLIDUS OVERLAY")
+      (=ucs		  . #x0338)	; ̸
+      ))
     (=ucs		. #x219A)	; ↚
     ))
 (define-char
@@ -264,7 +270,13 @@
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	#x2192 #x0338)
+    (=decomposition
+     ((name		  . "RIGHTWARDS ARROW")
+      (=ucs		  . #x2192)	; →
+      )
+     ((name		  . "COMBINING LONG SOLIDUS OVERLAY")
+      (=ucs		  . #x0338)	; ̸
+      ))
     (=ucs		. #x219B)	; ↛
     ))
 (define-char
@@ -398,7 +410,13 @@
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	#x2194 #x0338)
+    (=decomposition
+     ((name		  . "LEFT RIGHT ARROW")
+      (=ucs		  . #x2194)	; ↔
+      )
+     ((name		  . "COMBINING LONG SOLIDUS OVERLAY")
+      (=ucs		  . #x0338)	; ̸
+      ))
     (=ucs		. #x21AE)	; ↮
     ))
 (define-char
@@ -652,7 +670,13 @@
     (general-category	symbol other) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	#x21D0 #x0338)
+    (=decomposition
+     ((name		  . "LEFTWARDS DOUBLE ARROW")
+      (=ucs		  . #x21D0)	; ⇐
+      )
+     ((name		  . "COMBINING LONG SOLIDUS OVERLAY")
+      (=ucs		  . #x0338)	; ̸
+      ))
     (=ucs		. #x21CD)	; ⇍
     ))
 (define-char
@@ -660,7 +684,13 @@
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	#x21D4 #x0338)
+    (=decomposition
+     ((name		  . "LEFT RIGHT DOUBLE ARROW")
+      (=ucs		  . #x21D4)	; ⇔
+      )
+     ((name		  . "COMBINING LONG SOLIDUS OVERLAY")
+      (=ucs		  . #x0338)	; ̸
+      ))
     (=ucs		. #x21CE)	; ⇎
     ))
 (define-char
@@ -668,7 +698,13 @@
     (general-category	symbol math) ; Informative Category
     (bidi-category	. "ON")
     (mirrored		. nil)
-    (->decomposition	#x21D2 #x0338)
+    (=decomposition
+     ((name		  . "RIGHTWARDS DOUBLE ARROW")
+      (=ucs		  . #x21D2)	; ⇒
+      )
+     ((name		  . "COMBINING LONG SOLIDUS OVERLAY")
+      (=ucs		  . #x0338)	; ̸
+      ))
     (=ucs		. #x21CF)	; ⇏
     ))
 (define-char