Function: check-coding-system

check-coding-system is a function defined in coding.c.

Signature

(check-coding-system CODING-SYSTEM)

Documentation

Check validity of CODING-SYSTEM.

If valid, return CODING-SYSTEM, else signal a coding-system-error error. It is valid if it is nil or a symbol defined as a coding system by the function define-coding-system.

Source Code

// Defined in /usr/src/emacs/src/coding.c
{
  Lisp_Object define_form;

  define_form = Fget (coding_system, Qcoding_system_define_form);
  if (! NILP (define_form))
    {
      Fput (coding_system, Qcoding_system_define_form, Qnil);
      safe_eval (define_form);
    }
  if (!NILP (Fcoding_system_p (coding_system)))
    return coding_system;
  xsignal1 (Qcoding_system_error, coding_system);
}