- Use ``character-reference'' style [alist] instead of UCS code-point
authortomo <tomo>
Tue, 24 Jul 2001 06:00:39 +0000 (06:00 +0000)
committertomo <tomo>
Tue, 24 Jul 2001 06:00:39 +0000 (06:00 +0000)
  [hex integer] as the format of `->lowercase' and `->uppercase'.
- Omit `->titlecase' if the value of it has the same value of
  `->uppercase'.

lisp/utf-2000/u00300-Combining-Diacritical-Marks.el

index be64aa6..4acb854 100644 (file)
@@ -6,7 +6,7 @@
     (iso-10646-comment . "Varia")
     (latin-tcvn5712            . #xB0) ; 
     (japanese-jisx0213-1       . #x2B5C)       ; 
-    (ucs                       . #x300)        ; ̀
+    (ucs                       . #x0300)       ; ̀
     ))
 (define-char
   '((name              . "COMBINING ACUTE ACCENT")
@@ -16,7 +16,7 @@
     (iso-10646-comment . "Oxia")
     (latin-tcvn5712            . #xB3) ; 
     (japanese-jisx0213-1       . #x2B5A)       ; 
-    (ucs                       . #x301)        ; ́
+    (ucs                       . #x0301)       ; ́
     ))
 (define-char
   '((name              . "COMBINING CIRCUMFLEX ACCENT")
@@ -24,7 +24,7 @@
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B5F)       ; 
-    (ucs                       . #x302)        ; ̂
+    (ucs                       . #x0302)       ; ̂
     ))
 (define-char
   '((name              . "COMBINING TILDE")
@@ -33,7 +33,7 @@
     (mirrored          . nil)
     (latin-tcvn5712            . #xB2) ; 
     (japanese-jisx0213-1       . #x2B7D)       ; 
-    (ucs                       . #x303)        ; ̃
+    (ucs                       . #x0303)       ; ̃
     ))
 (define-char
   '((name              . "COMBINING MACRON")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B5B)       ; 
-    (ucs                       . #x304)        ; ̄
+    (ucs                       . #x0304)       ; ̄
     ))
 (define-char
   '((name              . "COMBINING OVERLINE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x305)        ; ̅
+    (ucs               . #x0305)       ; ̅
     ))
 (define-char
   '((name              . "COMBINING BREVE")
     (mirrored          . nil)
     (iso-10646-comment . "Vrachy")
     (japanese-jisx0213-1       . #x2B57)       ; 
-    (ucs                       . #x306)        ; ̆
+    (ucs                       . #x0306)       ; ̆
     ))
 (define-char
   '((name              . "COMBINING DOT ABOVE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x307)        ; ̇
+    (ucs               . #x0307)       ; ̇
     ))
 (define-char
   '((name              . "COMBINING DIAERESIS")
@@ -73,7 +73,7 @@
     (mirrored          . nil)
     (iso-10646-comment . "Dialytika")
     (japanese-jisx0213-1       . #x2B6D)       ; 
-    (ucs                       . #x308)        ; ̈
+    (ucs                       . #x0308)       ; ̈
     ))
 (define-char
   '((name              . "COMBINING HOOK ABOVE")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (latin-tcvn5712    . #xB1) ; 
-    (ucs               . #x309)        ; ̉
+    (ucs               . #x0309)       ; ̉
     ))
 (define-char
   '((name              . "COMBINING RING ABOVE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x30A)        ; ̊
+    (ucs               . #x030A)       ; ̊
     ))
 (define-char
   '((name              . "COMBINING DOUBLE ACUTE ACCENT")
@@ -96,7 +96,7 @@
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B59)       ; 
-    (ucs                       . #x30B)        ; ̋
+    (ucs                       . #x030B)       ; ̋
     ))
 (define-char
   '((name              . "COMBINING CARON")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B5E)       ; 
-    (ucs                       . #x30C)        ; ̌
+    (ucs                       . #x030C)       ; ̌
     ))
 (define-char
   '((name              . "COMBINING VERTICAL LINE ABOVE")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (iso-10646-comment . "Tonos")
-    (ucs               . #x30D)        ; ̍
+    (ucs               . #x030D)       ; ̍
     ))
 (define-char
   '((name              . "COMBINING DOUBLE VERTICAL LINE ABOVE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x30E)        ; ̎
+    (ucs               . #x030E)       ; ̎
     ))
 (define-char
   '((name              . "COMBINING DOUBLE GRAVE ACCENT")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B5D)       ; 
-    (ucs                       . #x30F)        ; ̏
+    (ucs                       . #x030F)       ; ̏
     ))
 (define-char
   '((name              . "COMBINING CANDRABINDU")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x310)        ; ̐
+    (ucs               . #x0310)       ; ̐
     ))
 (define-char
   '((name              . "COMBINING INVERTED BREVE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x311)        ; ̑
+    (ucs               . #x0311)       ; ̑
     ))
 (define-char
   '((name              . "COMBINING TURNED COMMA ABOVE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x312)        ; ̒
+    (ucs               . #x0312)       ; ̒
     ))
 (define-char
   '((name              . "COMBINING COMMA ABOVE")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (iso-10646-comment . "Psili")
-    (ucs               . #x313)        ; ̓
+    (ucs               . #x0313)       ; ̓
     ))
 (define-char
   '((name              . "COMBINING REVERSED COMMA ABOVE")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (iso-10646-comment . "Dasia")
-    (ucs               . #x314)        ; ̔
+    (ucs               . #x0314)       ; ̔
     ))
 (define-char
   '((name              . "COMBINING COMMA ABOVE RIGHT")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x315)        ; ̕
+    (ucs               . #x0315)       ; ̕
     ))
 (define-char
   '((name              . "COMBINING GRAVE ACCENT BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x316)        ; ̖
+    (ucs               . #x0316)       ; ̖
     ))
 (define-char
   '((name              . "COMBINING ACUTE ACCENT BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x317)        ; ̗
+    (ucs               . #x0317)       ; ̗
     ))
 (define-char
   '((name              . "COMBINING LEFT TACK BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B78)       ; 
-    (ucs                       . #x318)        ; ̘
+    (ucs                       . #x0318)       ; ̘
     ))
 (define-char
   '((name              . "COMBINING RIGHT TACK BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B79)       ; 
-    (ucs                       . #x319)        ; ̙
+    (ucs                       . #x0319)       ; ̙
     ))
 (define-char
   '((name              . "COMBINING LEFT ANGLE ABOVE")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B7E)       ; 
-    (ucs                       . #x31A)        ; ̚
+    (ucs                       . #x031A)       ; ̚
     ))
 (define-char
   '((name              . "COMBINING HORN")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x31B)        ; ̛
+    (ucs               . #x031B)       ; ̛
     ))
 (define-char
   '((name              . "COMBINING LEFT HALF RING BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B6A)       ; 
-    (ucs                       . #x31C)        ; ̜
+    (ucs                       . #x031C)       ; ̜
     ))
 (define-char
   '((name              . "COMBINING UP TACK BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B76)       ; 
-    (ucs                       . #x31D)        ; ̝
+    (ucs                       . #x031D)       ; ̝
     ))
 (define-char
   '((name              . "COMBINING DOWN TACK BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B77)       ; 
-    (ucs                       . #x31E)        ; ̞
+    (ucs                       . #x031E)       ; ̞
     ))
 (define-char
   '((name              . "COMBINING PLUS SIGN BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B6B)       ; 
-    (ucs                       . #x31F)        ; ̟
+    (ucs                       . #x031F)       ; ̟
     ))
 (define-char
   '((name              . "COMBINING MINUS SIGN BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B6C)       ; 
-    (ucs                       . #x320)        ; ̠
+    (ucs                       . #x0320)       ; ̠
     ))
 (define-char
   '((name              . "COMBINING PALATALIZED HOOK BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x321)        ; ̡
+    (ucs               . #x0321)       ; ̡
     ))
 (define-char
   '((name              . "COMBINING RETROFLEX HOOK BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x322)        ; ̢
+    (ucs               . #x0322)       ; ̢
     ))
 (define-char
   '((name              . "COMBINING DOT BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (latin-tcvn5712    . #xB4) ; 
-    (ucs               . #x323)        ; ̣
+    (ucs               . #x0323)       ; ̣
     ))
 (define-char
   '((name              . "COMBINING DIAERESIS BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B72)       ; 
-    (ucs                       . #x324)        ; ̤
+    (ucs                       . #x0324)       ; ̤
     ))
 (define-char
   '((name              . "COMBINING RING BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B67)       ; 
-    (ucs                       . #x325)        ; ̥
+    (ucs                       . #x0325)       ; ̥
     ))
 (define-char
   '((name              . "COMBINING COMMA BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x326)        ; ̦
+    (ucs               . #x0326)       ; ̦
     ))
 (define-char
   '((name              . "COMBINING CEDILLA")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x327)        ; ̧
+    (ucs               . #x0327)       ; ̧
     ))
 (define-char
   '((name              . "COMBINING OGONEK")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x328)        ; ̨
+    (ucs               . #x0328)       ; ̨
     ))
 (define-char
   '((name              . "COMBINING VERTICAL LINE BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B6F)       ; 
-    (ucs                       . #x329)        ; ̩
+    (ucs                       . #x0329)       ; ̩
     ))
 (define-char
   '((name              . "COMBINING BRIDGE BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B7A)       ; 
-    (ucs                       . #x32A)        ; ̪
+    (ucs                       . #x032A)       ; ̪
     ))
 (define-char
   '((name              . "COMBINING INVERTED DOUBLE ARCH BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x32B)        ; ̫
+    (ucs               . #x032B)       ; ̫
     ))
 (define-char
   '((name              . "COMBINING CARON BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B68)       ; 
-    (ucs                       . #x32C)        ; ̬
+    (ucs                       . #x032C)       ; ̬
     ))
 (define-char
   '((name              . "COMBINING CIRCUMFLEX ACCENT BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x32D)        ; ̭
+    (ucs               . #x032D)       ; ̭
     ))
 (define-char
   '((name              . "COMBINING BREVE BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x32E)        ; ̮
+    (ucs               . #x032E)       ; ̮
     ))
 (define-char
   '((name              . "COMBINING INVERTED BREVE BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B70)       ; 
-    (ucs                       . #x32F)        ; ̯
+    (ucs                       . #x032F)       ; ̯
     ))
 (define-char
   '((name              . "COMBINING TILDE BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B73)       ; 
-    (ucs                       . #x330)        ; ̰
+    (ucs                       . #x0330)       ; ̰
     ))
 (define-char
   '((name              . "COMBINING MACRON BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x331)        ; ̱
+    (ucs               . #x0331)       ; ̱
     ))
 (define-char
   '((name              . "COMBINING LOW LINE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x332)        ; ̲
+    (ucs               . #x0332)       ; ̲
     ))
 (define-char
   '((name              . "COMBINING DOUBLE LOW LINE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x333)        ; ̳
+    (ucs               . #x0333)       ; ̳
     ))
 (define-char
   '((name              . "COMBINING TILDE OVERLAY")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B75)       ; 
-    (ucs                       . #x334)        ; ̴
+    (ucs                       . #x0334)       ; ̴
     ))
 (define-char
   '((name              . "COMBINING SHORT STROKE OVERLAY")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x335)        ; ̵
+    (ucs               . #x0335)       ; ̵
     ))
 (define-char
   '((name              . "COMBINING LONG STROKE OVERLAY")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x336)        ; ̶
+    (ucs               . #x0336)       ; ̶
     ))
 (define-char
   '((name              . "COMBINING SHORT SOLIDUS OVERLAY")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x337)        ; ̷
+    (ucs               . #x0337)       ; ̷
     ))
 (define-char
   '((name              . "COMBINING LONG SOLIDUS OVERLAY")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x338)        ; ̸
+    (ucs               . #x0338)       ; ̸
     ))
 (define-char
   '((name              . "COMBINING RIGHT HALF RING BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B69)       ; 
-    (ucs                       . #x339)        ; ̹
+    (ucs                       . #x0339)       ; ̹
     ))
 (define-char
   '((name              . "COMBINING INVERTED BRIDGE BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B7B)       ; 
-    (ucs                       . #x33A)        ; ̺
+    (ucs                       . #x033A)       ; ̺
     ))
 (define-char
   '((name              . "COMBINING SQUARE BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B7C)       ; 
-    (ucs                       . #x33B)        ; ̻
+    (ucs                       . #x033B)       ; ̻
     ))
 (define-char
   '((name              . "COMBINING SEAGULL BELOW")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B74)       ; 
-    (ucs                       . #x33C)        ; ̼
+    (ucs                       . #x033C)       ; ̼
     ))
 (define-char
   '((name              . "COMBINING X ABOVE")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B6E)       ; 
-    (ucs                       . #x33D)        ; ̽
+    (ucs                       . #x033D)       ; ̽
     ))
 (define-char
   '((name              . "COMBINING VERTICAL TILDE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x33E)        ; ̾
+    (ucs               . #x033E)       ; ̾
     ))
 (define-char
   '((name              . "COMBINING DOUBLE OVERLINE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x33F)        ; ̿
+    (ucs               . #x033F)       ; ̿
     ))
 (define-char
   '((name              . "COMBINING GRAVE TONE MARK")
     (mirrored          . nil)
     (iso-10646-comment . "Vietnamese")
     (->decomposition   #x0300)
-    (ucs               . #x340)        ; ̀
+    (ucs               . #x0340)       ; ̀
     ))
 (define-char
   '((name              . "COMBINING ACUTE TONE MARK")
     (mirrored          . nil)
     (iso-10646-comment . "Vietnamese")
     (->decomposition   #x0301)
-    (ucs               . #x341)        ; ́
+    (ucs               . #x0341)       ; ́
     ))
 (define-char
   '((name              . "COMBINING GREEK PERISPOMENI")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x342)        ; ͂
+    (ucs               . #x0342)       ; ͂
     ))
 (define-char
   '((name              . "COMBINING GREEK KORONIS")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (->decomposition   #x0313)
-    (ucs               . #x343)        ; ̓
+    (ucs               . #x0343)       ; ̓
     ))
 (define-char
   '((name              . "COMBINING GREEK DIALYTIKA TONOS")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (->decomposition   #x0308 #x0301)
-    (ucs               . #x344)        ; ̈́
+    (ucs               . #x0344)       ; ̈́
     ))
 (define-char
   '((name              . "COMBINING GREEK YPOGEGRAMMENI")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (->uppercase       #x0399)
-    (->titlecase       #x0399)
-    (ucs               . #x345)        ; ͅ
+    (->uppercase
+     ((name              . "GREEK CAPITAL LETTER IOTA")
+      (ucs               . #x0399)     ; Ι
+      ))
+    (ucs               . #x0345)       ; ͅ
     ))
 (define-char
   '((name              . "COMBINING BRIDGE ABOVE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x346)        ; ͆
+    (ucs               . #x0346)       ; ͆
     ))
 (define-char
   '((name              . "COMBINING EQUALS SIGN BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x347)        ; ͇
+    (ucs               . #x0347)       ; ͇
     ))
 (define-char
   '((name              . "COMBINING DOUBLE VERTICAL LINE BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x348)        ; ͈
+    (ucs               . #x0348)       ; ͈
     ))
 (define-char
   '((name              . "COMBINING LEFT ANGLE BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x349)        ; ͉
+    (ucs               . #x0349)       ; ͉
     ))
 (define-char
   '((name              . "COMBINING NOT TILDE ABOVE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x34A)        ; ͊
+    (ucs               . #x034A)       ; ͊
     ))
 (define-char
   '((name              . "COMBINING HOMOTHETIC ABOVE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x34B)        ; ͋
+    (ucs               . #x034B)       ; ͋
     ))
 (define-char
   '((name              . "COMBINING ALMOST EQUAL TO ABOVE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x34C)        ; ͌
+    (ucs               . #x034C)       ; ͌
     ))
 (define-char
   '((name              . "COMBINING LEFT RIGHT ARROW BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x34D)        ; ͍
+    (ucs               . #x034D)       ; ͍
     ))
 (define-char
   '((name              . "COMBINING UPWARDS ARROW BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x34E)        ; ͎
+    (ucs               . #x034E)       ; ͎
     ))
 (define-char
   '((name              . "COMBINING DOUBLE TILDE")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x360)        ; ͠
+    (ucs               . #x0360)       ; ͠
     ))
 (define-char
   '((name              . "COMBINING DOUBLE INVERTED BREVE")
     (bidi-category     . "NSM")
     (mirrored          . nil)
     (japanese-jisx0213-1       . #x2B52)       ; 
-    (ucs                       . #x361)        ; ͡
+    (ucs                       . #x0361)       ; ͡
     ))
 (define-char
   '((name              . "COMBINING DOUBLE RIGHTWARDS ARROW BELOW")
     (general-category  mark non-spacing) ; Normative Category
     (bidi-category     . "NSM")
     (mirrored          . nil)
-    (ucs               . #x362)        ; ͢
+    (ucs               . #x0362)       ; ͢
     ))