X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fchar-db-util.el;h=3add8f94561263ed945e601a72ae48c13b1e5166;hb=3a22dcb3b6189c92c4a6841585f8bd1fea3f37d8;hp=966cca3bd5f1e223684910fb72c79fa6e721bd34;hpb=5baddd0c3377672c743fa21d7391abe808a53170;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 966cca3..3add8f9 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -233,6 +233,13 @@
 			  cell))
 	  (setq data (del-alist 'iso-10646-comment data))
 	  )
+	(when (setq cell (assq 'morohashi-daikanwa data))
+	  (setq cell (cdr cell))
+	  (insert (format "(morohashi-daikanwa\t%s)
+    "
+			  (mapconcat (function prin1-to-string) cell " ")))
+	  (setq data (del-alist 'morohashi-daikanwa data))
+	  )
 	(when (setq cell (assq 'ideographic-radical data))
 	  (setq cell (cdr cell))
 	  (insert (format "(ideographic-radical . %S)\t; %c