(japanese-jisx0213.2004-1): Specify :code-space.

(cp932-2-byte): Fix :code-space.
(unicode-smp, unicode-sip, unicode-ssp): New charsets.

1 files changed, 21 insertions, 2 deletions

diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index 0c9767052e6..69dd8a8fa88 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -431,6 +431,7 @@
   "JISX0213.2004 Plane1 (Japanese)"
   :short-name "JISX0213.2004-1"
   :dimension 2
+  :code-space [33 126 33 126]
   :iso-final-char ?Q
   :superset '(japanese-jisx0213-a japanese-jisx0213-1))
 
@@ -445,7 +446,7 @@
   "2-byte part of CP932"
   :dimension 2
   :map "CP932-2BYTE"
-  :code-space [#x00 #xFF #x00 #xFE]
+  :code-space [#x40 #xFC #x81 #xEF]
   :supplementary-p t)
 
 (define-charset 'cp932
@@ -959,11 +960,29 @@
   :code-offset #x100)
 
 (define-charset 'unicode-bmp
-  "Unicode Basic Multilingual Plane"
+  "Unicode Basic Multilingual Plane (U+0000..U+FFFF)"
   :short-name "Unicode BMP"
   :code-space [0 255 0 255]
   :code-offset 0)
 
+(define-charset 'unicode-smp
+  "Unicode Supplementary Multilingual Plane (U+10000..U+1FFFF)"
+  :short-name "Unicode SMP "
+  :code-space [0 255 0 255]
+  :code-offset #x10000)
+
+(define-charset 'unicode-sip
+  "Unicode Supplementary Ideographic Plane (U+20000..U+2FFFF)"
+  :short-name "Unicode SIP"
+  :code-space [0 255 0 255]
+  :code-offset #x20000)
+
+(define-charset 'unicode-ssp
+  "Unicode Supplementary Special-purpose Plane (U+E0000..U+EFFFF)"
+  :short-name "Unicode SSP"
+  :code-space [0 255 0 255]
+  :code-offset #xE0000)
+
 (define-charset 'ethiopic
   "Ethiopic characters for Amharic and Tigrigna."
   :short-name "Ethiopic"