From 8c83e4f9fb79230ce3ec0d9cd49d3edc489c1647 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 19 Mar 1997 16:33:06 +0000 Subject: [PATCH] (Valternative_fontname_alist): New variable. (syms_of_fontset): Declare Lisp variable alternative-fontname-alist. --- src/fontset.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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); -- 2.39.5