From c6f8ef4e8a2d51e19d4db0c950021120853cd022 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 13 Sep 1999 17:14:49 +0000 Subject: [PATCH] (breakup_char_1): Use `Vdefault_coded_charset_priority_list' for greek-iso8859-7 area. --- src/char-ucs.h | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/char-ucs.h b/src/char-ucs.h index d45683a..ce63c10 100644 --- a/src/char-ucs.h +++ b/src/char-ucs.h @@ -416,7 +416,7 @@ INLINE void breakup_char_1 (Emchar c, Lisp_Object *charset, int *c1, int *c2); INLINE void breakup_char_1 (Emchar c, Lisp_Object *charset, int *c1, int *c2) { - if (c < MIN_CHAR_GREEK) + if (c <= MAX_CHAR_GREEK) { Lisp_Object charsets = Vdefault_coded_charset_priority_list; while (!EQ (charsets, Qnil)) @@ -449,6 +449,12 @@ breakup_char_1 (Emchar c, Lisp_Object *charset, int *c1, int *c2) *c1 = charset_get_byte1 (*charset, c); *c2 = charset_get_byte2 (*charset, c); } + else if ((MIN_CHAR_GREEK <= c) && (c <= MAX_CHAR_GREEK)) + { + *charset = Vcharset_greek_iso8859_7; + *c1 = c - MIN_CHAR_GREEK + 0x20; + *c2 = 0; + } else { *charset = Vcharset_ucs_bmp; @@ -456,12 +462,6 @@ breakup_char_1 (Emchar c, Lisp_Object *charset, int *c1, int *c2) *c2 = c & 0xff; } } - else if (c <= MAX_CHAR_GREEK) - { - *charset = Vcharset_greek_iso8859_7; - *c1 = c - MIN_CHAR_GREEK + 0x20; - *c2 = 0; - } else if (c < MIN_CHAR_CYRILLIC) { *charset = Vcharset_ucs_bmp; -- 1.7.10.4