X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=d9afd560e58a37b9e26de8767bf04e8cc29f2bf7;hb=851df712160cdeeb2ed6662f52cdf28114f5ef80;hp=0896312a15e2b7a99383ddc8fbc97a0f11f180b7;hpb=3995fc28197d2ca47887bf28b5ecf6efbb9ca01a;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 0896312..d9afd56 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1999 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, 2008,
-;;   2009, 2010, 2011, 2012 MORIOKA Tomohiko
+;;   2009, 2010, 2011, 2012, 2013 MORIOKA Tomohiko
 
 ;; Keywords: mule, multilingual, character set, coding system
 
@@ -404,34 +404,46 @@
 	    final ?@
 	    graphic 0))
   (make-charset
-   '=jis-x0208@1978/-4X
-   "JIS X 0208:1978, index before the 4th impression."
+   '=jis-x0208@1978/1pr/fixed
+   "JIS X 0208:1978, correct glyph in the errata of 1st impression."
    '(registry "jisx0208\\.1978"
 	      dimension 2
 	      chars 94
-	      mother =jis-x0208@1978
+	      mother =jis-x0208@1978/1pr
 	      =>iso-ir 42
-              ;; final ?@
+	      ;; final ?@
 	      graphic 0
 	      partial t))
   (make-charset
-   '=jis-x0208@1978/1er-pr
-   "JIS X 0208:1978, fixed by errata [Nov 1978]."
+   '=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 ?@
+	      =>iso-ir 42
+              ;; final ?@
 	      graphic 0
 	      partial t))
+  ;; (make-charset
+  ;;  '=jis-x0208@1978/1er-pr
+  ;;  "JIS X 0208:1978, fixed by errata [Nov 1978]."
+  ;;  '(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"
 	      dimension 2
 	      chars 94
-	      mother =jis-x0208@1978/1er-pr
+              ;; mother =jis-x0208@1978/1er-pr
+	      mother =jis-x0208@1978
               =>iso-ir 42
 	      ;; final ?@
 	      graphic 0
@@ -893,6 +905,18 @@
 	      graphic 0
 	      ;; partial t
 	      ))
+  (make-charset
+   '=+>jis-x0213-1@2004
+   "JIS X 0213:2004 Plain 1 unified abstract glyphs"
+   '(registry "jisx0213\\(\\.2004\\)-1"
+	      dimension 2
+	      chars 94
+	      mother =+>jis-x0213-1
+	      =>iso-ir 233
+              ;; final ?Q
+	      graphic 0
+              ;; partial t
+	      ))
 
   (make-charset
    '=>jis-x0208
@@ -1423,6 +1447,17 @@
 	       registry "HanyoDenshi\\.HG-0$"
 	       mother =>>>hanyo-denshi/hg))
   (make-charset
+   '=>>hanyo-denshi/ip
+   "Han'you-Denshi/IP abstract glyphs"
+   '(long-name "Han'you-Denshi/IP abstract glyphs"
+	       chars 256
+	       dimension 2
+	       columns 2
+	       graphic 2
+	       direction l2r
+	       registry "HanyoDenshi\\.IP-0$"
+	       mother =hanyo-denshi/ip))
+  (make-charset
    '=>>hanyo-denshi/jt
    "JT (Juuki Touitsu Moji) abstract glyphs"
    '(long-name "Han'you-Denshi/JT glyphs"
@@ -1863,6 +1898,49 @@
 		  registry	"rui6-0"
 		  mother	=ruimoku-v6))
 
+  ;; (make-charset
+  ;;  '=zihai
+  ;;  "ZhongHua-ZiHai glyph-images"
+  ;;  '(long-name "ZhongHua-ZiHai (pppp-nn)"
+  ;;              chars 256
+  ;;              dimension 3
+  ;;              columns 2
+  ;;              graphic 2
+  ;;              direction l2r))
+
+  ;; (make-charset
+  ;;  '=zihai-17xx
+  ;;  "ZhongHua-ZiHai (pp.1700〜1781) glyph-images"
+  ;;  '(long-name "ZhongHua-ZiHai pp.17xx"
+  ;;              chars 256
+  ;;              dimension 2
+  ;;              columns 2
+  ;;              graphic 2
+  ;;              direction l2r
+  ;;              registry "zihai\\.cp-17$"))
+
+  (make-charset '=big5-cdp-var-3
+		"Big5-CDP-var-3 glyph-images of GlyphWiki"
+		'(long-name     "Big5-CDP-var-3"
+		  chars         256
+		  dimension     2
+		  columns       2
+		  graphic       2
+		  direction     l2r
+		  registry      "cdp\\.var-3$"
+		  mother        =big5-cdp))
+
+  (make-charset '=big5-cdp-var-5
+		"Big5-CDP-var-5 glyph-images of GlyphWiki"
+		'(long-name     "Big5-CDP-var-5"
+		  chars         256
+		  dimension     2
+		  columns       2
+		  graphic       2
+		  direction     l2r
+		  registry      "cdp\\.var-5$"
+		  mother        =big5-cdp))
+
   (make-charset '==>ucs@bucs
 		"Basic Subset of Coded Character Sets (BUCS)"
 		'(long-name	"BUCS abstract characters"
@@ -2405,6 +2483,30 @@
 		  =>iso-ir	177
 		  mother	=ucs@big5))
 
+  (make-charset '=ucs-itaiji-084
+		"uXXXX-itaiji-084 glyph-images of GlyphWiki"
+		'(long-name	"UCS-itaiji-084"
+		  chars		256
+		  dimension	3
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs))
+  (make-charset '=ucs-bmp-itaiji-084
+		"uXXXX-itaiji-084 glyph-images in BMP"
+		'(long-name	"UCS-BMP-itaiji-084"
+		  chars		256
+		  dimension	2
+		  columns	2
+		  graphic	2
+		  direction	l2r
+                  ;; =>iso-ir	177
+		  mother	=ucs-itaiji-084
+		  min-code #x2E00
+		  max-code #x9FA5
+		  registry "ucs\\.itaiji084-0"))
+
   (make-charset
    '=ucs-radicals
    "CJK Radicals of UCS"