From 4b8a6fe57ea0eecc8cab28f7a4578146ec51b1f2 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 21 Feb 2015 23:19:39 +0900
Subject: [PATCH] (=>ucs@component): New coded-charset for XEmacs CHISE.
 (=>ucs-bmp-cjk@component): Ditto.

---
 lisp/mule/mule-conf.el |   26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 2104d50..9ac17cc 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -2957,6 +2957,17 @@
 		  graphic	2
 		  direction	l2r))
 
+  (make-charset '=>ucs@component
+		"UCS encoding for abstract components of IWDS-1."
+		'(long-name	"UCS for IWDS-1 abstract components"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=ucs))
+
   (make-charset '=>ucs@hanyo-denshi
 		"UCS abstract characters based on Han'you-Denshi collection."
 		'(long-name	"UCS base characters of Han'you-Denshi"
@@ -3842,6 +3853,21 @@
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
+   '=>ucs-bmp-cjk@component
+   "CJK Characters in BMP for IWDS-1 abstract components."
+   '(long-name "CJK in BMP@component"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "-ja-.*-ucs-0"
+	       mother =>ucs@component
+	       min-code #x2E00
+               max-code #x9FA5
+	       ;; max-code #xA4CF
+	       ))
+  (make-charset
    '==>ucs-bmp-cjk@bucs
    "CJK Characters in BMP of BUCS"
    '(long-name "BUCS-BMP-CJK"
-- 
1.7.10.4