From: Kenichi Handa <handa@m17n.org>
Date: Sat, 20 May 2000 02:23:35 +0000 (+0000)
Subject: (ccl-compile-write-string): Make STR unibyte.
X-Git-Tag: emacs-pretest-21.0.90~3856
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b07929cd7febe5223f6f892abb25c415cfd4f856;p=emacs.git

(ccl-compile-write-string): Make STR unibyte.
(ccl-compile-write-repeat): If ARG is string, make it unibyte.
---

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)