* 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.

diff --git a/src/ChangeLog b/src/ChangeLog
index a51370d..9abd237 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
+2003-06-06  Kenichi Handa  <handa@m17n.org>
+
+       * 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  <handa@m17n.org>
 
        * callproc.c (Fcall_process): Handle carryover correctly.

diff --git a/src/coding.c b/src/coding.c
index c9f5837..908a78f 100644 (file)
--- 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);