Add `<-halfwidth' features for <HALFWIDTH> characters.

diff --git a/lisp/utf-2000/u0FF00-Halfwidth-and-Fullwidth-Forms.el b/lisp/utf-2000/u0FF00-Halfwidth-and-Fullwidth-Forms.el
index 78cdb68..efe9ca7 100644 (file)
--- a/lisp/utf-2000/u0FF00-Halfwidth-and-Fullwidth-Forms.el
+++ b/lisp/utf-2000/u0FF00-Halfwidth-and-Fullwidth-Forms.el
@@ -1872,6 +1872,10 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x3002)
+    (<-halfwidth
+     ((name              . "IDEOGRAPHIC FULL STOP")
+      (=ucs              . #x3002)     ; 。
+      ))
     (=ucs              . #xFF61)       ; ｡
     (katakana-jisx0201 . #xA1) ; �����
     ))
@@ -1881,6 +1885,10 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x300C)
+    (<-halfwidth
+     ((name              . "LEFT CORNER BRACKET")
+      (=ucs              . #x300C)     ; 「
+      ))
     (=ucs              . #xFF62)       ; ｢
     (katakana-jisx0201 . #xA2) ; �����
     ))
@@ -1890,6 +1898,10 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x300D)
+    (<-halfwidth
+     ((name              . "RIGHT CORNER BRACKET")
+      (=ucs              . #x300D)     ; 」
+      ))
     (=ucs              . #xFF63)       ; ｣
     (katakana-jisx0201 . #xA3) ; �����
     ))
@@ -1899,6 +1911,10 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x3001)
+    (<-halfwidth
+     ((name              . "IDEOGRAPHIC COMMA")
+      (=ucs              . #x3001)     ; 、
+      ))
     (=ucs              . #xFF64)       ; ､
     (katakana-jisx0201 . #xA4) ; �����
     ))
@@ -1908,6 +1924,10 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x30FB)
+    (<-halfwidth
+     ((name              . "KATAKANA MIDDLE DOT")
+      (=ucs              . #x30FB)     ; ・
+      ))
     (=ucs              . #xFF65)       ; ･
     (katakana-jisx0201 . #xA5) ; �����
     ))
@@ -1917,6 +1937,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30F2)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER WO")
+      (=ucs              . #x30F2)     ; ヲ
+      ))
     (=ucs              . #xFF66)       ; ｦ
     (katakana-jisx0201 . #xA6) ; �����
     ))
@@ -1926,6 +1950,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30A1)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SMALL A")
+      (=ucs              . #x30A1)     ; ァ
+      ))
     (=ucs              . #xFF67)       ; ｧ
     (katakana-jisx0201 . #xA7) ; �����
     ))
@@ -1935,6 +1963,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30A3)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SMALL I")
+      (=ucs              . #x30A3)     ; ィ
+      ))
     (=ucs              . #xFF68)       ; ｨ
     (katakana-jisx0201 . #xA8) ; �����
     ))
@@ -1944,6 +1976,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30A5)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SMALL U")
+      (=ucs              . #x30A5)     ; ゥ
+      ))
     (=ucs              . #xFF69)       ; ｩ
     (katakana-jisx0201 . #xA9) ; �����
     ))
@@ -1953,6 +1989,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30A7)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SMALL E")
+      (=ucs              . #x30A7)     ; ェ
+      ))
     (=ucs              . #xFF6A)       ; ｪ
     (katakana-jisx0201 . #xAA) ; �����
     ))
@@ -1962,6 +2002,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30A9)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SMALL O")
+      (=ucs              . #x30A9)     ; ォ
+      ))
     (=ucs              . #xFF6B)       ; ｫ
     (katakana-jisx0201 . #xAB) ; �����
     ))
@@ -1971,6 +2015,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30E3)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SMALL YA")
+      (=ucs              . #x30E3)     ; ャ
+      ))
     (=ucs              . #xFF6C)       ; ｬ
     (katakana-jisx0201 . #xAC) ; �����
     ))
@@ -1980,6 +2028,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30E5)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SMALL YU")
+      (=ucs              . #x30E5)     ; ュ
+      ))
     (=ucs              . #xFF6D)       ; ｭ
     (katakana-jisx0201 . #xAD) ; �����
     ))
@@ -1989,6 +2041,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30E7)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SMALL YO")
+      (=ucs              . #x30E7)     ; ョ
+      ))
     (=ucs              . #xFF6E)       ; ｮ
     (katakana-jisx0201 . #xAE) ; �����
     ))
@@ -1998,6 +2054,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30C3)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SMALL TU")
+      (=ucs              . #x30C3)     ; ッ
+      ))
     (=ucs              . #xFF6F)       ; ｯ
     (katakana-jisx0201 . #xAF) ; �����
     ))
@@ -2007,6 +2067,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30FC)
+    (<-halfwidth
+     ((name              . "KATAKANA-HIRAGANA PROLONGED SOUND MARK")
+      (=ucs              . #x30FC)     ; ー
+      ))
     (=ucs              . #xFF70)       ; ｰ
     (katakana-jisx0201 . #xB0) ; �����
     ))
@@ -2016,6 +2080,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30A2)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER A")
+      (=ucs              . #x30A2)     ; ア
+      ))
     (=ucs              . #xFF71)       ; ｱ
     (katakana-jisx0201 . #xB1) ; �����
     ))
@@ -2025,6 +2093,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30A4)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER I")
+      (=ucs              . #x30A4)     ; イ
+      ))
     (=ucs              . #xFF72)       ; ｲ
     (katakana-jisx0201 . #xB2) ; �����
     ))
@@ -2034,6 +2106,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30A6)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER U")
+      (=ucs              . #x30A6)     ; ウ
+      ))
     (=ucs              . #xFF73)       ; ｳ
     (katakana-jisx0201 . #xB3) ; �����
     ))
@@ -2043,6 +2119,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30A8)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER E")
+      (=ucs              . #x30A8)     ; エ
+      ))
     (=ucs              . #xFF74)       ; ｴ
     (katakana-jisx0201 . #xB4) ; �����
     ))
@@ -2052,6 +2132,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30AA)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER O")
+      (=ucs              . #x30AA)     ; オ
+      ))
     (=ucs              . #xFF75)       ; ｵ
     (katakana-jisx0201 . #xB5) ; �����
     ))
@@ -2061,6 +2145,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30AB)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER KA")
+      (=ucs              . #x30AB)     ; カ
+      ))
     (=ucs              . #xFF76)       ; ｶ
     (katakana-jisx0201 . #xB6) ; �����
     ))
@@ -2070,6 +2158,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30AD)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER KI")
+      (=ucs              . #x30AD)     ; キ
+      ))
     (=ucs              . #xFF77)       ; ｷ
     (katakana-jisx0201 . #xB7) ; �����
     ))
@@ -2079,6 +2171,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30AF)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER KU")
+      (=ucs              . #x30AF)     ; ク
+      ))
     (=ucs              . #xFF78)       ; ｸ
     (katakana-jisx0201 . #xB8) ; �����
     ))
@@ -2088,6 +2184,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30B1)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER KE")
+      (=ucs              . #x30B1)     ; ケ
+      ))
     (=ucs              . #xFF79)       ; ｹ
     (katakana-jisx0201 . #xB9) ; �����
     ))
@@ -2097,6 +2197,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30B3)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER KO")
+      (=ucs              . #x30B3)     ; コ
+      ))
     (=ucs              . #xFF7A)       ; ｺ
     (katakana-jisx0201 . #xBA) ; �����
     ))
@@ -2106,6 +2210,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30B5)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SA")
+      (=ucs              . #x30B5)     ; サ
+      ))
     (=ucs              . #xFF7B)       ; ｻ
     (katakana-jisx0201 . #xBB) ; �����
     ))
@@ -2115,6 +2223,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30B7)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SI")
+      (=ucs              . #x30B7)     ; シ
+      ))
     (=ucs              . #xFF7C)       ; ｼ
     (katakana-jisx0201 . #xBC) ; �����
     ))
@@ -2124,6 +2236,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30B9)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SU")
+      (=ucs              . #x30B9)     ; ス
+      ))
     (=ucs              . #xFF7D)       ; ｽ
     (katakana-jisx0201 . #xBD) ; �����
     ))
@@ -2133,6 +2249,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30BB)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SE")
+      (=ucs              . #x30BB)     ; セ
+      ))
     (=ucs              . #xFF7E)       ; ｾ
     (katakana-jisx0201 . #xBE) ; �����
     ))
@@ -2142,6 +2262,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30BD)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER SO")
+      (=ucs              . #x30BD)     ; ソ
+      ))
     (=ucs              . #xFF7F)       ; ｿ
     (katakana-jisx0201 . #xBF) ; �����
     ))
@@ -2151,6 +2275,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30BF)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER TA")
+      (=ucs              . #x30BF)     ; タ
+      ))
     (=ucs              . #xFF80)       ; ﾀ
     (katakana-jisx0201 . #xC0) ; �����
     ))
@@ -2160,6 +2288,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30C1)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER TI")
+      (=ucs              . #x30C1)     ; チ
+      ))
     (=ucs              . #xFF81)       ; ﾁ
     (katakana-jisx0201 . #xC1) ; �����
     ))
@@ -2169,6 +2301,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30C4)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER TU")
+      (=ucs              . #x30C4)     ; ツ
+      ))
     (=ucs              . #xFF82)       ; ﾂ
     (katakana-jisx0201 . #xC2) ; �����
     ))
@@ -2178,6 +2314,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30C6)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER TE")
+      (=ucs              . #x30C6)     ; テ
+      ))
     (=ucs              . #xFF83)       ; ﾃ
     (katakana-jisx0201 . #xC3) ; �����
     ))
@@ -2187,6 +2327,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30C8)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER TO")
+      (=ucs              . #x30C8)     ; ト
+      ))
     (=ucs              . #xFF84)       ; ﾄ
     (katakana-jisx0201 . #xC4) ; �����
     ))
@@ -2196,6 +2340,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30CA)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER NA")
+      (=ucs              . #x30CA)     ; ナ
+      ))
     (=ucs              . #xFF85)       ; ﾅ
     (katakana-jisx0201 . #xC5) ; �����
     ))
@@ -2205,6 +2353,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30CB)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER NI")
+      (=ucs              . #x30CB)     ; ニ
+      ))
     (=ucs              . #xFF86)       ; ﾆ
     (katakana-jisx0201 . #xC6) ; �����
     ))
@@ -2214,6 +2366,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30CC)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER NU")
+      (=ucs              . #x30CC)     ; ヌ
+      ))
     (=ucs              . #xFF87)       ; ﾇ
     (katakana-jisx0201 . #xC7) ; �����
     ))
@@ -2223,6 +2379,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30CD)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER NE")
+      (=ucs              . #x30CD)     ; ネ
+      ))
     (=ucs              . #xFF88)       ; ﾈ
     (katakana-jisx0201 . #xC8) ; �����
     ))
@@ -2232,6 +2392,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30CE)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER NO")
+      (=ucs              . #x30CE)     ; ノ
+      ))
     (=ucs              . #xFF89)       ; ﾉ
     (katakana-jisx0201 . #xC9) ; �����
     ))
@@ -2241,6 +2405,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30CF)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER HA")
+      (=ucs              . #x30CF)     ; ハ
+      ))
     (=ucs              . #xFF8A)       ; ﾊ
     (katakana-jisx0201 . #xCA) ; �����
     ))
@@ -2250,6 +2418,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30D2)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER HI")
+      (=ucs              . #x30D2)     ; ヒ
+      ))
     (=ucs              . #xFF8B)       ; ﾋ
     (katakana-jisx0201 . #xCB) ; �����
     ))
@@ -2259,6 +2431,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30D5)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER HU")
+      (=ucs              . #x30D5)     ; フ
+      ))
     (=ucs              . #xFF8C)       ; ﾌ
     (katakana-jisx0201 . #xCC) ; �����
     ))
@@ -2268,6 +2444,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30D8)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER HE")
+      (=ucs              . #x30D8)     ; ヘ
+      ))
     (=ucs              . #xFF8D)       ; ﾍ
     (katakana-jisx0201 . #xCD) ; �����
     ))
@@ -2277,6 +2457,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30DB)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER HO")
+      (=ucs              . #x30DB)     ; ホ
+      ))
     (=ucs              . #xFF8E)       ; ﾎ
     (katakana-jisx0201 . #xCE) ; �����
     ))
@@ -2286,6 +2470,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30DE)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER MA")
+      (=ucs              . #x30DE)     ; マ
+      ))
     (=ucs              . #xFF8F)       ; ﾏ
     (katakana-jisx0201 . #xCF) ; �����
     ))
@@ -2295,6 +2483,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30DF)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER MI")
+      (=ucs              . #x30DF)     ; ミ
+      ))
     (=ucs              . #xFF90)       ; ﾐ
     (katakana-jisx0201 . #xD0) ; �����
     ))
@@ -2304,6 +2496,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30E0)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER MU")
+      (=ucs              . #x30E0)     ; ム
+      ))
     (=ucs              . #xFF91)       ; ﾑ
     (katakana-jisx0201 . #xD1) ; �����
     ))
@@ -2313,6 +2509,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30E1)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER ME")
+      (=ucs              . #x30E1)     ; メ
+      ))
     (=ucs              . #xFF92)       ; ﾒ
     (katakana-jisx0201 . #xD2) ; �����
     ))
@@ -2322,6 +2522,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30E2)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER MO")
+      (=ucs              . #x30E2)     ; モ
+      ))
     (=ucs              . #xFF93)       ; ﾓ
     (katakana-jisx0201 . #xD3) ; �����
     ))
@@ -2331,6 +2535,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30E4)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER YA")
+      (=ucs              . #x30E4)     ; ヤ
+      ))
     (=ucs              . #xFF94)       ; ﾔ
     (katakana-jisx0201 . #xD4) ; �����
     ))
@@ -2340,6 +2548,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30E6)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER YU")
+      (=ucs              . #x30E6)     ; ユ
+      ))
     (=ucs              . #xFF95)       ; ﾕ
     (katakana-jisx0201 . #xD5) ; �����
     ))
@@ -2349,6 +2561,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30E8)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER YO")
+      (=ucs              . #x30E8)     ; ヨ
+      ))
     (=ucs              . #xFF96)       ; ﾖ
     (katakana-jisx0201 . #xD6) ; �����
     ))
@@ -2358,6 +2574,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30E9)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER RA")
+      (=ucs              . #x30E9)     ; ラ
+      ))
     (=ucs              . #xFF97)       ; ﾗ
     (katakana-jisx0201 . #xD7) ; �����
     ))
@@ -2367,6 +2587,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30EA)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER RI")
+      (=ucs              . #x30EA)     ; リ
+      ))
     (=ucs              . #xFF98)       ; ﾘ
     (katakana-jisx0201 . #xD8) ; �����
     ))
@@ -2376,6 +2600,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30EB)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER RU")
+      (=ucs              . #x30EB)     ; ル
+      ))
     (=ucs              . #xFF99)       ; ﾙ
     (katakana-jisx0201 . #xD9) ; �����
     ))
@@ -2385,6 +2613,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30EC)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER RE")
+      (=ucs              . #x30EC)     ; レ
+      ))
     (=ucs              . #xFF9A)       ; ﾚ
     (katakana-jisx0201 . #xDA) ; �����
     ))
@@ -2394,6 +2626,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30ED)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER RO")
+      (=ucs              . #x30ED)     ; ロ
+      ))
     (=ucs              . #xFF9B)       ; ﾛ
     (katakana-jisx0201 . #xDB) ; �����
     ))
@@ -2403,6 +2639,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30EF)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER WA")
+      (=ucs              . #x30EF)     ; ワ
+      ))
     (=ucs              . #xFF9C)       ; ﾜ
     (katakana-jisx0201 . #xDC) ; �����
     ))
@@ -2412,6 +2652,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x30F3)
+    (<-halfwidth
+     ((name              . "KATAKANA LETTER N")
+      (=ucs              . #x30F3)     ; ン
+      ))
     (=ucs              . #xFF9D)       ; ﾝ
     (katakana-jisx0201 . #xDD) ; �����
     ))
@@ -2422,6 +2666,10 @@
     (mirrored          . nil)
     (iso-10646-comment . "halfwidth katakana-hiragana voiced sound mark")
     (->decomposition   narrow #x3099)
+    (<-halfwidth
+     ((name . "COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK")
+      (=ucs              . #x3099)     ; ゙
+      ))
     (=ucs              . #xFF9E)       ; ﾞ
     (katakana-jisx0201 . #xDE) ; �����
     ))
@@ -2432,6 +2680,10 @@
     (mirrored          . nil)
     (iso-10646-comment . "halfwidth katakana-hiragana semi-voiced sound mark")
     (->decomposition   narrow #x309A)
+    (<-halfwidth
+     ((name . "COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK")
+      (=ucs              . #x309A)     ; ゚
+      ))
     (=ucs              . #xFF9F)       ; ﾟ
     (katakana-jisx0201 . #xDF) ; �����
     ))
@@ -2441,6 +2693,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3164)
+    (<-halfwidth
+     ((name              . "HANGUL FILLER")
+      (=ucs              . #x3164)     ; ㅤ
+      ))
     (=ucs              . #xFFA0)       ; ﾠ
     ))
 (define-char
@@ -2449,6 +2705,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3131)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER KIYEOK")
+      (=ucs              . #x3131)     ; ㄱ
+      ))
     (=ucs              . #xFFA1)       ; ﾡ
     ))
 (define-char
@@ -2457,6 +2717,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3132)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER SSANGKIYEOK")
+      (=ucs              . #x3132)     ; ㄲ
+      ))
     (=ucs              . #xFFA2)       ; ﾢ
     ))
 (define-char
@@ -2465,6 +2729,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3133)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER KIYEOK-SIOS")
+      (=ucs              . #x3133)     ; ㄳ
+      ))
     (=ucs              . #xFFA3)       ; ﾣ
     ))
 (define-char
@@ -2473,6 +2741,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3134)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER NIEUN")
+      (=ucs              . #x3134)     ; ㄴ
+      ))
     (=ucs              . #xFFA4)       ; ﾤ
     ))
 (define-char
@@ -2481,6 +2753,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3135)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER NIEUN-CIEUC")
+      (=ucs              . #x3135)     ; ㄵ
+      ))
     (=ucs              . #xFFA5)       ; ﾥ
     ))
 (define-char
@@ -2489,6 +2765,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3136)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER NIEUN-HIEUH")
+      (=ucs              . #x3136)     ; ㄶ
+      ))
     (=ucs              . #xFFA6)       ; ﾦ
     ))
 (define-char
@@ -2497,6 +2777,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3137)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER TIKEUT")
+      (=ucs              . #x3137)     ; ㄷ
+      ))
     (=ucs              . #xFFA7)       ; ﾧ
     ))
 (define-char
@@ -2505,6 +2789,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3138)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER SSANGTIKEUT")
+      (=ucs              . #x3138)     ; ㄸ
+      ))
     (=ucs              . #xFFA8)       ; ﾨ
     ))
 (define-char
@@ -2513,6 +2801,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3139)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER RIEUL")
+      (=ucs              . #x3139)     ; ㄹ
+      ))
     (=ucs              . #xFFA9)       ; ﾩ
     ))
 (define-char
@@ -2521,6 +2813,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x313A)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER RIEUL-KIYEOK")
+      (=ucs              . #x313A)     ; ㄺ
+      ))
     (=ucs              . #xFFAA)       ; ﾪ
     ))
 (define-char
@@ -2529,6 +2825,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x313B)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER RIEUL-MIEUM")
+      (=ucs              . #x313B)     ; ㄻ
+      ))
     (=ucs              . #xFFAB)       ; ﾫ
     ))
 (define-char
@@ -2537,6 +2837,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x313C)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER RIEUL-PIEUP")
+      (=ucs              . #x313C)     ; ㄼ
+      ))
     (=ucs              . #xFFAC)       ; ﾬ
     ))
 (define-char
@@ -2545,6 +2849,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x313D)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER RIEUL-SIOS")
+      (=ucs              . #x313D)     ; ㄽ
+      ))
     (=ucs              . #xFFAD)       ; ﾭ
     ))
 (define-char
@@ -2553,6 +2861,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x313E)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER RIEUL-THIEUTH")
+      (=ucs              . #x313E)     ; ㄾ
+      ))
     (=ucs              . #xFFAE)       ; ﾮ
     ))
 (define-char
@@ -2561,6 +2873,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x313F)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER RIEUL-PHIEUPH")
+      (=ucs              . #x313F)     ; ㄿ
+      ))
     (=ucs              . #xFFAF)       ; ﾯ
     ))
 (define-char
@@ -2569,6 +2885,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3140)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER RIEUL-HIEUH")
+      (=ucs              . #x3140)     ; ㅀ
+      ))
     (=ucs              . #xFFB0)       ; ﾰ
     ))
 (define-char
@@ -2577,6 +2897,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3141)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER MIEUM")
+      (=ucs              . #x3141)     ; ㅁ
+      ))
     (=ucs              . #xFFB1)       ; ﾱ
     ))
 (define-char
@@ -2585,6 +2909,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3142)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER PIEUP")
+      (=ucs              . #x3142)     ; ㅂ
+      ))
     (=ucs              . #xFFB2)       ; ﾲ
     ))
 (define-char
@@ -2593,6 +2921,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3143)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER SSANGPIEUP")
+      (=ucs              . #x3143)     ; ㅃ
+      ))
     (=ucs              . #xFFB3)       ; ﾳ
     ))
 (define-char
@@ -2601,6 +2933,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3144)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER PIEUP-SIOS")
+      (=ucs              . #x3144)     ; ㅄ
+      ))
     (=ucs              . #xFFB4)       ; ﾴ
     ))
 (define-char
@@ -2609,6 +2945,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3145)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER SIOS")
+      (=ucs              . #x3145)     ; ㅅ
+      ))
     (=ucs              . #xFFB5)       ; ﾵ
     ))
 (define-char
@@ -2617,6 +2957,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3146)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER SSANGSIOS")
+      (=ucs              . #x3146)     ; ㅆ
+      ))
     (=ucs              . #xFFB6)       ; ﾶ
     ))
 (define-char
@@ -2625,6 +2969,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3147)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER IEUNG")
+      (=ucs              . #x3147)     ; ㅇ
+      ))
     (=ucs              . #xFFB7)       ; ﾷ
     ))
 (define-char
@@ -2633,6 +2981,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3148)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER CIEUC")
+      (=ucs              . #x3148)     ; ㅈ
+      ))
     (=ucs              . #xFFB8)       ; ﾸ
     ))
 (define-char
@@ -2641,6 +2993,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3149)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER SSANGCIEUC")
+      (=ucs              . #x3149)     ; ㅉ
+      ))
     (=ucs              . #xFFB9)       ; ﾹ
     ))
 (define-char
@@ -2649,6 +3005,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x314A)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER CHIEUCH")
+      (=ucs              . #x314A)     ; ㅊ
+      ))
     (=ucs              . #xFFBA)       ; ﾺ
     ))
 (define-char
@@ -2657,6 +3017,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x314B)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER KHIEUKH")
+      (=ucs              . #x314B)     ; ㅋ
+      ))
     (=ucs              . #xFFBB)       ; ﾻ
     ))
 (define-char
@@ -2665,6 +3029,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x314C)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER THIEUTH")
+      (=ucs              . #x314C)     ; ㅌ
+      ))
     (=ucs              . #xFFBC)       ; ﾼ
     ))
 (define-char
@@ -2673,6 +3041,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x314D)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER PHIEUPH")
+      (=ucs              . #x314D)     ; ㅍ
+      ))
     (=ucs              . #xFFBD)       ; ﾽ
     ))
 (define-char
@@ -2681,6 +3053,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x314E)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER HIEUH")
+      (=ucs              . #x314E)     ; ㅎ
+      ))
     (=ucs              . #xFFBE)       ; ﾾ
     ))
 (define-char
@@ -2689,6 +3065,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x314F)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER A")
+      (=ucs              . #x314F)     ; ㅏ
+      ))
     (=ucs              . #xFFC2)       ; ￂ
     ))
 (define-char
@@ -2697,6 +3077,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3150)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER AE")
+      (=ucs              . #x3150)     ; ㅐ
+      ))
     (=ucs              . #xFFC3)       ; ￃ
     ))
 (define-char
@@ -2705,6 +3089,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3151)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER YA")
+      (=ucs              . #x3151)     ; ㅑ
+      ))
     (=ucs              . #xFFC4)       ; ￄ
     ))
 (define-char
@@ -2713,6 +3101,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3152)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER YAE")
+      (=ucs              . #x3152)     ; ㅒ
+      ))
     (=ucs              . #xFFC5)       ; ￅ
     ))
 (define-char
@@ -2721,6 +3113,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3153)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER EO")
+      (=ucs              . #x3153)     ; ㅓ
+      ))
     (=ucs              . #xFFC6)       ; ￆ
     ))
 (define-char
@@ -2729,6 +3125,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3154)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER E")
+      (=ucs              . #x3154)     ; ㅔ
+      ))
     (=ucs              . #xFFC7)       ; ￇ
     ))
 (define-char
@@ -2737,6 +3137,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3155)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER YEO")
+      (=ucs              . #x3155)     ; ㅕ
+      ))
     (=ucs              . #xFFCA)       ; ￊ
     ))
 (define-char
@@ -2745,6 +3149,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3156)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER YE")
+      (=ucs              . #x3156)     ; ㅖ
+      ))
     (=ucs              . #xFFCB)       ; ￋ
     ))
 (define-char
@@ -2753,6 +3161,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3157)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER O")
+      (=ucs              . #x3157)     ; ㅗ
+      ))
     (=ucs              . #xFFCC)       ; ￌ
     ))
 (define-char
@@ -2761,6 +3173,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3158)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER WA")
+      (=ucs              . #x3158)     ; ㅘ
+      ))
     (=ucs              . #xFFCD)       ; ￍ
     ))
 (define-char
@@ -2769,6 +3185,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3159)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER WAE")
+      (=ucs              . #x3159)     ; ㅙ
+      ))
     (=ucs              . #xFFCE)       ; ￎ
     ))
 (define-char
@@ -2777,6 +3197,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x315A)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER OE")
+      (=ucs              . #x315A)     ; ㅚ
+      ))
     (=ucs              . #xFFCF)       ; ￏ
     ))
 (define-char
@@ -2785,6 +3209,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x315B)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER YO")
+      (=ucs              . #x315B)     ; ㅛ
+      ))
     (=ucs              . #xFFD2)       ; ￒ
     ))
 (define-char
@@ -2793,6 +3221,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x315C)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER U")
+      (=ucs              . #x315C)     ; ㅜ
+      ))
     (=ucs              . #xFFD3)       ; ￓ
     ))
 (define-char
@@ -2801,6 +3233,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x315D)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER WEO")
+      (=ucs              . #x315D)     ; ㅝ
+      ))
     (=ucs              . #xFFD4)       ; ￔ
     ))
 (define-char
@@ -2809,6 +3245,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x315E)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER WE")
+      (=ucs              . #x315E)     ; ㅞ
+      ))
     (=ucs              . #xFFD5)       ; ￕ
     ))
 (define-char
@@ -2817,6 +3257,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x315F)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER WI")
+      (=ucs              . #x315F)     ; ㅟ
+      ))
     (=ucs              . #xFFD6)       ; ￖ
     ))
 (define-char
@@ -2825,6 +3269,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3160)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER YU")
+      (=ucs              . #x3160)     ; ㅠ
+      ))
     (=ucs              . #xFFD7)       ; ￗ
     ))
 (define-char
@@ -2833,6 +3281,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3161)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER EU")
+      (=ucs              . #x3161)     ; ㅡ
+      ))
     (=ucs              . #xFFDA)       ; ￚ
     ))
 (define-char
@@ -2841,6 +3293,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3162)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER YI")
+      (=ucs              . #x3162)     ; ㅢ
+      ))
     (=ucs              . #xFFDB)       ; ￛ
     ))
 (define-char
@@ -2849,6 +3305,10 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   narrow #x3163)
+    (<-halfwidth
+     ((name              . "HANGUL LETTER I")
+      (=ucs              . #x3163)     ; ㅣ
+      ))
     (=ucs              . #xFFDC)       ; ￜ
     ))
 (define-char
@@ -2967,6 +3427,10 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x2502)
+    (<-halfwidth
+     ((name              . "BOX DRAWINGS LIGHT VERTICAL")
+      (=ucs              . #x2502)     ; │
+      ))
     (=ucs              . #xFFE8)       ; ￨
     ))
 (define-char
@@ -2975,6 +3439,10 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x2190)
+    (<-halfwidth
+     ((name              . "LEFTWARDS ARROW")
+      (=ucs              . #x2190)     ; ←
+      ))
     (=ucs              . #xFFE9)       ; ￩
     ))
 (define-char
@@ -2983,6 +3451,10 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x2191)
+    (<-halfwidth
+     ((name              . "UPWARDS ARROW")
+      (=ucs              . #x2191)     ; ↑
+      ))
     (=ucs              . #xFFEA)       ; ￪
     ))
 (define-char
@@ -2991,6 +3463,10 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x2192)
+    (<-halfwidth
+     ((name              . "RIGHTWARDS ARROW")
+      (=ucs              . #x2192)     ; →
+      ))
     (=ucs              . #xFFEB)       ; ￫
     ))
 (define-char
@@ -2999,6 +3475,10 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x2193)
+    (<-halfwidth
+     ((name              . "DOWNWARDS ARROW")
+      (=ucs              . #x2193)     ; ↓
+      ))
     (=ucs              . #xFFEC)       ; ￬
     ))
 (define-char
@@ -3007,6 +3487,10 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x25A0)
+    (<-halfwidth
+     ((name              . "BLACK SQUARE")
+      (=ucs              . #x25A0)     ; ■
+      ))
     (=ucs              . #xFFED)       ; ￭
     ))
 (define-char
@@ -3015,5 +3499,9 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (->decomposition   narrow #x25CB)
+    (<-halfwidth
+     ((name              . "WHITE CIRCLE")
+      (=ucs              . #x25CB)     ; ○
+      ))
     (=ucs              . #xFFEE)       ; ￮
     ))