procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ccl-compile-write-string): Make STR unibyte.

Browse source 
(ccl-compile-write-repeat): If ARG is string, make it unibyte.
This commit is contained in:
Kenichi Handa 2000-05-20 02:23:35 +00:00
parent f5ee6d0f90
commit b07929cd7f
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/international/ccl.el
View file

@ -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)