From 0314fa70357e8b339209b90c7e0b4a3245b63a5a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 26 Aug 1997 15:55:39 +0000 Subject: [PATCH] allow styles to be #f original commit: f5c6d81262702aba29dd51eaebd620fcb61ba690 --- collects/mred/edit.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss index bfaefcea..ef8ea319 100644 --- a/collects/mred/edit.ss +++ b/collects/mred/edit.ss @@ -170,9 +170,11 @@ (set-mode-direct m) (set-file-format (ivar m file-format)) (send m install this) - (send (send (get-style-list) - find-named-style "Standard") - set-delta (ivar m standard-style-delta))) + (let ([new-delta (ivar m standard-style-delta)]) + (when new-delta + (send (send (get-style-list) + find-named-style "Standard") + set-delta new-delta)))) (begin (set-mode-direct #f) (send (send (get-style-list)