From 21ff5ed60724f906a27bc8800048957b55c5ab89 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 3 Jul 2006 00:50:10 +0000 Subject: [PATCH] (Votf_script_alist): New variable. (syms_of_fontset): Initialize it. (fontset_font): Delete unsed variable. --- src/fontset.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/fontset.c b/src/fontset.c index 7468eb3da17..dd4b7620452 100644 --- a/src/fontset.c +++ b/src/fontset.c @@ -220,6 +220,7 @@ Lisp_Object Vignore_relative_composition; Lisp_Object Valternate_fontname_alist; Lisp_Object Vfontset_alias_alist; Lisp_Object Vvertical_centering_font_regexp; +Lisp_Object Votf_script_alist; /* The following six are declarations of callback functions depending on window system. See the comments in src/fontset.h for more @@ -672,7 +673,6 @@ fontset_font (fontset, c, face, id) { Lisp_Object tmp = AREF (font_def, 0); Lisp_Object spec = Ffont_spec (0, NULL); - Lisp_Object script; if (STRINGP (tmp)) font_merge_old_spec (tmp, Qnil, Qnil, spec); @@ -2463,6 +2463,10 @@ When a character is displayed with such fonts, the character is displayed at the vertical center of lines. */); Vvertical_centering_font_regexp = Qnil; + DEFVAR_LISP ("otf-script-alist", &Votf_script_alist, + doc: /* Alist of OpenType script tags vs the corresponding script names. */); + Votf_script_alist = Qnil; + defsubr (&Squery_fontset); defsubr (&Snew_fontset); defsubr (&Sset_fontset_font); -- 2.39.5