Mercurial > emacs
changeset 17331:f91b4d582897
(Vhighlight_wrong_size_font, Vclip_large_size_font):
New variables.
(syms_of_fontset): Declare them as Lisp variables.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 07 Apr 1997 07:12:13 +0000 |
| parents | 35bd2f60d22a |
| children | 35269345d9ef |
| files | src/fontset.c |
| diffstat | 1 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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);