projects
/
chise
/
xemacs-chise.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5baddd0
)
(insert-char-data): Change order of `morohashi-daikanwa'.
author
tomo
<tomo>
Tue, 16 Nov 1999 20:27:46 +0000
(20:27 +0000)
committer
tomo
<tomo>
Tue, 16 Nov 1999 20:27:46 +0000
(20:27 +0000)
lisp/utf-2000/char-db-util.el
patch
|
blob
|
history
diff --git
a/lisp/utf-2000/char-db-util.el
b/lisp/utf-2000/char-db-util.el
index
966cca3
..
3add8f9
100644
(file)
--- 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))
)
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
(when (setq cell (assq 'ideographic-radical data))
(setq cell (cdr cell))
(insert (format "(ideographic-radical . %S)\t; %c