From 01378f498787ac5c44e1f48b388226397ce506ee Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 6 Jun 2003 02:13:40 +0000 Subject: [PATCH] * 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. --- src/ChangeLog | 9 +++++++++ src/coding.c | 6 ++++++ 2 files changed, 15 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index a51370d5d67..9abd237bbb1 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,12 @@ +2003-06-06 Kenichi Handa + + * 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. + 2003-06-05 Kenichi Handa * callproc.c (Fcall_process): Handle carryover correctly. diff --git a/src/coding.c b/src/coding.c index c9f5837e191..908a78f2c8a 100644 --- a/src/coding.c +++ b/src/coding.c @@ -311,6 +311,7 @@ Lisp_Object Qcharset, Qiso_2022, Qutf_8, Qutf_16, Qshift_jis, Qbig5; 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 @@ usage: (define-coding-system-internal ...) */) 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 @@ syms_of_coding () DEFSYM (Qemacs_mule, "emacs-mule"); + DEFSYM (QCcategory, ":category"); + Vcoding_category_table = Fmake_vector (make_number (coding_category_max), Qnil); staticpro (&Vcoding_category_table); -- 2.39.5