X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=0a3073bbbccb3af5a0059c6328712e2979b1ca20;hb=1bc9dc28063ded841dc509ae96522c50c2b31ed4;hp=3848ec80ddf049c13a1bcf4d9b9cb74925ce7f7e;hpb=7da7bbd9f9576082d0ba5c23a07ec999cb8f9a55;p=chise%2Fxemacs-chise.git

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 3848ec8..0a3073b 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
-;; Copyright (C) 1997,1999,2000,2002,2003,2004 MORIOKA Tomohiko
+;; Copyright (C) 1997,1999,2000,2002,2003,2004,2005 MORIOKA Tomohiko
 
 ;; Keywords: mule, multilingual, character set, coding system
 
@@ -183,6 +183,15 @@
 	      mother =jis-x0208
 	      ;; final ?B
 	      graphic 0))
+  (make-charset
+   '=jis-x0208@1978/i1
+   "The first impression of JIS X 0208:1978."
+   '(registry "jisx0208\\.1978"
+	      dimension 2
+	      chars 94
+	      mother =jis-x0208@1978
+	      ;; final ?@
+	      graphic 0))
 
   (make-charset '=big5-cdp
 		"Big5 with CDP extension"
@@ -395,6 +404,19 @@
 		  direction	l2r))
   (define-charset-alias 'ideograph-cbeta '=cbeta)
 
+  (make-charset '=zinbun-oracle
+		"Oracle Bones Script"
+		`(long-name	"Oracle Bones Script in Zinbun, Kyoto Univ."
+		  chars		256
+		  dimension	2
+		  registry	"zob1968-0"
+		  graphic	2
+		  min-code	#xE70000
+		  max-code	,(+ #xE70000 8192)
+		  code-offset	#xE70000
+		  columns	2
+		  direction	l2r))
+
   (make-charset '=jef-china3
 		"JEF + CHINA3 private characters"
 		'(long-name	"JEF + CHINA3"
@@ -460,6 +482,17 @@
 		  graphic	2
 		  direction	l2r
 		  mother	=ucs@gb))
+  (make-charset '=ucs-bmp@gb
+		"ISO/IEC 10646 BMP for GB"
+		'(long-name	"BMP for GB"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=ucs@gb
+		  min-code	#x0000
+		  max-code	#xFFFF))
   (make-charset '=ucs@cns
 		"ISO/IEC 10646 for CNS 11643"
 		'(long-name	"UCS for CNS"
@@ -479,6 +512,17 @@
 		  graphic	2
 		  direction	l2r
 		  mother	=ucs@cns))
+  (make-charset '=ucs-bmp@cns
+		"ISO/IEC 10646 BMP for CNS"
+		'(long-name	"BMP for CNS"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=ucs@cns
+		  min-code	#x0000
+		  max-code	#xFFFF))
   (make-charset '=ucs@jis
 		"ISO/IEC 10646 for JIS X0208/0212/0213"
 		'(long-name	"UCS for JIS"
@@ -498,6 +542,17 @@
 		  graphic	2
 		  direction	l2r
 		  mother	=ucs@jis))
+  (make-charset '=ucs-bmp@jis
+		"ISO/IEC 10646 BMP for JIS"
+		'(long-name	"BMP for JIS"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=ucs@jis
+		  min-code	#x0000
+		  max-code	#xFFFF))
   (make-charset '=ucs@jis/1990
 		"ISO/IEC 10646 for JIS X 0208/0212:1990"
 		'(long-name	"UCS for JIS:1990"
@@ -540,6 +595,17 @@
 		  direction	l2r
 		  mother	=ucs@unicode))
   (define-charset-alias 'ucs-ks '=ucs@ks)
+  (make-charset '=ucs-bmp@ks
+		"ISO/IEC 10646 BMP for KS"
+		'(long-name	"BMP for KS"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  mother	=ucs@ks
+		  min-code	#x0000
+		  max-code	#xFFFF))
   (make-charset '=ucs@big5
 		"ISO/IEC 10646 for Big5"
 		'(long-name	"UCS for Big5"
@@ -616,7 +682,10 @@
 	       direction l2r
 	       registry "-zh-.*-ucs-0"
 	       mother ucs-bmp
-	       min-code #x2E00 max-code #xA4CF))
+	       min-code #x2E00
+	       max-code #x9FA5
+	       ;; max-code #xA4CF
+	       ))
   (make-charset
    '=ucs-bmp-cjk@unicode
    "CJK Characters in BMP of Unicode"