procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* coding.c (QCcategory): New variable.

Browse source 
(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.
This commit is contained in:
Kenichi Handa 2003-06-06 02:13:40 +00:00
parent ff563fced5
commit 01378f4987
2 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/coding.c
View file

@ -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);