From: Kenichi Handa <handa@m17n.org>
Date: Wed, 19 Mar 1997 16:33:06 +0000 (+0000)
Subject: (Valternative_fontname_alist): New variable.
X-Git-Tag: emacs-20.1~2752
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c83e4f9fb79230ce3ec0d9cd49d3edc489c1647;p=emacs.git

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

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