# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 903144494 0
# Node ID aac588a2998ad0e1756ecd509ecc38fd3a4ee3eb
# Parent  a9a3f2620318816070417d786268c5215b471554
(x_display_unibyte_char_with_fontset): New variable.
(syms_of_xfns): Declare x-display-unibyte-char-with-fontset as a
Lisp variable.

diff -r a9a3f2620318 -r aac588a2998a src/xfns.c
--- a/src/xfns.c	Sat Aug 15 01:28:14 1998 +0000
+++ b/src/xfns.c	Sat Aug 15 01:28:14 1998 +0000
@@ -136,6 +136,9 @@
 /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.  */
 Lisp_Object Vx_pixel_size_width_font_regexp;
 
+/* A flag to control how to display unibyte 8-bit character.  */
+int x_display_unibyte_char_with_fontset;
+
 /* Evaluate this expression to rebuild the section of syms_of_xfns
    that initializes and staticpros the symbols declared below.  Note
    that Emacs 18 has a bug that keeps C-x C-e from being able to
@@ -5383,6 +5386,17 @@
 Chinese, Japanese, and Korean.");
   Vx_pixel_size_width_font_regexp = Qnil;
 
+  DEFVAR_BOOL ("x-display-unibyte-char-with-fontset",
+	       &x_display_unibyte_char_with_fontset,
+     "*Non-nil means display unibyte 8-bit characters by a font in fontset.\n\
+Usually, unibyte 8-bit characters are displayed by a font\n\
+specified for an ASCII font.\n\
+But if this variable is non-nil, such characters are displayed by a font\n\
+for a specific character set listed in the current fontset.\n\
+Thus, changing the current language environment will change\n\
+how unibyte 8-bit characters display.");
+  x_display_unibyte_char_with_fontset = 0;
+
 #ifdef USE_X_TOOLKIT
   Fprovide (intern ("x-toolkit"));
 #endif