Function: ccl-dump-write-string-jump

ccl-dump-write-string-jump is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-dump-write-string-jump IGNORE CC)

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-dump-write-string-jump (_ignore cc)
  (let ((address ccl-current-ic)
	(len (ccl-get-next-code))
	(i 0))
    (insert "write \"")
    (while (< i len)
      (let ((code (ccl-get-next-code)))
	(insert (ash code -16))
	(if (< (1+ i) len) (insert (logand (ash code -8) 255)))
	(if (< (+ i 2) len) (insert (logand code 255))))
      (setq i (+ i 3)))
    (insert "\", ")
    (ccl-dump-jump nil cc address)))