Mercurial > emacs
changeset 89468:7dbbe692f70c
* coding.c (QCcategory): New variable.
(syms_of_coding): Defsym it. Set all elements of
Vcoding_category_table and their symbol values.
(Fset_coding_system_priority): Doc fix. Update symbol qvalues of
coding-category-XXX, and coding-category-list.
(Fdefine_coding_system_internal): Add category in the plist.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 06 Jun 2003 02:13:16 +0000 |
| parents | e911ca706166 |
| children | 97712d8a242e |
| files | src/coding.c |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/coding.c Thu Jun 05 23:21:22 2003 +0000 +++ b/src/coding.c Fri Jun 06 02:13:16 2003 +0000 @@ -311,6 +311,7 @@ Lisp_Object Qbig, Qlittle; Lisp_Object Qcoding_system_history; Lisp_Object Qvalid_codes; +Lisp_Object QCcategory; extern Lisp_Object Qinsert_file_contents, Qwrite_region; Lisp_Object Qcall_process, Qcall_process_region, Qprocess_argument; @@ -8313,6 +8314,9 @@ XSYMBOL (coding_type)->name->data); CODING_ATTR_CATEGORY (attrs) = make_number (category); + CODING_ATTR_PLIST (attrs) + = Fcons (QCcategory, Fcons (AREF (Vcoding_category_table, category), + CODING_ATTR_PLIST (attrs))); eol_type = args[coding_arg_eol_type]; if (! NILP (eol_type) @@ -8623,6 +8627,8 @@ DEFSYM (Qemacs_mule, "emacs-mule"); + DEFSYM (QCcategory, ":category"); + Vcoding_category_table = Fmake_vector (make_number (coding_category_max), Qnil); staticpro (&Vcoding_category_table);