7176 |
|
|
7177 |
DEFUN ("set-coding-system-priority", Fset_coding_system_priority, |
DEFUN ("set-coding-system-priority", Fset_coding_system_priority, |
7178 |
Sset_coding_system_priority, 1, MANY, 0, |
Sset_coding_system_priority, 1, MANY, 0, |
7179 |
doc: /* Assign higher priority to coding systems given as arguments. |
doc: /* Assign higher priority to the coding systems given as arguments. |
7180 |
usage: (set-coding-system-priority CODING-SYSTEM ...) */) |
usage: (set-coding-system-priority CODING-SYSTEM ...) */) |
7181 |
(nargs, args) |
(nargs, args) |
7182 |
int nargs; |
int nargs; |
7226 |
|
|
7227 |
DEFUN ("coding-system-priority-list", Fcoding_system_priority_list, |
DEFUN ("coding-system-priority-list", Fcoding_system_priority_list, |
7228 |
Scoding_system_priority_list, 0, 1, 0, |
Scoding_system_priority_list, 0, 1, 0, |
7229 |
doc: /* Return a list of coding systems ordered by their priorities. */) |
doc: /* Return a list of coding systems ordered by their priorities. |
7230 |
|
HIGHESTP non-nil means just return the highest priority one. */) |
7231 |
(highestp) |
(highestp) |
7232 |
Lisp_Object highestp; |
Lisp_Object highestp; |
7233 |
{ |
{ |
7718 |
make_number (nargs))); |
make_number (nargs))); |
7719 |
} |
} |
7720 |
|
|
7721 |
|
/* Fixme: should this record the alias relationships for |
7722 |
|
diagnostics? */ |
7723 |
DEFUN ("define-coding-system-alias", Fdefine_coding_system_alias, |
DEFUN ("define-coding-system-alias", Fdefine_coding_system_alias, |
7724 |
Sdefine_coding_system_alias, 2, 2, 0, |
Sdefine_coding_system_alias, 2, 2, 0, |
7725 |
doc: /* Define ALIAS as an alias for CODING-SYSTEM. */) |
doc: /* Define ALIAS as an alias for CODING-SYSTEM. */) |
7759 |
DEFUN ("coding-system-base", Fcoding_system_base, Scoding_system_base, |
DEFUN ("coding-system-base", Fcoding_system_base, Scoding_system_base, |
7760 |
1, 1, 0, |
1, 1, 0, |
7761 |
doc: /* Return the base of CODING-SYSTEM. |
doc: /* Return the base of CODING-SYSTEM. |
7762 |
Any alias or subsidiary coding systems are not base coding system. */) |
Any alias or subsidiary coding system is not a base coding system. */) |
7763 |
(coding_system) |
(coding_system) |
7764 |
Lisp_Object coding_system; |
Lisp_Object coding_system; |
7765 |
{ |
{ |
7790 |
|
|
7791 |
DEFUN ("coding-system-aliases", Fcoding_system_aliases, Scoding_system_aliases, |
DEFUN ("coding-system-aliases", Fcoding_system_aliases, Scoding_system_aliases, |
7792 |
1, 1, 0, |
1, 1, 0, |
7793 |
doc: /* Return the list of aliases of CODING-SYSTEM. |
doc: /* Return the list of aliases of CODING-SYSTEM. */) |
|
A base coding system is what made by `define-coding-system'. |
|
|
Any alias nor subsidiary coding systems are not base coding system. */) |
|
7794 |
(coding_system) |
(coding_system) |
7795 |
Lisp_Object coding_system; |
Lisp_Object coding_system; |
7796 |
{ |
{ |
7799 |
if (NILP (coding_system)) |
if (NILP (coding_system)) |
7800 |
coding_system = Qno_conversion; |
coding_system = Qno_conversion; |
7801 |
CHECK_CODING_SYSTEM_GET_SPEC (coding_system, spec); |
CHECK_CODING_SYSTEM_GET_SPEC (coding_system, spec); |
7802 |
return AREF (spec, 2); |
return AREF (spec, 1); |
7803 |
} |
} |
7804 |
|
|
7805 |
DEFUN ("coding-system-eol-type", Fcoding_system_eol_type, |
DEFUN ("coding-system-eol-type", Fcoding_system_eol_type, |