added copying of files for backups

original commit: bab74a96fe120b1b2571fa9f932b1c69c9960920
1997-04-29 20:41:16 +00:00 · 1997-04-29 20:41:16 +00:00 · 680a698c09
commit 680a698c09
parent 173c7a36db
1 changed files with 1 additions and 2 deletions
--- 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 ()