From 506aebacedae6f9ca1b162389ec4d09dd68cf1ef Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 5 Jun 2003 21:10:43 +0000
Subject: [PATCH] .

original commit: b6bd3bcf8811403be88795286371e2c99032844c
---
 collects/mred/mred.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 24068310..d127b61f 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -7228,11 +7228,11 @@
        (set! x-has-xft? (ormap (lambda (s) (regexp-match #rx"^ " s)) (wx:get-face-list))))
      (if x-has-xft?
 	 (case family
-	   [(system) " Luxi Sans"]
-	   [(default) " Luxi Sans"]
-	   [(roman) " Luxi Serif"]
+	   [(system) " Sans"]
+	   [(default) " Sans"]
+	   [(roman) " Serif"]
 	   [(decorative) " Nimbus Sans L"]
-	   [(modern) " Luxi Mono"]
+	   [(modern) " Monospace"]
 	   [(swiss) " Nimbus Sans L"]
 	   [(script) " URW Chancery L"]
 	   [(symbol) "-adobe-symbol"])