changeset 88985:cafb04d00ef2

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

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