From 1a2998dbde2ec0eec2f0b1349adb68ec16f0de9e Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 13 Sep 1999 06:28:45 +0000 Subject: [PATCH] (Vdefault_coded_charset_priority_list): Renamed from `Vdefault_preferred_coded_charset_list'. --- src/char-ucs.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)); -- 1.7.10.4