projects
/
chise
/
chiset.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
New file.
[chise/chiset.git]
/
char-db-turtle.el
diff --git
a/char-db-turtle.el
b/char-db-turtle.el
index
da1be9f
..
f1cf5ba
100644
(file)
--- a/
char-db-turtle.el
+++ b/
char-db-turtle.el
@@
-67,6
+67,7
@@
=ucs@unicode
=ucs@JP/hanazono
=gb12345
=ucs@unicode
=ucs@JP/hanazono
=gb12345
+ =ucs@cns
=zinbun-oracle =>zinbun-oracle
=daikanwa
=ruimoku-v6
=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
==gt
==cns11643-1 ==cns11643-2 ==cns11643-3
==cns11643-4 ==cns11643-5 ==cns11643-6 ==cns11643-7
+ ==jis-x0212
==ucs@cns
==koseki
==daikanwa
==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)
(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))
separator nil)
(while (consp value)
(setq cell (car value))