From b07929cd7febe5223f6f892abb25c415cfd4f856 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 20 May 2000 02:23:35 +0000 Subject: [PATCH] (ccl-compile-write-string): Make STR unibyte. (ccl-compile-write-repeat): If ARG is string, make it unibyte. --- lisp/international/ccl.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index 429e740ec10..3f5e83c7565 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el @@ -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) -- 2.39.5