Mercurial > emacs

comparison src/fontset.c @ 19282:09a1536debb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Vignore_relative_composition): New variable. (syms_of_fontset): Doc-string of use-default-ascent modified. Declare ignore-relative-composition as a Lisp variable.
author Kenichi Handa <handa@m17n.org>
date Sun, 10 Aug 1997 04:13:19 +0000
parents f3580f4e3587
children 895dc2520755
comparison
equal deleted inserted replaced
19281:5834b16ab7fa 19282:09a1536debb4
30 #include "frame.h" 30 #include "frame.h"
31 31
32 Lisp_Object Vglobal_fontset_alist; 32 Lisp_Object Vglobal_fontset_alist;
33 Lisp_Object Vfont_encoding_alist; 33 Lisp_Object Vfont_encoding_alist;
34 Lisp_Object Vuse_default_ascent; 34 Lisp_Object Vuse_default_ascent;
35 Lisp_Object Vignore_relative_composition;
35 Lisp_Object Valternative_fontname_alist; 36 Lisp_Object Valternative_fontname_alist;
36 Lisp_Object Vfontset_alias_alist; 37 Lisp_Object Vfontset_alias_alist;
37 Lisp_Object Vhighlight_wrong_size_font; 38 Lisp_Object Vhighlight_wrong_size_font;
38 Lisp_Object Vclip_large_size_font; 39 Lisp_Object Vclip_large_size_font;
39 40
832 Vfont_encoding_alist = Qnil; 833 Vfont_encoding_alist = Qnil;
833 834
834 DEFVAR_LISP ("use-default-ascent", &Vuse_default_ascent, 835 DEFVAR_LISP ("use-default-ascent", &Vuse_default_ascent,
835 "Char table of characters whose ascent values should be ignored.\n\ 836 "Char table of characters whose ascent values should be ignored.\n\
836 If an entry for a character is non-nil, the ascent value of the glyph\n\ 837 If an entry for a character is non-nil, the ascent value of the glyph\n\
837 is assumed to be what specified by _MULE_DEFAULT_ASCENT property of a font."); 838 is assumed to be what specified by _MULE_DEFAULT_ASCENT property of a font.\n\
839 \n\
840 This affects how a composite character which contains\n\
841 such a character is displayed on screen.");
842 Vuse_default_ascent = Qnil;
843
844 DEFVAR_LISP ("ignore-relative-composition", &Vignore_relative_composition,
845 "Char table of characters which is not composed relatively.\n\
846 If an entry for a character is non-nil, a composite character\n\
847 which contains that character is displayed so that\n\
848 the glyph of that character is put without considering\n\
849 an ascent and descent value of a previous character.");
838 Vuse_default_ascent = Qnil; 850 Vuse_default_ascent = Qnil;
839 851
840 DEFVAR_LISP ("alternative-fontname-alist", &Valternative_fontname_alist, 852 DEFVAR_LISP ("alternative-fontname-alist", &Valternative_fontname_alist,
841 "Alist of fontname vs list of the alternative fontnames.\n\ 853 "Alist of fontname vs list of the alternative fontnames.\n\
842 When a specified font name is not found, the corresponding\n\ 854 When a specified font name is not found, the corresponding\n\