From 0f572305747484295bee67e3f6216ee02d8656bd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 25 Aug 2009 11:20:03 +0000 Subject: [PATCH] editor pasteboard bug fix from Jordan Johnson svn: r15797 original commit: 78ad4f96156c406b2dbfb123090cda623ddb6c09 --- collects/mred/private/wxme/pasteboard.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mred/private/wxme/pasteboard.ss b/collects/mred/private/wxme/pasteboard.ss index 9fcbc06a..b2755831 100644 --- a/collects/mred/private/wxme/pasteboard.ss +++ b/collects/mred/private/wxme/pasteboard.ss @@ -766,12 +766,12 @@ (set-snip-next! del-snip #f) (set-snip-prev! del-snip #f) - (set-snip-flags! del-snip (add-flag CAN-DISOWN (snip->flags del-snip))) + (set-snip-flags! del-snip (add-flag (snip->flags del-snip) CAN-DISOWN)) (snip-set-admin del-snip #f) - (set-snip-flags! del-snip (remove-flag CAN-DISOWN (snip->flags del-snip))) + (set-snip-flags! del-snip (remove-flag (snip->flags del-snip) CAN-DISOWN)) (unless del (when (send del-snip get-admin) - (set-snip-flags! del-snip (remove-flag OWNED (snip->flags del-snip))))) + (set-snip-flags! del-snip (remove-flag (snip->flags del-snip) OWNED)))) (unless s-modified? (set-modified #t))