Function: ccl-embed-data

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

Signature

(ccl-embed-data DATA &optional IC)

Documentation

Embed integer DATA in ccl-program-vector at ccl-current-ic and increment it. If IC is specified, embed DATA at IC.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-embed-data (data &optional ic)
  "Embed integer DATA in `ccl-program-vector' at `ccl-current-ic' and
increment it.  If IC is specified, embed DATA at IC."
  (if ic
      (aset ccl-program-vector ic (if (numberp data)
                                      (ccl-fixnum data)
                                    data))
    (let ((len (length ccl-program-vector)))
      (if (>= ccl-current-ic len)
	  (let ((new (make-vector (* len 2) nil)))
	    (while (> len 0)
	      (setq len (1- len))
	      (aset new len (aref ccl-program-vector len)))
	    (setq ccl-program-vector new))))
    (aset ccl-program-vector ccl-current-ic (if (numberp data)
                                                (ccl-fixnum data)
                                              data))
    (setq ccl-current-ic (1+ ccl-current-ic))))