Mercurial > emacs
changeset 90509:c1ec6b950928
(Votf_script_alist): New variable.
(syms_of_fontset): Initialize it.
(fontset_font): Delete unsed variable.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 03 Jul 2006 00:50:10 +0000 |
| parents | 1a247e569906 |
| children | 69dc5ab6d693 |
| files | src/fontset.c |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fontset.c Mon Jul 03 00:49:12 2006 +0000 +++ b/src/fontset.c Mon Jul 03 00:50:10 2006 +0000 @@ -220,6 +220,7 @@ 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 @@ { 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 @@ 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);