Reformatted.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / u00600-Arabic.el

diff --git a/lisp/utf-2000/u00600-Arabic.el b/lisp/utf-2000/u00600-Arabic.el
index f9f31f7..0def147 100644 (file)
--- 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