Function: check-ccl-program

check-ccl-program is an autoloaded macro defined in ccl.el.gz.

Signature

(check-ccl-program CCL-PROGRAM &optional NAME)

Documentation

Check validity of CCL-PROGRAM.

If CCL-PROGRAM is a symbol denoting a CCL program, return CCL-PROGRAM, else return nil. If CCL-PROGRAM is a vector and optional arg NAME (symbol) is supplied, register CCL-PROGRAM by name NAME, and return NAME.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
;;;###autoload
(defmacro check-ccl-program (ccl-program &optional name)
  "Check validity of CCL-PROGRAM.
If CCL-PROGRAM is a symbol denoting a CCL program, return
CCL-PROGRAM, else return nil.
If CCL-PROGRAM is a vector and optional arg NAME (symbol) is supplied,
register CCL-PROGRAM by name NAME, and return NAME."
  `(if (ccl-program-p ,ccl-program)
       (if (vectorp ,ccl-program)
	   (progn
	     (register-ccl-program ,name ,ccl-program)
	     ,name)
	 ,ccl-program)))