# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 860397133 0
# Node ID f91b4d58289743b097ca92edf05a7cad3d5aad89
# Parent  35bd2f60d22a224847b8364527833096e50bfcef
(Vhighlight_wrong_size_font, Vclip_large_size_font):
New variables.
(syms_of_fontset): Declare them as Lisp variables.

diff -r 35bd2f60d22a -r f91b4d582897 src/fontset.c
--- a/src/fontset.c	Mon Apr 07 07:12:13 1997 +0000
+++ b/src/fontset.c	Mon Apr 07 07:12:13 1997 +0000
@@ -34,6 +34,8 @@
 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 @@
 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);