From 359b5eb1e2f798b8c1b869211ab972666b13e7be Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 18 Mar 2003 16:28:03 +0000 Subject: [PATCH] (=daikanwa-rev1): Renamed from `ideograph-daikanwa-2'. (ideograph-daikanwa-2): Changed to an alias for `=daikanwa-rev1'. (=daikanwa-rev2): New coded-charset when `utf-2000' is provided. --- lisp/mule/mule-conf.el | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el index 5403694..0d7960c 100644 --- a/lisp/mule/mule-conf.el +++ b/lisp/mule/mule-conf.el @@ -205,7 +205,20 @@ direction l2r mother =ucs)) - (make-charset 'ideograph-daikanwa-2 + (make-charset 'ideograph-daikanwa + "Daikanwa" + `(long-name "Daikanwa dictionary (revised version 2)" + chars 256 + dimension 2 + columns 2 + graphic 2 + direction l2r + registry "Daikanwa\\(\\.[0-9]+\\)?-3" + min-code #xE00000 + max-code ,(+ #xE00000 50100) + code-offset #xE00000)) + + (make-charset '=daikanwa-rev1 "Daikanwa Rev." `(long-name "Daikanwa dictionary (revised version)" chars 256 @@ -214,8 +227,9 @@ graphic 2 direction l2r registry "Daikanwa\\(\\.[0-9]+\\)?-2")) + (define-charset-alias 'ideograph-daikanwa-2 '=daikanwa-rev1) - (make-charset 'ideograph-daikanwa + (make-charset '=daikanwa-rev2 "Daikanwa" `(long-name "Daikanwa dictionary (revised version 2)" chars 256 -- 1.7.10.4