Function: ccl-compile-read-branch

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

Signature

(ccl-compile-read-branch CMD)

Documentation

Compile READ statement of the form (read-branch EXPR BLOCK0 BLOCK1 ...).

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-compile-read-branch (cmd)
  "Compile READ statement of the form `(read-branch EXPR BLOCK0 BLOCK1 ...)'."
  (if (< (length cmd) 3)
      (error "CCL: Invalid number of arguments: %s" cmd))
  (ccl-compile-branch-blocks 'read-branch
			     (ccl-compile-branch-expression (nth 1 cmd) cmd)
			     (cdr (cdr cmd))))