From: tomo <tomo>
Date: Tue, 18 Mar 2003 16:34:33 +0000 (+0000)
Subject: (char-db-make-char-spec): Regard `=daikanwa-rev2' as same as
X-Git-Tag: r21-4-11-chise-0_21-=daikanwa-rev1+2^2~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8233cde81ef257fb4d9d2079b179e92c06369048;p=chise%2Fxemacs-chise.git.1

(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'.
---

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"