X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu00600-Arabic.el;h=0def14750919d3d782e712fbc4e6bb0cc084d779;hb=1275b579da580df1bcc444b2bd55d295fd29af97;hp=f9f31f772a871f9f596421571b13502fec17eea6;hpb=2e06e736b01a36e62a7aa156347b42dcdef89e1e;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u00600-Arabic.el b/lisp/utf-2000/u00600-Arabic.el
index f9f31f7..0def147 100644
--- a/lisp/utf-2000/u00600-Arabic.el
+++ b/lisp/utf-2000/u00600-Arabic.el
@@ -1,4 +1,4 @@
-;; -*- coding: utf-8-mcs -*-
+;; -*- coding: utf-8-mcs-er -*-
 (define-char
   '((name		. "ARABIC COMMA")
     (general-category	punctuation other) ; Informative Category
@@ -6,7 +6,7 @@
     (mirrored		. nil)
     (=ucs		. #x060C)	; ،
     (arabic-iso8859-6	. #xAC)	; ،
-    (arabic-1-column	. #x25)	; øº©ž
+    (arabic-1-column	. #x25)	; &I-MULE-ARB1-25;
     ))
 (define-char
   '((name		. "ARABIC SEMICOLON")
@@ -15,7 +15,7 @@
     (mirrored		. nil)
     (=ucs		. #x061B)	; ؛
     (arabic-iso8859-6	. #xBB)	; ؛
-    (arabic-1-column	. #x28)	; øº©¡
+    (arabic-1-column	. #x28)	; &I-MULE-ARB1-28;
     ))
 (define-char
   '((name		. "ARABIC QUESTION MARK")
@@ -24,7 +24,7 @@
     (mirrored		. nil)
     (=ucs		. #x061F)	; ؟
     (arabic-iso8859-6	. #xBF)	; ؟
-    (arabic-1-column	. #x29)	; øº©¢
+    (arabic-1-column	. #x29)	; &I-MULE-ARB1-29;
     ))
 (define-char
   '((name		. "ARABIC LETTER HAMZA")
@@ -39,7 +39,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	#x0627 #x0653)
+    (=decomposition
+     ((name		  . "ARABIC LETTER ALEF")
+      (=ucs		  . #x0627)	; ا
+      )
+     ((name		  . "ARABIC MADDAH ABOVE")
+      (=ucs		  . #x0653)	; ٓ
+      ))
     (=ucs		. #x0622)	; آ
     (arabic-iso8859-6	. #xC2)	; آ
     ))
@@ -48,7 +54,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	#x0627 #x0654)
+    (=decomposition
+     ((name		  . "ARABIC LETTER ALEF")
+      (=ucs		  . #x0627)	; ا
+      )
+     ((name		  . "ARABIC HAMZA ABOVE")
+      (=ucs		  . #x0654)	; ٔ
+      ))
     (=ucs		. #x0623)	; أ
     (arabic-iso8859-6	. #xC3)	; أ
     ))
@@ -57,7 +69,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	#x0648 #x0654)
+    (=decomposition
+     ((name		  . "ARABIC LETTER WAW")
+      (=ucs		  . #x0648)	; و
+      )
+     ((name		  . "ARABIC HAMZA ABOVE")
+      (=ucs		  . #x0654)	; ٔ
+      ))
     (=ucs		. #x0624)	; ؤ
     (arabic-iso8859-6	. #xC4)	; ؤ
     ))
@@ -66,7 +84,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	#x0627 #x0655)
+    (=decomposition
+     ((name		  . "ARABIC LETTER ALEF")
+      (=ucs		  . #x0627)	; ا
+      )
+     ((name		  . "ARABIC HAMZA BELOW")
+      (=ucs		  . #x0655)	; ٕ
+      ))
     (=ucs		. #x0625)	; إ
     (arabic-iso8859-6	. #xC5)	; إ
     ))
@@ -75,7 +99,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	#x064A #x0654)
+    (=decomposition
+     ((name		  . "ARABIC LETTER YEH")
+      (=ucs		  . #x064A)	; ي
+      )
+     ((name		  . "ARABIC HAMZA ABOVE")
+      (=ucs		  . #x0654)	; ٔ
+      ))
     (=ucs		. #x0626)	; ئ
     (arabic-iso8859-6	. #xC6)	; ئ
     ))
@@ -421,7 +451,7 @@
     (digit-value	 . 0)
     (numeric-value	 . 0)
     (=ucs		. #x0660)	; Ù 
-    (arabic-digit	. #x21)	; øº§¼
+    (arabic-digit	. #x21)	; &I-MULE-ARBD-21;
     ))
 (define-char
   '((name		. "ARABIC-INDIC DIGIT ONE")
@@ -432,7 +462,7 @@
     (digit-value	 . 1)
     (numeric-value	 . 1)
     (=ucs		. #x0661)	; Ù¡
-    (arabic-digit	. #x22)	; øº§½
+    (arabic-digit	. #x22)	; &I-MULE-ARBD-22;
     ))
 (define-char
   '((name		. "ARABIC-INDIC DIGIT TWO")
@@ -443,7 +473,7 @@
     (digit-value	 . 2)
     (numeric-value	 . 2)
     (=ucs		. #x0662)	; Ù¢
-    (arabic-digit	. #x23)	; øº§¾
+    (arabic-digit	. #x23)	; &I-MULE-ARBD-23;
     ))
 (define-char
   '((name		. "ARABIC-INDIC DIGIT THREE")
@@ -454,7 +484,7 @@
     (digit-value	 . 3)
     (numeric-value	 . 3)
     (=ucs		. #x0663)	; Ù£
-    (arabic-digit	. #x24)	; øº§¿
+    (arabic-digit	. #x24)	; &I-MULE-ARBD-24;
     ))
 (define-char
   '((name		. "ARABIC-INDIC DIGIT FOUR")
@@ -465,7 +495,7 @@
     (digit-value	 . 4)
     (numeric-value	 . 4)
     (=ucs		. #x0664)	; Ù¤
-    (arabic-digit	. #x25)	; øº¨€
+    (arabic-digit	. #x25)	; &I-MULE-ARBD-25;
     ))
 (define-char
   '((name		. "ARABIC-INDIC DIGIT FIVE")
@@ -476,7 +506,7 @@
     (digit-value	 . 5)
     (numeric-value	 . 5)
     (=ucs		. #x0665)	; Ù¥
-    (arabic-digit	. #x26)	; øº¨
+    (arabic-digit	. #x26)	; &I-MULE-ARBD-26;
     ))
 (define-char
   '((name		. "ARABIC-INDIC DIGIT SIX")
@@ -487,7 +517,7 @@
     (digit-value	 . 6)
     (numeric-value	 . 6)
     (=ucs		. #x0666)	; Ù¦
-    (arabic-digit	. #x27)	; øº¨‚
+    (arabic-digit	. #x27)	; &I-MULE-ARBD-27;
     ))
 (define-char
   '((name		. "ARABIC-INDIC DIGIT SEVEN")
@@ -498,7 +528,7 @@
     (digit-value	 . 7)
     (numeric-value	 . 7)
     (=ucs		. #x0667)	; Ù§
-    (arabic-digit	. #x28)	; øº¨ƒ
+    (arabic-digit	. #x28)	; &I-MULE-ARBD-28;
     ))
 (define-char
   '((name		. "ARABIC-INDIC DIGIT EIGHT")
@@ -509,7 +539,7 @@
     (digit-value	 . 8)
     (numeric-value	 . 8)
     (=ucs		. #x0668)	; Ù¨
-    (arabic-digit	. #x29)	; øº¨„
+    (arabic-digit	. #x29)	; &I-MULE-ARBD-29;
     ))
 (define-char
   '((name		. "ARABIC-INDIC DIGIT NINE")
@@ -520,7 +550,7 @@
     (digit-value	 . 9)
     (numeric-value	 . 9)
     (=ucs		. #x0669)	; Ù©
-    (arabic-digit	. #x2A)	; øº¨…
+    (arabic-digit	. #x2A)	; &I-MULE-ARBD-2A;
     ))
 (define-char
   '((name		. "ARABIC PERCENT SIGN")
@@ -590,7 +620,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	compat #x0627 #x0674)
+    (=>decomposition@compat
+     ((name		  . "ARABIC LETTER ALEF")
+      (=ucs		  . #x0627)	; ا
+      )
+     ((name		  . "ARABIC LETTER HIGH HAMZA")
+      (=ucs		  . #x0674)	; Ù´
+      ))
     (=ucs		. #x0675)	; Ùµ
     ))
 (define-char
@@ -598,7 +634,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	compat #x0648 #x0674)
+    (=>decomposition@compat
+     ((name		  . "ARABIC LETTER WAW")
+      (=ucs		  . #x0648)	; و
+      )
+     ((name		  . "ARABIC LETTER HIGH HAMZA")
+      (=ucs		  . #x0674)	; Ù´
+      ))
     (=ucs		. #x0676)	; Ù¶
     ))
 (define-char
@@ -606,7 +648,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	compat #x06C7 #x0674)
+    (=>decomposition@compat
+     ((name		  . "ARABIC LETTER U")
+      (=ucs		  . #x06C7)	; ۇ
+      )
+     ((name		  . "ARABIC LETTER HIGH HAMZA")
+      (=ucs		  . #x0674)	; Ù´
+      ))
     (=ucs		. #x0677)	; Ù·
     ))
 (define-char
@@ -614,7 +662,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	compat #x064A #x0674)
+    (=>decomposition@compat
+     ((name		  . "ARABIC LETTER YEH")
+      (=ucs		  . #x064A)	; ي
+      )
+     ((name		  . "ARABIC LETTER HIGH HAMZA")
+      (=ucs		  . #x0674)	; Ù´
+      ))
     (=ucs		. #x0678)	; Ù¸
     ))
 (define-char
@@ -1119,7 +1173,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	#x06D5 #x0654)
+    (=decomposition
+     ((name		  . "ARABIC LETTER AE")
+      (=ucs		  . #x06D5)	; ە
+      )
+     ((name		  . "ARABIC HAMZA ABOVE")
+      (=ucs		  . #x0654)	; ٔ
+      ))
     (=ucs		. #x06C0)	; ۀ
     ))
 (define-char
@@ -1134,7 +1194,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	#x06C1 #x0654)
+    (=decomposition
+     ((name		  . "ARABIC LETTER HEH GOAL")
+      (=ucs		  . #x06C1)	; ہ
+      )
+     ((name		  . "ARABIC HAMZA ABOVE")
+      (=ucs		  . #x0654)	; ٔ
+      ))
     (=ucs		. #x06C2)	; ۂ
     ))
 (define-char
@@ -1255,7 +1321,13 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "AL")
     (mirrored		. nil)
-    (->decomposition	#x06D2 #x0654)
+    (=decomposition
+     ((name		  . "ARABIC LETTER YEH BARREE")
+      (=ucs		  . #x06D2)	; ے
+      )
+     ((name		  . "ARABIC HAMZA ABOVE")
+      (=ucs		  . #x0654)	; ٔ
+      ))
     (=ucs		. #x06D3)	; ۓ
     ))
 (define-char