From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 1 Jun 2013 09:19:57 +0000 (+0900)
Subject: (=jis-x0208@1978/1pr/fixed): New coded-charset for XEmacs CHISE.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8bff7cf5c3d8310b06c711682f4b6b9da11f5142;p=chise%2Fxemacs-chise.git

(=jis-x0208@1978/1pr/fixed): New coded-charset for XEmacs CHISE.
(=jis-x0208@1978/1er-pr): Abolished.
(=jis-x0208@1978/2-pr): Use `=jis-x0208@1978' instead of
`=jis-x0208@1978/1er-pr' as the mother.
---

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 69b0f23..d9afd56 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