diff options
author | Kenichi Handa <handa@m17n.org> | 1998-02-04 11:25:47 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1998-02-04 11:25:47 +0000 |
commit | 8e1c663d897bb99f062945bacda9f625ccb12f82 (patch) | |
tree | a2547a1009dc3138abcbc22b619602fd903b9fb8 /lisp | |
parent | 2f6af6ba37aee3fd279be78d00a2157946117abe (diff) | |
download | emacs-8e1c663d897bb99f062945bacda9f625ccb12f82.tar.gz |
(compose-chars-component): Return
result as unibyte string.
(decompose-composite-char): Doc-string modified.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/international/mule-util.el | 6 |
1 files 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 |