Change default font to "fixed". Add conditional macro to override
authorChris Hanson <org/chris-hanson/cph>
Thu, 21 May 1992 22:13:20 +0000 (22:13 +0000)
committerChris Hanson <org/chris-hanson/cph>
Thu, 21 May 1992 22:13:20 +0000 (22:13 +0000)
this at compile time.

v7/src/microcode/x11base.c

index 7c78c5b8c4bd9d2b419c502cc71e8d529567e526..95a2346fbefebea58d42b6066310732c66de5aa6 100644 (file)
@@ -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 ();
   {