(compose-chars-component): Return

result as unibyte string.
(decompose-composite-char): Doc-string modified.

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index ae670a0e76a3938bae79b0ef9112dbb2eb3ad7b1..949d2c766c3fa081cd1890b3fb649f50c3dab83e 100644 (file)
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -423,7 +423,7 @@ overall glyph is updated as follows:
 (defun compose-chars-component (ch)
   (if (< ch 128)
       (format "\240%c" (+ ch 128))
-    (let ((str (char-to-string ch)))
+    (let ((str (string-as-unibyte (char-to-string ch))))
       (if (cmpcharp ch)
          (substring str (if (= (aref str 1) ?\xFF) 2 1))
        (aset str 0 (+ (aref str 0) ?\x20))
@@ -459,11 +459,11 @@ See the documentation of `reference-point-alist' for more detail."
                    args (cdr (cdr args))))
          (setq str (concat str (compose-chars-component (car args)))
                args (cdr args))))
-      str)))
+      (string-as-multibyte str))))
 
 ;;;###autoload
 (defun decompose-composite-char (char &optional type with-composition-rule)
-  "Convert composite character CHAR to a string containing components of CHAR.
+  "Convert composite character CHAR to a sequence of the components.
 Optional 1st arg TYPE specifies the type of sequence returned.
 It should be `string' (default), `list', or `vector'.
 Optional 2nd arg WITH-COMPOSITION-RULE non-nil means the returned