Function: ccl-program-p

ccl-program-p is a function defined in ccl.c.

Signature

(ccl-program-p OBJECT)

Documentation

Return t if OBJECT is a CCL program name or a compiled CCL program code.

See the documentation of define-ccl-program for the detail of CCL program.

Source Code

// Defined in /usr/src/emacs/src/ccl.c
{
  Lisp_Object val;

  if (VECTORP (object))
    {
      val = resolve_symbol_ccl_program (object);
      return (VECTORP (val) ? Qt : Qnil);
    }
  if (!SYMBOLP (object))
    return Qnil;

  val = Fget (object, Qccl_program_idx);
  return ((! FIXNATP (val)
	   || XFIXNUM (val) >= ASIZE (Vccl_program_table))
	  ? Qnil : Qt);
}