# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1029378522 0
# Node ID cafb04d00ef2140579d78f356ae61c199d71ed24
# Parent  11957cd6bd7b7de1a162da49bb7c66ada863fc98
(charset_unibyte): Renamed from charset_primary.
(Funibyte_charset): Renamed from Fprimary_charset.
(Fset_unibyte_charset): Renamed from Fset_primary_charset.
(syms_of_charset): Adjusted for the above changes.

diff -r 11957cd6bd7b -r cafb04d00ef2 src/charset.c
--- a/src/charset.c	Thu Aug 15 02:28:25 2002 +0000
+++ b/src/charset.c	Thu Aug 15 02:28:42 2002 +0000
@@ -87,8 +87,8 @@
 /* Value of charset attribute `charset-iso-plane'.  */
 Lisp_Object Qgl, Qgr;
 
-/* The primary charset.  It is a charset of unibyte characters.  */
-int charset_primary;
+/* Charset of unibyte characters.  */
+int charset_unibyte;
 
 /* List of charsets ordered by the priority.  */
 Lisp_Object Vcharset_ordered_list;
@@ -1149,26 +1149,26 @@
 }
 
 
-DEFUN ("primary-charset", Fprimary_charset, Sprimary_charset, 0, 0, 0,
-       doc: /* Return the primary charset (set by `set-primary-charset').  */)
+DEFUN ("unibyte-charset", Funibyte_charset, Sunibyte_charset, 0, 0, 0,
+       doc: /* Return the unibyte charset (set by `set-unibyte-charset').  */)
      ()
 {
-  return CHARSET_NAME (CHARSET_FROM_ID (charset_primary));
+  return CHARSET_NAME (CHARSET_FROM_ID (charset_unibyte));
 }
 
 
-DEFUN ("set-primary-charset", Fset_primary_charset, Sset_primary_charset,
+DEFUN ("set-unibyte-charset", Fset_unibyte_charset, Sset_unibyte_charset,
        1, 1, 0,
-       doc: /* Set the primary charset to CHARSET.
+       doc: /* Set the unibyte charset to CHARSET.
 This determines how unibyte/multibyte conversion is done.  See also
-function `primary-charset'.  */)
+function `unibyte-charset'.  */)
      (charset)
      Lisp_Object charset;
 {
   int id;
 
   CHECK_CHARSET_GET_ID (charset, id);
-  charset_primary = id;
+  charset_unibyte = id;
   return Qnil;
 }
 
@@ -2084,8 +2084,8 @@
   defsubr (&Smap_charset_chars);
   defsubr (&Sdefine_charset_internal);
   defsubr (&Sdefine_charset_alias);
-  defsubr (&Sprimary_charset);
-  defsubr (&Sset_primary_charset);
+  defsubr (&Sunibyte_charset);
+  defsubr (&Sset_unibyte_charset);
   defsubr (&Scharset_plist);
   defsubr (&Sset_charset_plist);
   defsubr (&Sunify_charset);