Function: ccl-embed-current-address

ccl-embed-current-address is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-embed-current-address IC)

Documentation

Embed a relative jump address to ccl-current-ic in ccl-program-vector at IC without altering the other bit field.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-embed-current-address (ic)
  "Embed a relative jump address to `ccl-current-ic' in
`ccl-program-vector' at IC without altering the other bit field."
  (let ((relative (- ccl-current-ic (1+ ic))))
    (aset ccl-program-vector ic
	  (logior (aref ccl-program-vector ic)
                  (ccl-fixnum (ash relative 8))))))