the autosave file might be deleted by the user after it is created

the first time but before the file is actually saved. guard against that.

closes PR 12698
This commit is contained in:
Robby Findler 2012-04-13 10:04:25 -05:00
parent 5e03c7cf99
commit 35e818ae50

View File

@ -598,7 +598,8 @@
(when (is-a? this text%)
(send this set-file-format orig-format))
(when old-auto-name
(delete-file old-auto-name))
(when (file-exists? old-auto-name)
(delete-file old-auto-name)))
(set! auto-saved-name auto-name)
(set! auto-save-out-of-date? #f)
auto-name))]