Mercurial > emacs
comparison src/fontset.c @ 19282:09a1536debb4
(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\ |