Mercurial > emacs
comparison src/xfaces.c @ 99934:33b7fbb60fa0
(Fx_font_family_list): Replace lisp/term/pc-win.el redefinition with
ifdef. (Bug#1383)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 26 Nov 2008 02:59:54 +0000 |
| parents | 96300bdd6164 |
| children | 6f62aec59b3d |
comparison
equal
deleted
inserted
replaced
| 99933:c0f837f2c14b | 99934:33b7fbb60fa0 |
|---|---|
| 1837 is a font family, and FIXED-P is non-nil if fonts of that family | 1837 is a font family, and FIXED-P is non-nil if fonts of that family |
| 1838 are fixed-pitch. */) | 1838 are fixed-pitch. */) |
| 1839 (frame) | 1839 (frame) |
| 1840 Lisp_Object frame; | 1840 Lisp_Object frame; |
| 1841 { | 1841 { |
| 1842 #ifdef MSDOS | |
| 1843 return Fcons (Fcons (build_string ("default"), Qt), Qnil); | |
| 1844 #else | |
| 1842 return Ffont_family_list (frame); | 1845 return Ffont_family_list (frame); |
| 1846 #endif | |
| 1843 } | 1847 } |
| 1844 | 1848 |
| 1845 | 1849 |
| 1846 DEFUN ("x-list-fonts", Fx_list_fonts, Sx_list_fonts, 1, 5, 0, | 1850 DEFUN ("x-list-fonts", Fx_list_fonts, Sx_list_fonts, 1, 5, 0, |
| 1847 doc: /* Return a list of the names of available fonts matching PATTERN. | 1851 doc: /* Return a list of the names of available fonts matching PATTERN. |