(x_display_unibyte_char_with_fontset): New variable.

(syms_of_xfns): Declare x-display-unibyte-char-with-fontset as a
Lisp variable.

1 files changed, 14 insertions, 0 deletions

diff --git a/src/xfns.c b/src/xfns.c
index 00632c86341..894766432c6 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -136,6 +136,9 @@ Lisp_Object Vx_bitmap_file_path;
 /* 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 @@ such a font.  This is especially effective for such large fonts as\n\
 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