From: tomo <tomo>
Date: Tue, 16 Nov 1999 20:27:46 +0000 (+0000)
Subject: (insert-char-data): Change order of `morohashi-daikanwa'.
X-Git-Tag: r21-2-19-utf-2000-0_13-0~163
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3a22dcb3b6189c92c4a6841585f8bd1fea3f37d8;p=chise%2Fxemacs-chise.git

(insert-char-data): Change order of `morohashi-daikanwa'.
---

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