From: Kenichi Handa <handa@m17n.org>
Date: Mon, 3 Jul 2006 00:50:10 +0000 (+0000)
Subject: (Votf_script_alist): New variable.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~841
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21ff5ed60724f906a27bc8800048957b55c5ab89;p=emacs.git

(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 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);