From ec3bb06866ac46b4a5b5c8262fbd79f53fc770ad Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 7 Apr 1997 07:12:13 +0000 Subject: [PATCH] (Vhighlight_wrong_size_font, Vclip_large_size_font): New variables. (syms_of_fontset): Declare them as Lisp variables. --- src/fontset.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) 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); -- 2.39.5