From: Kenichi Handa <handa@m17n.org>
Date: Mon, 7 Apr 1997 07:12:13 +0000 (+0000)
Subject: (Vhighlight_wrong_size_font, Vclip_large_size_font):
X-Git-Tag: emacs-20.1~2614
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec3bb06866ac46b4a5b5c8262fbd79f53fc770ad;p=emacs.git

(Vhighlight_wrong_size_font, Vclip_large_size_font):
New variables.
(syms_of_fontset): Declare them as Lisp variables.
---

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