From 3a22dcb3b6189c92c4a6841585f8bd1fea3f37d8 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 16 Nov 1999 20:27:46 +0000 Subject: [PATCH] (insert-char-data): Change order of `morohashi-daikanwa'. --- lisp/utf-2000/char-db-util.el | 7 +++++++ 1 file changed, 7 insertions(+) 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 -- 1.7.10.4