From 67c27825084ecfb580bc5989daa27c29dcb486a9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 15 Jul 2001 23:24:27 +0000
Subject: [PATCH] .

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

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 4b638f56..642c1adc 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -5807,6 +5807,14 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+;; Initialize AFM path:
+(with-handlers ([not-break-exn? void])
+  (let ([pss (wx:current-ps-setup)])
+    (unless (send pss get-afm-path)
+      (send pss set-afm-path (collection-path "afm")))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (wx:set-dialogs get-file put-file get-ps-setup-from-user message-box)
 
 (define-syntax propagate