Function: ccl-get-next-code

ccl-get-next-code is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-get-next-code)

Documentation

Return a CCL code in ccl-code at ccl-current-ic.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-get-next-code ()
  "Return a CCL code in `ccl-code' at `ccl-current-ic'."
  (prog1
      (let ((code (aref ccl-code ccl-current-ic)))
        (if (numberp code) (ccl-fixnum code) code))
    (setq ccl-current-ic (1+ ccl-current-ic))))