X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-conf.el;h=b239d3e61f43f1c1d77722ace2cdafe30a080919;hb=9871a43039a6eed80a3e04f531abcaeea0d93d40;hp=79993f61490255dc2232b63938146ec9670af790;hpb=d53d58403ddadb308b717ce91f38080eb32e806d;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 79993f6..b239d3e 100644
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -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
@@ -1011,6 +1023,15 @@
 	      =>iso-ir 172
 	      graphic 0))
   (make-charset
+   '=>cns11643-6
+   "CNS 11643 Plane 6 abstract characters."
+   '(registry "CNS11643[.-]\\(.*[.-]\\)?6$"
+	      dimension 2
+	      chars 94
+	      mother =cns11643-6
+	      =>iso-ir 186
+	      graphic 0))
+  (make-charset
    '=>cns11643-7
    "CNS 11643 Plane 7 abstract characters."
    '(registry "CNS11643[.-]\\(.*[.-]\\)?7$"
@@ -2471,6 +2492,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"