New file.

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

diff --git a/char-db-turtle.el b/char-db-turtle.el
index db3f9df..f1cf5ba 100644 (file)
--- a/char-db-turtle.el
+++ b/char-db-turtle.el
@@ -67,12 +67,11 @@
     =ucs@unicode
     =ucs@JP/hanazono
     =gb12345
+    =ucs@cns
     =zinbun-oracle =>zinbun-oracle
     =daikanwa
     =ruimoku-v6
     =cbeta =jef-china3
-    =shinjigen@1ed
-    =shinjigen/+p@rev
     =+>ucs@iso =+>ucs@unicode
     =+>ucs@jis
     =+>ucs@cns
@@ -108,13 +107,12 @@
     ==gt
     ==cns11643-1 ==cns11643-2 ==cns11643-3
     ==cns11643-4 ==cns11643-5 ==cns11643-6 ==cns11643-7
+    ==jis-x0212
     ==ucs@cns
-    ==gt-k
     ==koseki
+    ==daikanwa
+    ==gt-k
     ==ucs@JP/hanazono
-    ==shinjigen
-    ==shinjigen@rev
-    ==daikanwa/+p
     =>>jis-x0208 =>>jis-x0213-1 =>>jis-x0213-2
     =+>jis-x0208 =+>jis-x0213-1 =+>jis-x0213-2
     =+>hanyo-denshi/jt
@@ -137,7 +135,14 @@
     ===gt
     ===gt-k
     ===ucs@ks
+    =shinjigen
+    =shinjigen@1ed
+    =shinjigen/+p@rev
+    ==shinjigen
+    ==shinjigen@rev
+    ==daikanwa/+p
     ===daikanwa/+p
+    =>daikanwa/ho
     ===daikanwa/ho
     ))
 
@@ -489,7 +494,7 @@
 
 (defun char-db-turtle-insert-source-list (value &optional readable)
   (let (lbs separator rest cell al cal key ret)
-    (setq lbs (concat "\n" (make-string (current-column) ?\ ))
+    (setq lbs (concat " ,\n" (make-string (current-column) ?\ ))
          separator nil)
     (while (consp value)
       (setq cell (car value))