Mercurial > emacs
changeset 29030:837bc0327945
(ccl-compile-write-string): Make STR unibyte.
(ccl-compile-write-repeat): If ARG is string, make it unibyte.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 20 May 2000 02:23:35 +0000 |
| parents | 99c561e74d0d |
| children | 18ae8656c122 |
| files | lisp/international/ccl.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/ccl.el Sat May 20 02:23:03 2000 +0000 +++ b/lisp/international/ccl.el Sat May 20 02:23:35 2000 +0000 @@ -512,6 +512,7 @@ ;; Compile WRITE statement with string argument. (defun ccl-compile-write-string (str) + (setq str (string-as-unibyte str)) (let ((len (length str))) (ccl-embed-code 'write-const-string 1 len) (ccl-embed-string len str)) @@ -723,6 +724,7 @@ (ccl-embed-code 'write-const-jump 0 ccl-loop-head) (ccl-embed-data arg)) ((stringp arg) + (setq arg (string-as-unibyte arg)) (let ((len (length arg)) (i 0)) (ccl-embed-code 'write-string-jump 0 ccl-loop-head)