# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 958789415 0
# Node ID 837bc03279457659c01414d1836c9442e6372f24
# Parent  99c561e74d0dbed297713ece307caff9ac88fad3
(ccl-compile-write-string): Make STR unibyte.
(ccl-compile-write-repeat): If ARG is string, make it unibyte.

diff -r 99c561e74d0d -r 837bc0327945 lisp/international/ccl.el
--- 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)