Commit 058f0a51 authored by Chong Yidong's avatar Chong Yidong
Browse files

(Fx_font_family_list): Function deleted. Compatibility version moved

to faces.el.
parent 323b840c
......@@ -1910,27 +1910,6 @@ the WIDTH times as wide as FACE on FRAME. */)
#endif /* HAVE_WINDOW_SYSTEM */
#if defined(HAVE_WINDOW_SYSTEM) || defined(__MSDOS__)
DEFUN ("x-font-family-list", Fx_font_family_list, Sx_font_family_list,
0, 1, 0,
doc: /* Return a list of available font families on FRAME.
If FRAME is omitted or nil, use the selected frame.
Value is a list of conses (FAMILY . FIXED-P) where FAMILY
is a font family, and FIXED-P is non-nil if fonts of that family
are fixed-pitch. */)
(frame)
Lisp_Object frame;
{
#ifdef __MSDOS__
return Fcons (Fcons (build_string ("default"), Qt), Qnil);
#else
return Ffont_family_list (frame);
#endif
}
#endif /* HAVE_WINDOW_SYSTEM || __MSDOS__ */
/***********************************************************************
Lisp Faces
......@@ -7015,9 +6994,6 @@ a font of 10 point, we actually use a font of 10 * RESCALE-RATIO point. */);
defsubr (&Sinternal_face_x_get_resource);
defsubr (&Sx_family_fonts);
#endif
#if defined(HAVE_WINDOW_SYSTEM) || defined(__MSDOS__)
defsubr (&Sx_font_family_list);
#endif /* HAVE_WINDOW_SYSTEM || __MSDOS__ */
}
/* arch-tag: 8a0f7598-5517-408d-9ab3-1da6fcd4c749
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment