(U-000244EF): Add `<-denotational@component' for A-IWDSU+25605.

[chise/xemacs-chise.git] / lisp / utf-2000 / char-db-util.el

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index c0fc51a..58eec15 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -422,11 +422,14 @@
     ==ucs@gb
     =ucs@gb
     ==ucs-var-002
+    ==ucs-itaiji-002
     =ucs@JP/hanazono
     =koseki
     =shuowen-jiguge
+    =>shuowen-jiguge
     ===shuowen-jiguge5
-    ===shuowen-jiguge4))
+    ===shuowen-jiguge4
+    ===chise-hdic-ktb-seal))
 
 
 ;;; @ char-db formatters
@@ -800,7 +803,8 @@
                 ===hng-kyo ===hng-ykk ===hng-saa
                 ===hng-sab ===hng-wks ===hng-wke ===hng-smk
                 ===hng-sgs ===hng-sts ===hng-kkd
-                =shuowen-jiguge ===shuowen-jiguge4 ===shuowen-jiguge5))
+                =>shuowen-jiguge =shuowen-jiguge
+                ===shuowen-jiguge4 ===shuowen-jiguge5 ===shuowen-jiguge-A30))
         ;; (string-match "^=adobe-" (symbol-name name))
         )
        "(%-18s . %05d)\t; %c")
@@ -1436,6 +1440,7 @@
              ((or (eq name 'ideographic-structure)
                   (eq name 'ideographic-structure@apparent)
                   (eq name 'ideographic-structure@apparent/leftmost)
+                  (eq name 'ideographic-structure@apparent/rightmost)
                   (eq name 'ideographic-combination)
                    ;; (eq name 'ideographic-)
                   (eq name '=decomposition)