X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=char-db-turtle.el;h=f1cf5ba772a37057f550f08b9b4504d992cee2a0;hb=6d8ee536b485aef199a1449ddccda322cc94a57c;hp=da1be9faca4295919b9b139b8e529046e32fa574;hpb=869f5a44eefbddd2c82bcd9cbbaa16d929b74405;p=chise%2Fchiset.git

diff --git a/char-db-turtle.el b/char-db-turtle.el
index da1be9f..f1cf5ba 100644
--- a/char-db-turtle.el
+++ b/char-db-turtle.el
@@ -67,6 +67,7 @@
     =ucs@unicode
     =ucs@JP/hanazono
     =gb12345
+    =ucs@cns
     =zinbun-oracle =>zinbun-oracle
     =daikanwa
     =ruimoku-v6
@@ -106,6 +107,7 @@
     ==gt
     ==cns11643-1 ==cns11643-2 ==cns11643-3
     ==cns11643-4 ==cns11643-5 ==cns11643-6 ==cns11643-7
+    ==jis-x0212
     ==ucs@cns
     ==koseki
     ==daikanwa
@@ -492,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))