Mercurial > emacs
changeset 23025:aac588a2998a
(x_display_unibyte_char_with_fontset): New variable.
(syms_of_xfns): Declare x-display-unibyte-char-with-fontset as a
Lisp variable.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 15 Aug 1998 01:28:14 +0000 |
| parents | a9a3f2620318 |
| children | 3532d5c73fdf |
| files | src/xfns.c |
| diffstat | 1 files changed, 14 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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