Mercurial > emacs
changeset 89571:242f2cc0134b
(Fdefine_coding_system_alias): Update Vcoding_system_list.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 06 Oct 2003 11:21:31 +0000 |
| parents | c92884b9ca4a |
| children | 971778c2578c |
| files | src/coding.c |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/coding.c Mon Oct 06 11:20:45 2003 +0000 +++ b/src/coding.c Mon Oct 06 11:21:31 2003 +0000 @@ -8486,8 +8486,7 @@ make_number (nargs))); } -/* Fixme: should this record the alias relationships for - diagnostics? Should it update coding-system-list? */ + DEFUN ("define-coding-system-alias", Fdefine_coding_system_alias, Sdefine_coding_system_alias, 2, 2, 0, doc: /* Define ALIAS as an alias for CODING-SYSTEM. */) @@ -8499,6 +8498,9 @@ CHECK_SYMBOL (alias); CHECK_CODING_SYSTEM_GET_SPEC (coding_system, spec); aliases = AREF (spec, 1); + /* ALISES should be a list of length more than zero, and the first + element is a base coding system. Append ALIAS at the tail of the + list. */ while (!NILP (XCDR (aliases))) aliases = XCDR (aliases); XSETCDR (aliases, Fcons (alias, Qnil)); @@ -8513,11 +8515,10 @@ for (i = 0; i < 3; i++) Fdefine_coding_system_alias (AREF (subsidiaries, i), AREF (eol_type, i)); - - ASET (spec, 2, subsidiaries); } Fputhash (alias, spec, Vcoding_system_hash_table); + Vcoding_system_list = Fcons (alias, Vcoding_system_list); Vcoding_system_alist = Fcons (Fcons (Fsymbol_name (alias), Qnil), Vcoding_system_alist);