(Fx_font_family_list): Replace lisp/term/pc-win.el redefinition with

ifdef.  (Bug#1383)

2 files changed, 9 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 862711a7797..905ea2729ad 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-26  Glenn Morris  <rgm@gnu.org>
+
+        * xfaces.c (Fx_font_family_list): Replace lisp/term/pc-win.el
+        redefinition with ifdef.  (Bug#1383)
+
 2008-11-24  Chong Yidong  <cyd@stupidchicken.com>
 
         * minibuf.c (Fcompleting_read, Vminibuffer_completion_confirm):
diff --git a/src/xfaces.c b/src/xfaces.c
index 68d63d690d9..31f56df6ab9 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -1839,7 +1839,11 @@ are fixed-pitch.  */)
      (frame)
      Lisp_Object frame;
 {
+#ifdef MSDOS
+  return Fcons (Fcons (build_string ("default"), Qt), Qnil);
+#else
   return Ffont_family_list (frame);
+#endif
 }