original commit: cb392265f95b7a3af4e44409df5defb819017e05
This commit is contained in:
Robby Findler 2000-08-11 02:52:09 +00:00
parent 415537868c
commit 01064e7ab4

View File

@ -656,7 +656,7 @@
(lambda (item control)
(let* ([b (box #f)]
[edit (get-editor)]
[filename (get-filename b)])
[filename (send edit get-filename b)])
(if (or (not filename) (unbox b))
(bell)
(let ([start