From 1e66110880a7e2e0560b9fc3c69ca41a99e078ae Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 15 Aug 1998 01:28:14 +0000 Subject: [PATCH] (x_display_unibyte_char_with_fontset): New variable. (syms_of_xfns): Declare x-display-unibyte-char-with-fontset as a Lisp variable. --- src/xfns.c | 14 ++++++++++++++ 1 file changed, 14 insertions(+) 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 -- 2.39.5