diff options
author | Kenichi Handa <handa@m17n.org> | 1997-04-07 07:12:13 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1997-04-07 07:12:13 +0000 |
commit | b06acce4306e44c883a4f0cb63e7d33c4cde70ab (patch) | |
tree | 78663fbdc7bce482cd1405293049102528bf039b /src | |
parent | 2d1e31313a8cdbf29486856ab7162f26c1565f29 (diff) | |
download | emacs-b06acce4306e44c883a4f0cb63e7d33c4cde70ab.tar.gz |
(Vhighlight_wrong_size_font, Vclip_large_size_font):
New variables.
(syms_of_fontset): Declare them as Lisp variables.
Diffstat (limited to 'src')
-rw-r--r-- | src/fontset.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/fontset.c b/src/fontset.c index 05f796bf735..082a148ac8e 100644 --- a/src/fontset.c +++ b/src/fontset.c @@ -34,6 +34,8 @@ Lisp_Object Vglobal_fontset_alist; Lisp_Object Vfont_encoding_alist; Lisp_Object Vuse_default_ascent; Lisp_Object Valternative_fontname_alist; +Lisp_Object Vhighlight_wrong_size_font; +Lisp_Object Vclip_large_size_font; /* We had better have our own strcasecmp function because some system doesn't have it. */ @@ -833,6 +835,17 @@ When no font can be opened by a fontname, the corresponding alternative fontnames are tried."); Valternative_fontname_alist = Qnil; + DEFVAR_LISP ("highlight-wrong-size-font", &Vhighlight_wrong_size_font, + "*Non-nil means highlight characters shown in wrong size fonts somehow.\n\ +The way to highlight them depends on window system on which Emacs runs.\n\ +On X window, rectangle is shown around each such characters."); + Vhighlight_wrong_size_font = Qt; + + DEFVAR_LISP ("clip-large-size-font", &Vclip_large_size_font, + "*Non-nil means clip glyphs shown in large size fonts.\n\ +The hight of clipping area is the same as the hight of ASCII characters."); + Vclip_large_size_font = Qt; + defsubr (&Squery_fontset); defsubr (&Snew_fontset); defsubr (&Sset_fontset_font); |