Mercurial > emacs
changeset 20841:ef5fd882ca63
(compose-chars-component): Return
result as unibyte string.
(decompose-composite-char): Doc-string modified.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 04 Feb 1998 11:25:47 +0000 |
| parents | 1842af0263da |
| children | 428831a6f4d1 |
| files | lisp/international/mule-util.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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