From 8233cde81ef257fb4d9d2079b179e92c06369048 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 18 Mar 2003 16:34:33 +0000 Subject: [PATCH] (char-db-make-char-spec): Regard `=daikanwa-rev2' as same as `ideograph-daikanwa'. (insert-char-attributes): Regard `=daikanwa-rev1' and `=daikanwa-rev2' as same as `ideograph-daikanwa'. --- lisp/utf-2000/char-db-util.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index f2397d4..d8bb506 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -200,6 +200,7 @@ (if (and (or (charset-iso-final-char ccs) (memq ccs '(ideograph-daikanwa + =daikanwa-rev2 ;; =gt-k ))) (setq ret (get-char-attribute char ccs))) @@ -951,8 +952,9 @@ (setq value (get-char-attribute char name))) (insert (format - (cond ((memq name '(ideograph-daikanwa-2 - ideograph-daikanwa + (cond ((memq name '(ideograph-daikanwa + =daikanwa-rev1 + =daikanwa-rev2 =gt =gt-k =cbeta)) (if has-long-ccs-name "(%-26s . %05d)\t; %c%s" -- 1.7.10.4