From: tomo <tomo>
Date: Sun, 10 Oct 1999 18:27:13 +0000 (+0000)
Subject: (separate_textual_runs): Use
X-Git-Tag: r21-2-19-utf-2000-0_9-0~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=38914e335d92b50143197fe1c57190bfd5fa1799;p=chise%2Fxemacs-chise.git

(separate_textual_runs): Use
`default-coded-charset-priority-list-for-font' if it is not nil.
---

diff --git a/src/redisplay-x.c b/src/redisplay-x.c
index cf1766e..c174e8a 100644
--- a/src/redisplay-x.c
+++ b/src/redisplay-x.c
@@ -151,7 +151,19 @@ separate_textual_runs (unsigned char *text_storage,
       int dimension;
       int graphic;
 
-      BREAKUP_CHAR (ch, charset, byte1, byte2);
+      if (EQ (Vdefault_coded_charset_priority_list_for_font, Qnil))
+	BREAKUP_CHAR (ch, charset, byte1, byte2);
+      else
+	{
+	  Lisp_Object original_default_coded_charset_priority_list
+	    = Vdefault_coded_charset_priority_list;
+
+	  Vdefault_coded_charset_priority_list
+	    = Vdefault_coded_charset_priority_list_for_font;
+	  BREAKUP_CHAR (ch, charset, byte1, byte2);
+	  Vdefault_coded_charset_priority_list
+	    = original_default_coded_charset_priority_list;
+	}
       dimension = XCHARSET_DIMENSION (charset);
       graphic   = XCHARSET_GRAPHIC   (charset);