# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1021652723 0
# Node ID f464d728344c3b146ef4486a45e23cd98a2dd53a
# Parent  f14d2bf6caa4b8caacb47164442dd99be4a5c811
(Vchar_coding_system_table, Qchar_coding_system):
Removed.
(Fset_coding_system_priority, Fset_coding_system_priority)
(Fdefine_coding_system_internal): Doc fix.

diff -r f14d2bf6caa4 -r f464d728344c src/coding.c
--- a/src/coding.c	Fri May 17 16:24:57 2002 +0000
+++ b/src/coding.c	Fri May 17 16:25:23 2002 +0000
@@ -402,10 +402,6 @@
    to avoid infinite recursive call.  */
 static int inhibit_pre_post_conversion;
 
-/* Char-table containing safe coding systems of each character.  */
-Lisp_Object Vchar_coding_system_table;
-Lisp_Object Qchar_coding_system;
-
 /* Two special coding systems.  */
 Lisp_Object Vsjis_coding_system;
 Lisp_Object Vbig5_coding_system;
@@ -7105,7 +7101,8 @@
 
 DEFUN ("set-coding-system-priority", Fset_coding_system_priority,
        Sset_coding_system_priority, 1, MANY, 0,
-       doc: /* Put higher priority to coding systems of the arguments.  */)
+       doc: /* Assign higher priority to coding systems given as arguments.
+usage: (set-coding-system-priority CODING-SYSTEM ...)  */)
      (nargs, args)
      int nargs;
      Lisp_Object *args;
@@ -7200,7 +7197,8 @@
 
 DEFUN ("define-coding-system-internal", Fdefine_coding_system_internal,
        Sdefine_coding_system_internal, coding_arg_max, MANY, 0,
-       doc: /* For internal use only.  */)
+       doc: /* For internal use only.
+usage: (define-coding-system-internal ...)  */)
      (nargs, args)
      int nargs;
      Lisp_Object *args;
@@ -7857,10 +7855,6 @@
   DEFSYM (Qtranslation_table_for_decode, "translation-table-for-decode");
   DEFSYM (Qtranslation_table_for_encode, "translation-table-for-encode");
 
-  DEFSYM (Qchar_coding_system, "char-coding-system");
-
-  Fput (Qchar_coding_system, Qchar_table_extra_slots, make_number (2));
-
   DEFSYM (Qvalid_codes, "valid-codes");
 
   DEFSYM (Qemacs_mule, "emacs-mule");
@@ -8145,13 +8139,6 @@
 The default value is `select-safe-coding-system' (which see).  */);
   Vselect_safe_coding_system_function = Qnil;
 
-  DEFVAR_LISP ("char-coding-system-table", &Vchar_coding_system_table,
-	       doc: /*
-Char-table containing safe coding systems of each characters.
-Each element doesn't include such generic coding systems that can
-encode any characters.   They are in the first extra slot.  */);
-  Vchar_coding_system_table = Fmake_char_table (Qchar_coding_system, Qnil);
-
   DEFVAR_BOOL ("inhibit-iso-escape-detection",
 	       &inhibit_iso_escape_detection,
 	       doc: /*