projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use `hanyu-dazidian' instead of `hanyu-dazidian-vol',
[chise/xemacs-chise.git]
/
lisp
/
utf-2000
/
char-db-util.el
diff --git
a/lisp/utf-2000/char-db-util.el
b/lisp/utf-2000/char-db-util.el
index
9bd4919
..
8a4d35d
100644
(file)
--- a/
lisp/utf-2000/char-db-util.el
+++ b/
lisp/utf-2000/char-db-util.el
@@
-1,6
+1,6
@@
;;; char-db-util.el --- Character Database utility
;;; char-db-util.el --- Character Database utility
-;; Copyright (C) 1998,1999,2000,2001 MORIOKA Tomohiko.
+;; Copyright (C) 1998,1999,2000,2001,2002 MORIOKA Tomohiko.
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: UTF-2000, ISO/IEC 10646, Unicode, UCS-4, MULE.
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: UTF-2000, ISO/IEC 10646, Unicode, UCS-4, MULE.
@@
-159,6
+159,7
@@
arabic-digit
arabic-1-column
arabic-2-column)))
arabic-digit
arabic-1-column
arabic-2-column)))
+ ((string-match "^mojikyo-" (symbol-name (car rest))))
((string-match "^ideograph-gt-pj-" (symbol-name (car rest)))
(unless (memq 'ideograph-gt dest)
(setq dest (cons 'ideograph-gt dest))))
((string-match "^ideograph-gt-pj-" (symbol-name (car rest)))
(unless (memq 'ideograph-gt dest)
(setq dest (cons 'ideograph-gt dest))))
@@
-822,8
+823,10
@@
(setq value (get-char-attribute char name)))
(insert
(format
(setq value (get-char-attribute char name)))
(insert
(format
- (cond ((memq name '(ideograph-daikanwa ideograph-gt
- ideograph-cbeta))
+ (cond ((memq name '(ideograph-daikanwa-2
+ ideograph-daikanwa
+ ideograph-gt
+ ideograph-cbeta))
(if has-long-ccs-name
"(%-26s . %05d)\t; %c%s"
"(%-18s . %05d)\t; %c%s"))
(if has-long-ccs-name
"(%-26s . %05d)\t; %c%s"
"(%-18s . %05d)\t; %c%s"))