procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(set_default_ascii_font): New function.

Browse source 
(syms_of_fontset): Don't set FONTSET_ASCII (Vdefault_fontset)
here.
This commit is contained in:
Kenichi Handa 2005-03-08 08:45:48 +00:00
parent 060855d54d
commit 8f2e667359
1 changed files with 17 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
src/fontset.c
View file

@ -764,6 +764,23 @@ fs_load_font (f, c, fontname, id, face)
#pragma optimize("", on)
#endif
/* Set the ASCII font of the default fontset to FONTNAME if that is
not yet set. */
void
set_default_ascii_font (fontname)
Lisp_Object fontname;
{
if (! CONSP (FONTSET_ASCII (Vdefault_fontset)))
{
int id = fs_query_fontset (fontname, 2);
if (id >= 0)
fontname = XCDR (FONTSET_ASCII (FONTSET_FROM_ID (id)));
FONTSET_ASCII (Vdefault_fontset)
= Fcons (make_number (0), fontname);
}
}
/* Cache data used by fontset_pattern_regexp. The car part is a
pattern string containing at least one wild card, the cdr part is
@ -1627,19 +1644,6 @@ syms_of_fontset ()
FONTSET_ID (Vdefault_fontset) = make_number (0);
FONTSET_NAME (Vdefault_fontset)
= build_string ("-*-*-*-*-*-*-*-*-*-*-*-*-fontset-default");
#if defined (MAC_OS)
FONTSET_ASCII (Vdefault_fontset)
= Fcons (make_number (0),
build_string ("-apple-monaco-medium-r-*--*-120-*-*-*-*-mac-roman"));
#elif defined (WINDOWSNT)
FONTSET_ASCII (Vdefault_fontset)
= Fcons (make_number (0),
build_string ("-*-courier new-normal-r-*-*-*-100-*-*-*-*-iso8859-1"));
#else
FONTSET_ASCII (Vdefault_fontset)
= Fcons (make_number (0),
build_string ("-adobe-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1"));
#endif
AREF (Vfontset_table, 0) = Vdefault_fontset;
next_fontset_id = 1;