From afe7af84d25ead7b3e273ac308378861271212e5 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 4 Feb 1998 11:25:47 +0000 Subject: [PATCH] (compose-chars-component): Return result as unibyte string. (decompose-composite-char): Doc-string modified. --- lisp/international/mule-util.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index ae670a0e76a..949d2c766c3 100644 --- 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 -- 2.39.5