diff options
author | Kenichi Handa <handa@m17n.org> | 1997-03-19 16:33:06 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1997-03-19 16:33:06 +0000 |
commit | b405c648e8d75e225f5769d75d901ac2229609f7 (patch) | |
tree | 39f37e6d540e36c63f0fe2f451274b4fc55c18e5 | |
parent | f41b5e593a31cc756fdf5814ef9aa16a86a81b01 (diff) | |
download | emacs-b405c648e8d75e225f5769d75d901ac2229609f7.tar.gz |
(Valternative_fontname_alist): New variable.
(syms_of_fontset): Declare Lisp variable alternative-fontname-alist.
-rw-r--r-- | src/fontset.c | 8 |
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); |