Function: ccl-compile-read

ccl-compile-read is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-compile-read CMD)

Documentation

Compile READ statement.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-compile-read (cmd)
  "Compile READ statement."
  (if (< (length cmd) 2)
      (error "CCL: Invalid number of arguments: %s" cmd))
  (let* ((args (cdr cmd))
	 (i (1- (length args))))
    (while args
      (let ((rrr (ccl-check-register (car args) cmd)))
	(ccl-embed-code 'read-register rrr i)
	(setq args (cdr args) i (1- i)))))
  nil)