From 680a698c09a8619216054305e9b7b95cd81ebb55 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 29 Apr 1997 20:41:16 +0000 Subject: [PATCH] added copying of files for backups original commit: bab74a96fe120b1b2571fa9f932b1c69c9960920 --- collects/mred/edit.ss | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss index bceef41f..7af76f97 100644 --- a/collects/mred/edit.ss +++ b/collects/mred/edit.ss @@ -608,8 +608,7 @@ (not (= format wx:const-media-ff-copy)) (file-exists? name)) (let ([back-name (mred:path-utils:generate-backup-name name)]) - (unless (file-exists? back-name) - (rename-file name back-name)))) + (wx:copy-file name back-name))) #t)))] [on-change (lambda ()