From: tomo <tomo>
Date: Mon, 13 Sep 1999 06:28:45 +0000 (+0000)
Subject: (Vdefault_coded_charset_priority_list): Renamed from
X-Git-Tag: r21-2-19-utf-2000-0_7-0~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1a2998dbde2ec0eec2f0b1349adb68ec16f0de9e;p=chise%2Fxemacs-chise.git

(Vdefault_coded_charset_priority_list): Renamed from
`Vdefault_preferred_coded_charset_list'.
---

diff --git a/src/char-ucs.h b/src/char-ucs.h
index a6a2280..86878d7 100644
--- a/src/char-ucs.h
+++ b/src/char-ucs.h
@@ -417,7 +417,7 @@ extern unsigned char latin_a_char_to_byte2[128];
 unsigned char charset_get_byte1 (Lisp_Object charset, Emchar ch);
 unsigned char charset_get_byte2 (Lisp_Object charset, Emchar ch);
 
-extern Lisp_Object Vdefault_preferred_coded_charset_list;
+extern Lisp_Object Vdefault_coded_charset_priority_list;
 EXFUN (Ffind_charset, 1);
 
 INLINE void breakup_char_1 (Emchar c, Lisp_Object *charset, int *c1, int *c2);
@@ -426,7 +426,7 @@ breakup_char_1 (Emchar c, Lisp_Object *charset, int *c1, int *c2)
 {
   if (c < 0x100)
     {
-      Lisp_Object charsets = Vdefault_preferred_coded_charset_list;
+      Lisp_Object charsets = Vdefault_coded_charset_priority_list;
       while (!EQ (charsets, Qnil))
 	{
 	  *charset = Ffind_charset (Fcar (charsets));
@@ -481,7 +481,7 @@ breakup_char_1 (Emchar c, Lisp_Object *charset, int *c1, int *c2)
     }
   else if (c < MIN_CHAR_GREEK)
     {
-      Lisp_Object charsets = Vdefault_preferred_coded_charset_list;
+      Lisp_Object charsets = Vdefault_coded_charset_priority_list;
       while (!EQ (charsets, Qnil))
 	{
 	  *charset = Ffind_charset (Fcar (charsets));
@@ -542,7 +542,7 @@ breakup_char_1 (Emchar c, Lisp_Object *charset, int *c1, int *c2)
     }
   else if (c < MIN_CHAR_HALFWIDTH_KATAKANA)
     {
-      Lisp_Object charsets = Vdefault_preferred_coded_charset_list;
+      Lisp_Object charsets = Vdefault_coded_charset_priority_list;
       while (!EQ (charsets, Qnil))
 	{
 	  *charset = Ffind_charset (Fcar (charsets));