(define-charset): If :code-space is not given, generate it from

:dimension.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 757f4c1e049998cd5a433840f86d4edf50176999..976282bbf98ac142dbc760abc39980fb3888221e 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -243,10 +243,18 @@ attribute."
     ;; If :dimension is omitted, get the dimension from :code-space.
     (let ((dimension (plist-get props :dimension)))
       (or dimension
-         (progn
-           (setq dimension (/ (length (plist-get props :code-space)) 2))
+         (let ((code-space (plist-get props :code-space)))
+           (setq dimension (if code-space (/ (length code-space) 2) 4))
            (setq props (plist-put props :dimension dimension)))))
 
+    (let ((code-space (plist-get props :code-space)))
+      (or code-space
+         (let ((dimension (plist-get props :dimension)))
+           (setq code-space (make-vector 8 0))
+           (dotimes (i dimension)
+             (aset code-space (1+ (* i 2)) #xFF))
+           (setq props (plist-put props :code-space code-space)))))
+
     ;; If :emacs-mule-id is specified, update emacs-mule-charset-table.
     (let ((emacs-mule-id (plist-get props :emacs-mule-id)))
       (if (integerp emacs-mule-id)