Mercurial > emacs
changeset 17193:dc4562b0152a
(Valternative_fontname_alist): New variable.
(syms_of_fontset): Declare Lisp variable alternative-fontname-alist.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 19 Mar 1997 16:33:06 +0000 |
| parents | ce9a6d97e157 |
| children | ae76b2a59dcc |
| files | src/fontset.c |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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);