(Votf_script_alist): New variable.

(syms_of_fontset): Initialize it.
(fontset_font): Delete unsed variable.

diff --git a/src/fontset.c b/src/fontset.c
index 7468eb3da17f1546d8512a2b121b088382a8c1a6..dd4b762045281032b209f317f518879ab7640cb7 100644 (file)
--- 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);