Mercurial > emacs
changeset 101027:fab2a9b85392
(Fx_font_family_list): Function deleted. Compatibility version moved
to faces.el.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 09 Jan 2009 14:11:38 +0000 |
| parents | 3a728ce08dd6 |
| children | d3a67a9e7177 |
| files | src/xfaces.c |
| diffstat | 1 files changed, 0 insertions(+), 24 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xfaces.c Fri Jan 09 14:11:22 2009 +0000 +++ b/src/xfaces.c Fri Jan 09 14:11:38 2009 +0000 @@ -1910,27 +1910,6 @@ #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 @@ 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