# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 886591547 0
# Node ID ef5fd882ca6349e53c38542fdb422266cabb0964
# Parent  1842af0263da637d0380963e3cf38560ec59ce8a
(compose-chars-component): Return
result as unibyte string.
(decompose-composite-char): Doc-string modified.

diff -r 1842af0263da -r ef5fd882ca63 lisp/international/mule-util.el
--- a/lisp/international/mule-util.el	Wed Feb 04 11:25:47 1998 +0000
+++ b/lisp/international/mule-util.el	Wed Feb 04 11:25:47 1998 +0000
@@ -423,7 +423,7 @@
 (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 @@
 		    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