(===jis-x0208@1978): Use `==jis-x0208@1978' instead of `===jis-x0208'

[chise/xemacs-chise.git] / lisp / mule / mule-conf.el

diff --git a/lisp/mule/mule-conf.el b/lisp/mule/mule-conf.el
index 9ac17cc..6b27dc5 100644 (file)
--- a/lisp/mule/mule-conf.el
+++ b/lisp/mule/mule-conf.el
@@ -832,7 +832,30 @@
              graphic 0
              ;; partial t
              ))
-    (make-charset
+  (make-charset
+   '==jis-x0208@1978/4er
+   "JIS X 0208:1978, replaced by errata of 4th impression."
+   '(registry "jisx0208\\.1978"
+             dimension 2
+             chars 94
+             mother ==jis-x0208@1978/2-pr
+              =>iso-ir 42
+             ;; final ?@
+             graphic 0
+             partial t))
+  (make-charset
+   '==jis-x0208@1978/5pr
+   "JIS X 0208:1978, 5th impression."
+   '(registry "jisx0208\\.1978"
+             dimension 2
+             chars 94
+              ;; mother ==jis-x0208@1978/4-pr
+              mother ==jis-x0208@1978/2-pr
+              =>iso-ir 42
+             ;; final ?@
+             graphic 0
+             partial t))
+  (make-charset
    '==jis-x0208@1983
    "JIS X 0208:1983 abstract glyph-forms."
    '(registry "jisx0208\\.1983"
@@ -973,7 +996,7 @@
    '(registry "jisx0208\\.1978"
              dimension 2
              chars 94
-             mother ===jis-x0208
+             mother ==jis-x0208@1978
              =>iso-ir 42
              ;; final ?@
              graphic 0))
@@ -983,7 +1006,7 @@
    '(registry "jisx0208\\.1983"
              dimension 2
              chars 94
-             mother ===jis-x0208
+             mother ==jis-x0208@1983
              =>iso-ir 87
              graphic 0))
   (make-charset
@@ -992,7 +1015,7 @@
    '(registry "jisx0208\\.1990"
              dimension 2
              chars 94
-             mother ===jis-x0208
+             mother ==jis-x0208@1990
              =>iso-ir 168
              ;; final ?B
              graphic 0))
@@ -1015,7 +1038,7 @@
    '(registry "jisx0213\\(\\.2000\\)-1"
              dimension 2
              chars 94
-             mother ===jis-x0213-1
+             mother ==jis-x0213-1@2000
              =>iso-ir 228
              ;; final ?O
              graphic 0
@@ -1024,7 +1047,7 @@
   (make-charset
    '===jis-x0213-1@2004
    "JIS X 0213:2004 Plain 1 detailed representative glyph-images."
-   '(mother ===jis-x0213-1
+   '(mother ==jis-x0213-1@2004
            =>iso-ir 233
            ;; registry "jisx0213\\(\\.2004\\)-1"
            dimension 2
@@ -3623,7 +3646,7 @@
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        ===ucs@iso))
+                 mother        ==ucs@unicode))
   (make-charset '===ucs@gb
                "UCS representative glyph-images of GB."
                '(long-name     "UCS rep-images for GB"
@@ -3643,8 +3666,77 @@
                  graphic       2
                  direction     l2r
                  =>iso-ir      177
-                 mother        ===ucs@unicode))
+                 mother        ==ucs@ks))
 
+  (make-charset '=ucs-var-001
+               "uXXXX-var-001 glyph-images of GlyphWiki"
+               '(long-name     "UCS-var-001"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs))
+  (make-charset '=ucs-bmp-var-001
+               "uXXXX-var-001 glyph-images in BMP"
+               '(long-name     "UCS-BMP-var-001"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs-var-001
+                 min-code #x2E00
+                 max-code #x9FA5
+                 registry "ucs\\.var001-0"))
+  (make-charset '=ucs-var-002
+               "uXXXX-var-002 glyph-images of GlyphWiki"
+               '(long-name     "UCS-var-002"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs))
+  (make-charset '=ucs-bmp-var-002
+               "uXXXX-var-002 glyph-images in BMP"
+               '(long-name     "UCS-BMP-var-002"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs-var-002
+                 min-code #x2E00
+                 max-code #x9FA5
+                 registry "ucs\\.var002-0"))
+  (make-charset '=ucs-var-003
+               "uXXXX-var-003 glyph-images of GlyphWiki"
+               '(long-name     "UCS-var-003"
+                 chars         256
+                 dimension     3
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs))
+  (make-charset '=ucs-bmp-var-003
+               "uXXXX-var-003 glyph-images in BMP"
+               '(long-name     "UCS-BMP-var-003"
+                 chars         256
+                 dimension     2
+                 columns       2
+                 graphic       2
+                 direction     l2r
+                  ;; =>iso-ir  177
+                 mother        =ucs-var-003
+                 min-code #x2E00
+                 max-code #x9FA5
+                 registry "ucs\\.var003-0"))
   (make-charset '=ucs-itaiji-084
                "uXXXX-itaiji-084 glyph-images of GlyphWiki"
                '(long-name     "UCS-itaiji-084"