From e6cf5b9a3a0c9b2642209e84e9857c2e63a8d0ea Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 21 May 1992 22:13:20 +0000
Subject: [PATCH] Change default font to "fixed".  Add conditional macro to
 override this at compile time.

---
 v7/src/microcode/x11base.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index 7c78c5b8c..95a2346fb 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11base.c,v 1.39 1992/05/21 22:11:36 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/x11base.c,v 1.40 1992/05/21 22:13:20 cph Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -40,6 +40,10 @@ MIT in each case. */
 #include "uxselect.h"
 #include "x11.h"
 
+#ifndef X_DEFAULT_FONT
+#define X_DEFAULT_FONT "fixed"
+#endif
+
 int x_debug = 0;
 static int initialization_done = 0;
 
@@ -387,7 +391,7 @@ DEFUN (x_default_attributes,
      (display,
       (x_get_default
        (display, resource_name, resource_class,
-	"font", "Font", "9x15"))));
+	"font", "Font", X_DEFAULT_FONT))));
   if ((attributes -> font) == 0)
     error_external_return ();
   {
-- 
2.25.1