# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 858789186 0
# Node ID dc4562b0152a81f6bf6eda437867719b7fade19f
# Parent  ce9a6d97e157721c8258df4514fd9edaa07d104f
(Valternative_fontname_alist): New variable.
(syms_of_fontset): Declare Lisp variable alternative-fontname-alist.

diff -r ce9a6d97e157 -r dc4562b0152a src/fontset.c
--- a/src/fontset.c	Wed Mar 19 16:33:06 1997 +0000
+++ b/src/fontset.c	Wed Mar 19 16:33:06 1997 +0000
@@ -31,9 +31,9 @@
 #include "frame.h"
 
 Lisp_Object Vglobal_fontset_alist;
-
 Lisp_Object Vfont_encoding_alist;
 Lisp_Object Vuse_default_ascent;
+Lisp_Object Valternative_fontname_alist;
 
 /* We had better have our own strcasecmp function because some system
    doesn't have it.  */
@@ -827,6 +827,12 @@
 is assumed to be what specified by _MULE_DEFAULT_ASCENT property of a font.");
   Vuse_default_ascent = Qnil;
 
+  DEFVAR_LISP ("alternative-fontname-alist", &Valternative_fontname_alist,
+     "Alist of fontname vs list of the alternative fontnames.
+When no font can be opened by a fontname, the corresponding
+alternative fontnames are tried.");
+  Valternative_fontname_alist = Qnil;
+
   defsubr (&Squery_fontset);
   defsubr (&Snew_fontset);
   defsubr (&Sset_fontset_font);