From 76aea5cd6a77217780ae58c9ae46b913ae4b801d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 8 Nov 1996 20:36:16 +0000 Subject: [PATCH] fixed bugs, added scheme-mode-style-list that all scheme mode buffers use original commit: b3bd242e118ac07573f90661f426baa7ec15d8f8 --- collects/mred/edit.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss index 46658697..f9464532 100644 --- a/collects/mred/edit.ss +++ b/collects/mred/edit.ss @@ -310,8 +310,9 @@ (lambda (start len) (when styles-fixed? (set! styles-fixed-edit-modified? (modified?))) - (if (or (not mode) (send mode on-change-style this start len)) - (super-on-change-style start len)))] + (and (or (not mode) + (send mode on-change-style this start len)) + (super-on-change-style start len)))] [on-edit-sequence (lambda () (when mode