Function: coding-system-base

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

Signature

(coding-system-base CODING-SYSTEM)

Documentation

Return the base of CODING-SYSTEM.

Any alias or subsidiary coding system is not a base coding system.

Source Code

// Defined in /usr/src/emacs/src/coding.c
{
  Lisp_Object spec, attrs;

  if (NILP (coding_system))
    return (Qno_conversion);
  CHECK_CODING_SYSTEM_GET_SPEC (coding_system, spec);
  attrs = AREF (spec, 0);
  return CODING_ATTR_BASE_NAME (attrs);
}