(Vhighlight_wrong_size_font, Vclip_large_size_font):

New variables.
(syms_of_fontset): Declare them as Lisp variables.

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);