(Valternative_fontname_alist): New variable.

(syms_of_fontset): Declare Lisp variable alternative-fontname-alist.

1 files changed, 7 insertions, 1 deletions

diff --git a/src/fontset.c b/src/fontset.c
index e136c09b763..05f796bf735 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -31,9 +31,9 @@ Boston, MA 02111-1307, USA.  */
 #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 @@ If an entry for a character is non-nil, the ascent value of the glyph\n\
 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);