X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=char-db-turtle.el;h=9f367ff6161efc5367fb525cf4992b3deb4c8b94;hb=757011978003c05d55dc29c0bdf3276ac57fc15f;hp=f6ad2d66ecfaff0ca1265d1a9dfba7f1e503a353;hpb=55d4f11322d542144a6bb17a06b96cbc2f82a605;p=chise%2Fchiset.git

diff --git a/char-db-turtle.el b/char-db-turtle.el
index f6ad2d6..9f367ff 100644
--- a/char-db-turtle.el
+++ b/char-db-turtle.el
@@ -54,6 +54,7 @@
     =ucs-itaiji-004
     =ucs-itaiji-005
     =ucs-itaiji-006
+    =ucs-itaiji-007
     =ucs-itaiji-009
     =ucs-itaiji-084
     =ucs-var-001
@@ -75,6 +76,7 @@
     =daikanwa
     =ruimoku-v6
     =cbeta =jef-china3
+    =daikanwa/+2p
     =+>ucs@iso =+>ucs@unicode
     =+>ucs@jis
     =+>ucs@cns
@@ -120,6 +122,7 @@
     ==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
@@ -1117,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 " ;")
 	       )