Reformatted.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / u00300-Combining-Diacritical-Marks.el

diff --git a/lisp/utf-2000/u00300-Combining-Diacritical-Marks.el b/lisp/utf-2000/u00300-Combining-Diacritical-Marks.el
index f786210..6e9e509 100644 (file)
--- a/lisp/utf-2000/u00300-Combining-Diacritical-Marks.el
+++ b/lisp/utf-2000/u00300-Combining-Diacritical-Marks.el
@@ -496,8 +496,11 @@
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (iso-10646-comment . "Vietnamese")
-    (->decomposition   #x0300)
     (=ucs              . #x0340)       ; ̀
+    (->canonical
+     ((name              . "COMBINING GRAVE ACCENT")
+      (=ucs              . #x0300)     ; ̀
+      ))
     ))
 (define-char
   '((name              . "COMBINING ACUTE TONE MARK")
@@ -505,8 +508,11 @@
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (iso-10646-comment . "Vietnamese")
-    (->decomposition   #x0301)
     (=ucs              . #x0341)       ; ́
+    (->canonical
+     ((name              . "COMBINING ACUTE ACCENT")
+      (=ucs              . #x0301)     ; ́
+      ))
     ))
 (define-char
   '((name              . "COMBINING GREEK PERISPOMENI")
@@ -520,15 +526,24 @@
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (->decomposition   #x0313)
     (=ucs              . #x0343)       ; ̓
+    (->canonical
+     ((name              . "COMBINING COMMA ABOVE")
+      (=ucs              . #x0313)     ; ̓
+      ))
     ))
 (define-char
   '((name              . "COMBINING GREEK DIALYTIKA TONOS")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (->decomposition   #x0308 #x0301)
+    (=decomposition
+     ((name              . "COMBINING DIAERESIS")
+      (=ucs              . #x0308)     ; ̈
+      )
+     ((name              . "COMBINING ACUTE ACCENT")
+      (=ucs              . #x0301)     ; ́
+      ))
     (=ucs              . #x0344)       ; ̈́
     ))
 (define-char
@@ -536,11 +551,11 @@
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
+    (=ucs              . #x0345)       ; ͅ
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA")
       (=ucs              . #x0399)     ; Ι
       ))
-    (=ucs              . #x0345)       ; ͅ
     ))
 (define-char
   '((name              . "COMBINING BRIDGE ABOVE")