From: Kenichi Handa <handa@m17n.org>
Date: Sun, 10 Aug 1997 04:13:19 +0000 (+0000)
Subject: (Vignore_relative_composition): New variable.
X-Git-Tag: emacs-20.1~666
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2aeafb78bfd339413a11a8bd089accb74c36630f;p=emacs.git

(Vignore_relative_composition): New variable.
(syms_of_fontset): Doc-string of use-default-ascent modified.
Declare ignore-relative-composition as a Lisp variable.
---

diff --git a/src/fontset.c b/src/fontset.c
index 3e5278b907c..35391e5a5c4 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -32,6 +32,7 @@ Boston, MA 02111-1307, USA.  */
 Lisp_Object Vglobal_fontset_alist;
 Lisp_Object Vfont_encoding_alist;
 Lisp_Object Vuse_default_ascent;
+Lisp_Object Vignore_relative_composition;
 Lisp_Object Valternative_fontname_alist;
 Lisp_Object Vfontset_alias_alist;
 Lisp_Object Vhighlight_wrong_size_font;
@@ -834,7 +835,18 @@ ENCODING is one of the following integer values:\n\
   DEFVAR_LISP ("use-default-ascent", &Vuse_default_ascent,
      "Char table of characters whose ascent values should be ignored.\n\
 If an entry for a character is non-nil, the ascent value of the glyph\n\
-is assumed to be what specified by _MULE_DEFAULT_ASCENT property of a font.");
+is assumed to be what specified by _MULE_DEFAULT_ASCENT property of a font.\n\
+\n\
+This affects how a composite character which contains\n\
+such a character is displayed on screen.");
+  Vuse_default_ascent = Qnil;
+
+  DEFVAR_LISP ("ignore-relative-composition", &Vignore_relative_composition,
+     "Char table of characters which is not composed relatively.\n\
+If an entry for a character is non-nil, a composite character\n\
+which contains that character is displayed so that\n\
+the glyph of that character is put without considering\n\
+an ascent and descent value of a previous character.");
   Vuse_default_ascent = Qnil;
 
   DEFVAR_LISP ("alternative-fontname-alist", &Valternative_fontname_alist,