X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=83ade860cae80cbf7de7b39b2e94d934ad303427;hb=80b6f500b159ede8e7be0961315740311fb038ba;hp=2f2860385dede6025c23ed91b7b9dbd63b21fb2e;hpb=63fa83cfe303c550737befe1d8ba9aa2e8f2002e;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 2f28603..83ade86 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -820,6 +820,17 @@
 	      graphic 0
 	      partial t))
   (make-charset
+   '==jis-x0208@1978/-4X
+   "JIS X 0208:1978, index before the 4th impression."
+   '(registry "jisx0208\\.1978"
+	      dimension 2
+	      chars 94
+	      mother ==jis-x0208@1978
+	      =>iso-ir 42
+              ;; final ?@
+	      graphic 0
+	      partial t))
+  (make-charset
    '==jis-x0208@1978/2-pr
    "JIS X 0208:1978, 2nd impression or later."
    '(registry "jisx0208\\.1978"
@@ -2794,6 +2805,135 @@
 	    hzk-max (+ hzk-min 65535))
       (setq i (1+ i))))
 
+  (make-charset '===hng-khi "HNG:妙法蓮華經卷五（今西本）"
+		'(long-name "HNG/宮廷今西"
+		  chars		256
+		  dimension	2
+		  registry	"hng-10$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-khm "HNG:妙法蓮華經卷三（守屋本）"
+		'(long-name "HNG/宮廷守屋"
+		  chars		256
+		  dimension	2
+		  registry	"hng-11$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-kak "HNG:開成石經孝經"
+		'(long-name "HNG/開成孝經"
+		  chars		256
+		  dimension	2
+		  registry	"hng-17$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-sys "HNG:瑜伽師地論卷三十（S.5309）"
+		'(long-name "HNG/S5309"
+		  chars		256
+		  dimension	2
+		  registry	"hng-22$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-tsu "HNG:通典卷一"
+		'(long-name "HNG/通典卷一"
+		  chars		256
+		  dimension	2
+		  registry	"hng-24$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-hod "HNG:法藏和尚傳（高山寺本）"
+		'(long-name "HNG/法藏和尚"
+		  chars		256
+		  dimension	2
+		  registry	"hng-30$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-gok "HNG:後漢書光武帝紀"
+		'(long-name "HNG/光武帝紀"
+		  chars		256
+		  dimension	2
+		  registry	"hng-31$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-k24 "HNG:日本書紀 卷二十四（寛文九年版）"
+		'(long-name "HNG/寛九紀24"
+		  chars		256
+		  dimension	2
+		  registry	"hng-37$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-kcj "HNG:日本書紀 卷二（慶長十五年版）"
+		'(long-name "HNG/慶長紀2"
+		  chars		256
+		  dimension	2
+		  registry	"hng-42$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-kbk "HNG:日本書紀 卷二（寛文九年版）"
+		'(long-name "HNG/寛九紀2"
+		  chars		256
+		  dimension	2
+		  registry	"hng-43$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-sik "HNG:花嚴經卷八（新羅本寫本）"
+		'(long-name "HNG/花嚴新羅"
+		  chars		256
+		  dimension	2
+		  registry	"hng-44$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-skk "HNG:華嚴經卷二十（晉本高麗古版）"
+		'(long-name "HNG/古麗華20"
+		  chars		256
+		  dimension	2
+		  registry	"hng-46$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-kyu "HNG:初麗瑜5"
+		'(long-name "HNG/瑜伽師地論卷五（高麗初彫本）"
+		  chars		256
+		  dimension	2
+		  registry	"hng-47$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-ksk "HNG:華嚴經卷六（高麗再彫本）"
+		'(long-name "HNG/再麗華6"
+		  chars		256
+		  dimension	2
+		  registry	"hng-48$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-wan "HNG:華嚴經卷三十八（趙氏藏本）"
+		'(long-name "HNG/和寧華38"
+		  chars		256
+		  dimension	2
+		  registry	"hng-49$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+  (make-charset '===hng-kss "HNG:華嚴信種義（明惠自筆）"
+		'(long-name "HNG/華嚴信種"
+		  chars		256
+		  dimension	2
+		  registry	"hng-64$"
+		  graphic	2
+		  columns	2
+		  direction	l2r))
+
   (make-charset '=cbeta "CBETA private characters"
 		'(long-name	"CBETA PUA"
 		  chars		256
@@ -2957,7 +3097,7 @@
 
   ;; (make-charset
   ;;  '=zihai-17xx
-  ;;  "ZhongHua-ZiHai (pp.1700$B!A(B1781) glyph-images"
+  ;;  "ZhongHua-ZiHai (pp.1700〜1781) glyph-images"
   ;;  '(long-name "ZhongHua-ZiHai pp.17xx"
   ;;              chars 256
   ;;              dimension 2
@@ -3008,6 +3148,17 @@
 		  graphic	2
 		  direction	l2r))
 
+  (make-charset '=>ucs@iwds-1
+		"UCS abstract characters based on IWDS-1."
+		'(long-name	"UCS based on IWDS-1"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+		  =>iso-ir	177
+		  mother	=ucs))
+
   (make-charset '=>ucs@component
 		"UCS encoding for abstract components of IWDS-1."
 		'(long-name	"UCS for IWDS-1 abstract components"
@@ -3717,7 +3868,7 @@
                   ;; =>iso-ir	177
 		  mother	=ucs-var-001
 		  min-code #x2E00
-		  max-code #x9FA5
+		  max-code #x9FCC
 		  registry "ucs\\.var001-0"))
   (make-charset '=ucs-var-002
 		"uXXXX-var-002 glyph-images of GlyphWiki"
@@ -3740,7 +3891,7 @@
                   ;; =>iso-ir	177
 		  mother	=ucs-var-002
 		  min-code #x2E00
-		  max-code #x9FA5
+		  max-code #x9FCC
 		  registry "ucs\\.var002-0"))
   (make-charset '=ucs-var-003
 		"uXXXX-var-003 glyph-images of GlyphWiki"
@@ -3763,8 +3914,31 @@
                   ;; =>iso-ir	177
 		  mother	=ucs-var-003
 		  min-code #x2E00
-		  max-code #x9FA5
+		  max-code #x9FCC
 		  registry "ucs\\.var003-0"))
+  (make-charset '=ucs-itaiji-002
+		"uXXXX-itaiji-002 glyphs of GlyphWiki"
+		'(long-name	"UCS-itaiji-002"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs))
+  (make-charset '=ucs-bmp-itaiji-002
+		"uXXXX-itaiji-002 glyph-images in BMP"
+		'(long-name	"UCS-BMP-itaiji-002"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs-itaiji-002
+		  min-code #x2E00
+		  max-code #x9FCC
+		  registry "ucs\\.itaiji002-0"))
   (make-charset '=ucs-itaiji-084
 		"uXXXX-itaiji-084 glyph-images of GlyphWiki"
 		'(long-name	"UCS-itaiji-084"
@@ -3786,7 +3960,7 @@
                   ;; =>iso-ir	177
 		  mother	=ucs-itaiji-084
 		  min-code #x2E00
-		  max-code #x9FA5
+		  max-code #x9FCC
 		  registry "ucs\\.itaiji084-0"))
 
   (make-charset
@@ -3850,6 +4024,7 @@
 	       mother ucs-bmp
 	       min-code #x2E00
 	       max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3865,6 +4040,7 @@
 	       mother =ucs@gb
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3880,6 +4056,7 @@
 	       mother ==ucs@gb
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3895,6 +4072,7 @@
 	       mother ===ucs@gb
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3909,7 +4087,7 @@
 	       registry "-ja-.*-ucs-0"
 	       mother =ucs@JP
 	       min-code #x2E00
-               max-code #x9FA5
+               max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3924,7 +4102,7 @@
 	       registry "-ja-.*-ucs-0"
 	       mother =ucs@JP/hanazono
 	       min-code #x2E00
-               max-code #x9FA5
+               max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3939,7 +4117,7 @@
 	       registry "-ja-.*-ucs-0"
 	       mother ==ucs@JP/hanazono
 	       min-code #x2E00
-               max-code #x9FA5
+               max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3955,6 +4133,7 @@
 	       mother =+>ucs@unicode
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3970,6 +4149,7 @@
 	       mother =>ucs@unicode
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -3984,7 +4164,7 @@
 	       registry "-ja-.*-ucs-0"
 	       mother =>ucs@component
 	       min-code #x2E00
-               max-code #x9FA5
+               max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset
@@ -4000,6 +4180,7 @@
 	       mother ==>ucs@bucs
 	       min-code #x2E00
                max-code #x9FA5
+	       ;; max-code #x9FCC
 	       ;; max-code #xA4CF
 	       ))
   (make-charset