Fix prefixes used in subtrees of `isd:structure'.

[chise/chiset.git] / char-db-turtle.el

diff --git a/char-db-turtle.el b/char-db-turtle.el
index 38e30c5..9f367ff 100644 (file)
--- a/char-db-turtle.el
+++ b/char-db-turtle.el
@@ -54,10 +54,12 @@
     =ucs-itaiji-004
     =ucs-itaiji-005
     =ucs-itaiji-006
+    =ucs-itaiji-007
     =ucs-itaiji-009
     =ucs-itaiji-084
     =ucs-var-001
     =ucs-var-002
+    =ucs-var-003
     =ucs-var-004
     =cns11643-1 =cns11643-2 =cns11643-3
     =cns11643-4 =cns11643-5 =cns11643-6 =cns11643-7
@@ -74,6 +76,7 @@
     =daikanwa
     =ruimoku-v6
     =cbeta =jef-china3
+    =daikanwa/+2p
     =+>ucs@iso =+>ucs@unicode
     =+>ucs@jis
     =+>ucs@cns
@@ -117,7 +120,9 @@
     ==daikanwa
     ==gt-k
     ==ucs@gb
+    ==ucs-itaiji-003
     ==ucs@JP/hanazono
+    ==daikanwa/+2p
     =>>jis-x0208 =>>jis-x0213-1 =>>jis-x0213-2
     =+>jis-x0208 =+>jis-x0213-1 =+>jis-x0213-2
     =+>hanyo-denshi/jt
@@ -1115,7 +1120,7 @@
                    ))
               )
              ((eq name 'ideographic-structure)
-              (insert (isd-turtle-format-char nil nil value nil
+              (insert (isd-turtle-format-char nil nil value (/ column 4)
                                               'isd 'without-head-char))
               (insert " ;")
               )